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

* merged popal fix

Browse Source
This commit is contained in:
peter 2001-04-16 11:22:53 +00:00
parent 4a663cd4ed
commit 73a59b9ca3
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/i386/i386.inc
View File

@ -454,7 +454,11 @@ asm
ret ret
.LHC_7: .LHC_7:
{ set zero inside the object } { set zero inside the object }
pushal { pushal - crashes the 386 CPU }
pushl %eax
pushl %edi
pushl %ecx
cld cld
movl (%eax),%ecx movl (%eax),%ecx
movl %esi,%edi movl %esi,%edi
@ -467,7 +471,9 @@ asm
movl %ebx,%ecx movl %ebx,%ecx
rep rep
stosb stosb
popal popl %ecx
popl %edi
popl %eax
{ set the VMT address for the new created object } { set the VMT address for the new created object }
{ the offset is in %edi since the calling and has not been changed !! } { the offset is in %edi since the calling and has not been changed !! }
movl %eax,(%esi,%edi,1) movl %eax,(%esi,%edi,1)
@ -1110,7 +1116,10 @@ procedure inclocked(var l : longint);assembler;
{ {
$Log$ $Log$
Revision 1.9 2001-04-08 13:19:28 jonas Revision 1.10 2001-04-16 11:22:53 peter
* merged popal fix
Revision 1.9 2001/04/08 13:19:28 jonas
* optimized FPC_HELP_CONSTRUCTOR a bit * optimized FPC_HELP_CONSTRUCTOR a bit
Revision 1.8 2001/03/05 17:10:04 jonas Revision 1.8 2001/03/05 17:10:04 jonas