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

* smaller sptr function

Browse Source
This commit is contained in:
peter 1999-05-31 12:49:19 +00:00
parent 18109ff6ff
commit 03535bc427
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/i386/i386.inc
View File

@ -658,13 +658,9 @@ asm
end ['EAX'];
Function Sptr : Longint;
begin
asm
movl %esp,%eax
addl $8,%eax
movl %eax,-4(%ebp)
end ['EAX'];
Function Sptr : Longint;assembler;
asm
movl %esp,%eax
end;
@ -800,7 +796,10 @@ end;
{
$Log$
Revision 1.45 1999-04-22 10:52:40 peter
Revision 1.46 1999-05-31 12:49:19 peter
* smaller sptr function
Revision 1.45 1999/04/22 10:52:40 peter
* nil check for strpas
Revision 1.44 1999/04/19 06:13:28 florian