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

+ VMT reset to -1 if getmem called, neede for fail

Browse Source
This commit is contained in:
pierre 1999-08-18 10:43:31 +00:00
parent e33295ceb0
commit a0e69fbd00
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/i386/i386.inc
View File

@ -183,6 +183,7 @@ asm
pushl (%eax) pushl (%eax)
pushl %esi pushl %esi
call GetMem call GetMem
movl $-1,8(%ebp)
popal popal
{ Memory position to %esi } { Memory position to %esi }
movl (%esi),%esi movl (%esi),%esi
@ -832,7 +833,10 @@ end;
{ {
$Log$ $Log$
Revision 1.51 1999-08-09 22:20:02 peter Revision 1.52 1999-08-18 10:43:31 pierre
+ VMT reset to -1 if getmem called, neede for fail
Revision 1.51 1999/08/09 22:20:02 peter
* classes vmt changed to only positive addresses * classes vmt changed to only positive addresses
* sharedlib creation is working * sharedlib creation is working