From 48cc5250f9c17a1dafa3ecb4ec6b43501d557566 Mon Sep 17 00:00:00 2001 From: svenbarth Date: Sat, 1 Aug 2020 17:26:34 +0000 Subject: [PATCH] * fpc_geteipasebx and fpc_geteipasecx are used as procedures, not functions, so declare them as such git-svn-id: trunk@45980 - --- rtl/i386/i386.inc | 4 ++-- rtl/linux/i386/si_prc.inc | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/rtl/i386/i386.inc b/rtl/i386/i386.inc index 64dc6f7332..d620a4f2aa 100644 --- a/rtl/i386/i386.inc +++ b/rtl/i386/i386.inc @@ -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; diff --git a/rtl/linux/i386/si_prc.inc b/rtl/linux/i386/si_prc.inc index 5434d27562..ae0531dd9e 100644 --- a/rtl/linux/i386/si_prc.inc +++ b/rtl/linux/i386/si_prc.inc @@ -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'];