paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 20:29:17 +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 cmpl %fs:(%edi),%ebx
je .LDelayLoop1 je .LDelayLoop1
.LDelayLoop2: .LDelayLoop2:
end ['EAX']; end;
procedure initdelay;assembler; procedure initdelay;assembler;
@ -404,7 +404,7 @@ asm
movl %eax,DelayCnt movl %eax,DelayCnt
popl %edi popl %edi
popl %ebx popl %ebx
end ['EAX','ECX','EDX']; end;
procedure Delay(MS: Word);assembler; procedure Delay(MS: Word);assembler;
@ -423,7 +423,7 @@ asm
.LDelay2: .LDelay2:
popl %edi popl %edi
popl %ebx popl %ebx
end ['EAX','ECX','EDX']; end;
procedure sound(hz : word); procedure sound(hz : word);

12
rtl/go32v2/ports.pp
View File

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