paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-12 21:11:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

Try to fix simply the fpc_threadvar_relocate_proc problem

Browse Source 
git-svn-id: trunk@23220 -
This commit is contained in:
pierre 2012-12-24 16:23:30 +00:00
parent 9b799b9636
commit 70a29668a4
7 changed files with 37 additions and 0 deletions

5
rtl/bsd/i386/syscallh.inc
View File

@ -46,6 +46,11 @@ function do_sysCall(sysnr,param1,param2,param3,param4,param5,param6:TSysParam):i
function do_sysCall(sysnr,param1,param2,param3,param4,param5,param6,param7:TSysParam):int64; oldfpccall; external name 'FPC_DOSYS7';
function do_sysCall(sysnr,param1,param2,param3,param4,param5,param6,param7,param8:TSysParam):int64; oldfpccall; external name 'FPC_DOSYS8';
{ This variable is needed in syscall.inc assembler code }
var
fpc_threadvar_relocate_proc : TRelocateThreadVarHandler; public name 'FPC_THREADVAR_RELOCATE';
{$define THREADVAR_RELOCATED_ALREADY_DEFINED}
{$endif}

5
rtl/bsd/x86_64/syscallh.inc
View File

@ -41,5 +41,10 @@ function do_sysCall(sysnr,param1,param2,param3,param4,param5:TSysParam):TSysResu
function do_sysCall(sysnr,param1,param2,param3,param4,param5,param6:TSysParam):int64; external name 'FPC_DOSYS6';
function do_sysCall(sysnr,param1,param2,param3,param4,param5,param6,param7:TSysParam):int64; external name 'FPC_DOSYS7';
{ This variable is needed in syscall.inc assembler code }
var
fpc_threadvar_relocate_proc : TRelocateThreadVarHandler; public name 'FPC_THREADVAR_RELOCATE';
{$define THREADVAR_RELOCATED_ALREADY_DEFINED}
{$endif}

2
rtl/inc/thread.inc
View File

@ -16,7 +16,9 @@
Var
CurrentTM : TThreadManager;
{$ifndef THREADVAR_RELOCATED_ALREADY_DEFINED}
fpc_threadvar_relocate_proc : TRelocateThreadVarHandler; public name 'FPC_THREADVAR_RELOCATE';
{$endif THREADVAR_RELOCATED_ALREADY_DEFINED}
{*****************************************************************************
Threadvar initialization

6
rtl/linux/mips/syscallh.inc
View File

@ -39,3 +39,9 @@ function Do_SysCall(sysnr,param1,param2,param3:TSysParam):TSysResult; external n
function Do_SysCall(sysnr,param1,param2,param3,param4:TSysParam):TSysResult; external name 'FPC_SYSCALL4';
function Do_SysCall(sysnr,param1,param2,param3,param4,param5:TSysParam):TSysResult; external name 'FPC_SYSCALL5';
function Do_SysCall(sysnr,param1,param2,param3,param4,param5,param6:TSysParam):TSysResult; external name 'FPC_SYSCALL6';
{ This variable is needed in syscall.inc assembler code }
var
fpc_threadvar_relocate_proc : TRelocateThreadVarHandler; public name 'FPC_THREADVAR_RELOCATE';
{$define THREADVAR_RELOCATED_ALREADY_DEFINED}

6
rtl/linux/powerpc/syscallh.inc
View File

@ -41,3 +41,9 @@ function Do_SysCall(sysnr,param1,param2,param3,param4:TSysParam):TSysResult; ext
function Do_SysCall(sysnr,param1,param2,param3,param4,param5:TSysParam):TSysResult; external name 'FPC_SYSCALL5';
function Do_SysCall(sysnr,param1,param2,param3,param4,param5,param6:TSysParam):TSysResult; external name 'FPC_SYSCALL6';
{ This variable is needed in syscall.inc assembler code }
var
fpc_threadvar_relocate_proc : TRelocateThreadVarHandler; public name 'FPC_THREADVAR_RELOCATE';
{$define THREADVAR_RELOCATED_ALREADY_DEFINED}

7
rtl/linux/powerpc64/syscallh.inc
View File

@ -31,3 +31,10 @@ function Do_SysCall(sysnr,param1,param2,param3:TSysParam):TSysResult; external n
function Do_SysCall(sysnr,param1,param2,param3,param4:TSysParam):TSysResult; external name 'FPC_SYSCALL4';
function Do_SysCall(sysnr,param1,param2,param3,param4,param5:TSysParam):TSysResult; external name 'FPC_SYSCALL5';
function Do_SysCall(sysnr,param1,param2,param3,param4,param5,param6:TSysParam):TSysResult; external name 'FPC_SYSCALL6';
{ This variable is needed in syscall.inc assembler code }
var
fpc_threadvar_relocate_proc : TRelocateThreadVarHandler; public name 'FPC_THREADVAR_RELOCATE';
{$define THREADVAR_RELOCATED_ALREADY_DEFINED}

6
rtl/linux/sparc/syscallh.inc
View File

@ -40,3 +40,9 @@ function Do_SysCall(sysnr,param1,param2,param3,param4:TSysParam):TSysResult; ext
function Do_SysCall(sysnr,param1,param2,param3,param4,param5:TSysParam):TSysResult; external name 'FPC_SYSCALL5';
function Do_SysCall(sysnr,param1,param2,param3,param4,param5,param6:TSysParam):TSysResult; external name 'FPC_SYSCALL6';
{ This variable is needed in syscall.inc assembler code }
var
fpc_threadvar_relocate_proc : TRelocateThreadVarHandler; public name 'FPC_THREADVAR_RELOCATE';
{$define THREADVAR_RELOCATED_ALREADY_DEFINED}