paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 15:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed modified registers for port routines

Browse Source
This commit is contained in:
Jonas Maebe 2000-01-04 12:56:09 +00:00
parent 4897ec254f
commit 4ad440c3e1
1 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
rtl/linux/linux.pp
View File

@ -3629,7 +3629,7 @@ begin
movl 8(%ebp),%edx
movb 12(%ebp),%al
outb %al,%dx
end;
end ['EAX','EDX'];
end;
Procedure WritePort (Port : Longint; Value : Word);
@ -3642,7 +3642,7 @@ begin
movl 8(%ebp),%edx
movw 12(%ebp),%ax
outw %ax,%dx
end ['EAX','EBX'];
end ['EAX','EDX'];
end;
@ -3657,7 +3657,7 @@ begin
movl 8(%ebp),%edx
movl 12(%ebp),%eax
outl %eax,%dx
end ['EAX','EBX'];
end ['EAX','EDX'];
end;
@ -3723,7 +3723,7 @@ begin
inb %dx,%al
andl $255,%eax
movl %eax,12(%ebp)
end ['EAX','EBX'];
end ['EAX','EDX'];
end;
@ -3738,7 +3738,7 @@ begin
inw %dx,%ax
andl $65535,%eax
movl %eax,12(%ebp)
end ['EAX','EBX'];
end ['EAX','EDX'];
end;
@ -3752,7 +3752,7 @@ begin
movl 8(%ebp),%edx
inl %dx,%eax
movl %eax,12(%ebp)
end ['EAX','EBX'];
end ['EAX','EDX'];
end;
@ -3768,7 +3768,7 @@ begin
cld
rep
insl
end ['ECX','ESI','EDX'];
end ['ECX','EDI','EDX'];
end;
@ -3785,7 +3785,7 @@ begin
cld
rep
insw
end ['ECX','ESI','EDX'];
end ['ECX','EDI','EDX'];
end;
@ -3802,7 +3802,7 @@ begin
cld
rep
insb
end ['ECX','ESI','EDX'];
end ['ECX','EDI','EDX'];
end;
{$ENDIF}
@ -3817,7 +3817,10 @@ End.
{
$Log$
Revision 1.56 1999-12-28 09:38:07 sg
Revision 1.57 2000-01-04 12:56:09 jonas
* fixed modified registers for port routines
Revision 1.56 1999/12/28 09:38:07 sg
* the long version of AssignStream now sets the result value to -1 in
_all_ cases when it would fail.