Merged revisions 8255 via svnmerge from

http://svn.freepascal.org/svn/fpc/trunk

........
r8255 | hajny | 2007-08-09 18:41:27 +0000 (Thu, 09 Aug 2007) | 1 line

  * make sure to preserve edi in free_memory_block
........

git-svn-id: branches/fixes_2_2@8262 -

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;