+ initial work for tls-based threadvar support on arm-linux

git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@40267 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 9 insertions, 0 deletions

diff --git a/rtl/arm/arm.inc b/rtl/arm/arm.inc
index 3ff4e744ec..672968d449 100644
--- a/rtl/arm/arm.inc
+++ b/rtl/arm/arm.inc
@@ -96,6 +96,15 @@ begin
 end;
 {$endif wince}
 
+{$ifdef linux}
+function fpc_read_tp : pointer; [public, alias: 'fpc_read_tp'];assembler; nostackframe;
+asm
+  // Helper is located at 0xffff0fe0
+  mvn r0,#0x0000f000 // mov r0, #0xffff0fff
+  sub pc,r0,#0x1f    // Jump to helper
+end;
+{$endif linux}
+
 {****************************************************************************
                        stack frame related stuff
 ****************************************************************************}