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

merge for fixes branch

Browse Source
This commit is contained in:
pierre 1998-09-11 17:38:48 +00:00
parent ca51e0365a
commit e283510c19
2 changed files with 24 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/i386/i386.inc
View File

@ -220,7 +220,7 @@ asm
{ esi contains the vmt }
pushl %esi
{ call newinstance (class method!) }
call 16(%esi)
call *16(%esi)
{ newinstance returns a pointer to the new created }
{ instance in eax }
{ load esi and insert self }
@ -245,7 +245,7 @@ asm
{ push self }
pushl %esi
{ call freeinstance }
call 20(%edi)
call *20(%edi)
.LDISPOSE_CLASS1:
{ load self }
movl 8(%ebp),%esi
@ -752,7 +752,13 @@ end;
{
$Log$
Revision 1.19 1998-09-01 17:36:17 peter
Revision 1.20 1998-09-11 17:38:48 pierre
merge for fixes branch
Revision 1.19.2.1 1998/09/11 17:37:24 pierre
* correction respective to stricter as v2.9.1 syntax
Revision 1.19 1998/09/01 17:36:17 peter
+ internconst
Revision 1.18 1998/08/11 00:04:47 peter

24
rtl/i386/math.inc
View File

@ -106,15 +106,15 @@
fldl 8(%ebp)
fldl2e
fmulp
fstcww .LCW1
fstcww .LCW2
fstcw .LCW1
fstcw .LCW2
fwait
andw $0xf3ff,.LCW2
orw $0x0400,.LCW2
fldcww .LCW2
fldcw .LCW2
fldl %st(0)
frndint
fldcww .LCW1
fldcw .LCW1
fxch %st(1)
fsub %st(1),%st
f2xm1
@ -347,15 +347,15 @@
fldt 8(%ebp)
fldl2e
fmulp
fstcww .LCW1
fstcww .LCW2
fstcw .LCW1
fstcw .LCW2
fwait
andw $0xf3ff,.LCW2
orw $0x0400,.LCW2
fldcww .LCW2
fldcw .LCW2
fld %st(0)
frndint
fldcww .LCW1
fldcw .LCW1
fxch %st(1)
fsub %st(1),%st
f2xm1
@ -634,7 +634,13 @@
{
$Log$
Revision 1.8 1998-09-01 17:36:18 peter
Revision 1.9 1998-09-11 17:38:49 pierre
merge for fixes branch
Revision 1.8.2.1 1998/09/11 17:37:25 pierre
* correction respective to stricter as v2.9.1 syntax
Revision 1.8 1998/09/01 17:36:18 peter
+ internconst
Revision 1.7 1998/08/25 08:49:05 florian