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

* fpc_geteipasebx and fpc_geteipasecx are used as procedures, not functions, so declare them as such

Browse Source 
git-svn-id: trunk@45980 -
This commit is contained in:
svenbarth 2020-08-01 17:26:34 +00:00
parent 04cbf32b1b
commit 48cc5250f9
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/i386/i386.inc
View File

@ -67,13 +67,13 @@ procedure fpc_cpuinit;
end;
{$ifndef darwin}
function fpc_geteipasebx : pointer; [public, alias: 'fpc_geteipasebx'];assembler; nostackframe;
procedure fpc_geteipasebx; [public, alias: 'fpc_geteipasebx'];assembler; nostackframe;
asm
movl (%esp),%ebx
end;
function fpc_geteipasecx : pointer; [public, alias: 'fpc_geteipasecx'];assembler; nostackframe;
procedure fpc_geteipasecx; [public, alias: 'fpc_geteipasecx'];assembler; nostackframe;
asm
movl (%esp),%ecx
end;

2
rtl/linux/i386/si_prc.inc
View File

@ -42,7 +42,7 @@ var
dlexitproc : pointer;
{$ifdef FPC_PIC}
function fpc_geteipasebxlocal : pointer; [external name 'fpc_geteipasebx'];
procedure fpc_geteipasebxlocal; [external name 'fpc_geteipasebx'];
{$endif}
procedure InitTLS; [external name 'FPC_INITTLS'];