paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-24 10:01:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed readport* functions (thanks Florian ;)

Browse Source
This commit is contained in:
Jonas Maebe 2000-03-27 13:25:48 +00:00
parent a6910bcb41
commit 36df88a15d
1 changed files with 22 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
rtl/linux/linux.pp
View File

@ -3828,44 +3828,39 @@ end;
function ReadPortB (Port : Longint): Byte;
function ReadPortB (Port : Longint): Byte; assembler;
{
Reads a byte from port 'Port'
}
begin
asm
xorl %eax,%eax
movl port,%edx
inb %dx,%al
end ['EAX','EDX'];
end;
asm
xorl %eax,%eax
movl port,%edx
inb %dx,%al
end ['EAX','EDX'];
function ReadPortW (Port : Longint): Word;
function ReadPortW (Port : Longint): Word; assembler;
{
Reads a word from port 'Port'
}
begin
asm
xorl %eax,%eax
movl port,%edx
inw %dx,%ax
end ['EAX','EDX'];
end;
asm
xorl %eax,%eax
movl port,%edx
inw %dx,%ax
end ['EAX','EDX'];
function ReadPortL (Port : Longint): LongInt;
function ReadPortL (Port : Longint): LongInt; assembler;
{
Reads a LongInt from port 'Port'
}
begin
asm
movl port,%edx
inl %dx,%eax
end ['EAX','EDX'];
end;
asm
movl port,%edx
inl %dx,%eax
end ['EAX','EDX'];
@ -3930,7 +3925,10 @@ End.
{
$Log$
Revision 1.65 2000-03-23 17:10:32 jonas
Revision 1.66 2000-03-27 13:25:48 jonas
* fixed readport* functions (thanks Florian ;)
Revision 1.65 2000/03/23 17:10:32 jonas
* fixes for port reading
Revision 1.64 2000/03/17 13:27:00 sg