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

* make sure to preserve edi in free_memory_block

Browse Source 
git-svn-id: trunk@8255 -
This commit is contained in:
Tomas Hajny 2007-08-09 18:41:27 +00:00
parent 1967deb137
commit 05b3c0311b
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/go32v2/go32.pp
View File

@ -849,6 +849,7 @@ interface
function free_memory_block(blockhandle : longint) : boolean; function free_memory_block(blockhandle : longint) : boolean;
begin begin
asm asm
pushl %edi
pushl %esi pushl %esi
movl blockhandle,%esi movl blockhandle,%esi
movl %esi,%edi movl %esi,%edi
@ -859,6 +860,7 @@ interface
call test_int31 call test_int31
movb %al,__RESULT movb %al,__RESULT
popl %esi popl %esi
popl %edi
end; end;
end; end;