paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 22:14:25 +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 } { esi contains the vmt }
pushl %esi pushl %esi
{ call newinstance (class method!) } { call newinstance (class method!) }
call 16(%esi) call *16(%esi)
{ newinstance returns a pointer to the new created } { newinstance returns a pointer to the new created }
{ instance in eax } { instance in eax }
{ load esi and insert self } { load esi and insert self }
@ -245,7 +245,7 @@ asm
{ push self } { push self }
pushl %esi pushl %esi
{ call freeinstance } { call freeinstance }
call 20(%edi) call *20(%edi)
.LDISPOSE_CLASS1: .LDISPOSE_CLASS1:
{ load self } { load self }
movl 8(%ebp),%esi movl 8(%ebp),%esi
@ -752,7 +752,13 @@ end;
{ {
$Log$ $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 + internconst
Revision 1.18 1998/08/11 00:04:47 peter Revision 1.18 1998/08/11 00:04:47 peter

24
rtl/i386/math.inc
View File

@ -106,15 +106,15 @@
fldl 8(%ebp) fldl 8(%ebp)
fldl2e fldl2e
fmulp fmulp
fstcww .LCW1 fstcw .LCW1
fstcww .LCW2 fstcw .LCW2
fwait fwait
andw $0xf3ff,.LCW2 andw $0xf3ff,.LCW2
orw $0x0400,.LCW2 orw $0x0400,.LCW2
fldcww .LCW2 fldcw .LCW2
fldl %st(0) fldl %st(0)
frndint frndint
fldcww .LCW1 fldcw .LCW1
fxch %st(1) fxch %st(1)
fsub %st(1),%st fsub %st(1),%st
f2xm1 f2xm1
@ -347,15 +347,15 @@
fldt 8(%ebp) fldt 8(%ebp)
fldl2e fldl2e
fmulp fmulp
fstcww .LCW1 fstcw .LCW1
fstcww .LCW2 fstcw .LCW2
fwait fwait
andw $0xf3ff,.LCW2 andw $0xf3ff,.LCW2
orw $0x0400,.LCW2 orw $0x0400,.LCW2
fldcww .LCW2 fldcw .LCW2
fld %st(0) fld %st(0)
frndint frndint
fldcww .LCW1 fldcw .LCW1
fxch %st(1) fxch %st(1)
fsub %st(1),%st fsub %st(1),%st
f2xm1 f2xm1
@ -634,7 +634,13 @@
{ {
$Log$ $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 + internconst
Revision 1.7 1998/08/25 08:49:05 florian Revision 1.7 1998/08/25 08:49:05 florian