* make sure to preserve edi in free_memory_block

git-svn-id: trunk@8255 -

rtl/go32v2/go32.pp

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