Forráskód Böngészése

Merged revisions 4146 via svnmerge from
http://[email protected]/svn/fpc/trunk

........
r4146 | hajny | 2006-07-11 22:10:29 +0000 (Tue, 11 Jul 2006) | 1 line

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

git-svn-id: branches/fixes_2_0@4164 -

Tomas Hajny 19 éve
szülő
commit
76a3a8a266
2 módosított fájl, 5 hozzáadás és 5 törlés
  1. 4 4
      rtl/go32v2/crt.pp
  2. 1 1
      rtl/go32v2/go32.pp

+ 4 - 4
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;

+ 1 - 1
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);