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

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

Browse Source 
git-svn-id: trunk@4146 -
This commit is contained in:
Tomas Hajny 2006-07-11 22:10:29 +00:00
parent bddcc8f902
commit e8b76c157b
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/go32v2/crt.pp
View File

@ -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;

2
rtl/go32v2/go32.pp
View File

@ -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);