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

* use __HIGH()

Browse Source
This commit is contained in:
peter 2003-10-16 21:28:40 +00:00
parent b4d7de8d1f
commit 26434b49f1
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/i386/i386.inc
View File

@ -956,7 +956,7 @@ begin
movl s2,%esi
movl %edi,%ebx
movzbl (%edi),%ecx
movl s1+4,%eax
movl __HIGH(s1),%eax
lea 1(%edi,%ecx),%edi
negl %ecx
addl %eax,%ecx
@ -1319,7 +1319,10 @@ end;
{
$Log$
Revision 1.48 2003-10-14 00:57:48 florian
Revision 1.49 2003-10-16 21:28:40 peter
* use __HIGH()
Revision 1.48 2003/10/14 00:57:48 florian
+ some code for PIC support added
Revision 1.47 2003/09/14 11:34:13 peter