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

- Removed register lists after pure assembler procedures, they are ignored anyway.

Browse Source 
git-svn-id: trunk@25550 -
This commit is contained in:
sergei 2013-09-24 16:27:34 +00:00
parent d6a4e30f06
commit 5dd10ade50
2 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/go32v2/crt.pp
View File

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

12
rtl/go32v2/ports.pp
View File

@ -60,14 +60,14 @@ asm
movw p,%dx
movb data,%al
outb %al,%dx
end ['EAX','EDX'];
end;
function tport.readport(p : word) : byte;assembler;
asm
movw p,%dx
inb %dx,%al
end ['EAX','EDX'];
end;
procedure tportw.writeport(p : word;data : word);assembler;
@ -75,14 +75,14 @@ asm
movw p,%dx
movw data,%ax
outw %ax,%dx
end ['EAX','EDX'];
end;
function tportw.readport(p : word) : word;assembler;
asm
movw p,%dx
inw %dx,%ax
end ['EAX','EDX'];
end;
procedure tportl.writeport(p : word;data : longint);assembler;
@ -90,13 +90,13 @@ asm
movw p,%dx
movl data,%eax
outl %eax,%dx
end ['EAX','EDX'];
end;
function tportl.readport(p : word) : longint;assembler;
asm
movw p,%dx
inl %dx,%eax
end ['EAX','EDX'];
end;
end.