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

* Use fpc_geteipasebx.

Browse Source 
git-svn-id: trunk@9792 -
This commit is contained in:
daniel 2008-01-19 15:24:36 +00:00
parent 4ca3a590e8
commit d12e107800
1 changed files with 1 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

@ -1142,9 +1142,7 @@ str_int_shortcut:
imul $1233,%ecx imul $1233,%ecx
shr $12,%ecx shr $12,%ecx
{$ifdef FPC_PIC} {$ifdef FPC_PIC}
call .Lpic call fpc_geteipasebx
.Lpic:
pop %ebx
{$ifdef darwin} {$ifdef darwin}
movl digits-.Lpic(%ebx),%ebx movl digits-.Lpic(%ebx),%ebx
{$else} {$else}