* patch by borsa77 at libero.it - fixed information about destroyed registers

git-svn-id: trunk@4146 -

rtl/go32v2/crt.pp

@@ -376,7 +376,7 @@ asm
         cmpl    %fs:(%edi),%ebx
         je      .LDelayLoop1
 .LDelayLoop2:
-end;
+end ['EAX'];
 
 
 procedure initdelay;assembler;
@@ -404,7 +404,7 @@ asm
         movl    %eax,DelayCnt
         popl %edi
         popl %ebx
-end;
+end ['EAX','ECX','EDX'];
 
 
 procedure Delay(MS: Word);assembler;
@@ -423,7 +423,7 @@ asm
 .LDelay2:
         popl %edi
         popl %ebx
-end;
+end ['EAX','ECX','EDX'];
 
 
 procedure sound(hz : word);
@@ -452,7 +452,7 @@ begin
         movb    %ch,%al
         outb    %al,$0x42
   end ['EAX','ECX','EDX'];
-end;
+end ['EAX','ECX'];
 
 
 procedure nosound;

rtl/go32v2/go32.pp

@@ -433,7 +433,7 @@ interface
               popw %es
               popl %edi
               popl %esi
-           end ['ESI','EDI','ECX'];
+           end ['ECX','EAX'];
       end;
 
     procedure outportb(port : word;data : byte);