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

* regvars problem fixed

Browse Source
This commit is contained in:
marco 2005-02-05 08:42:24 +00:00
parent 254c09ae48
commit b5114bfed2
1 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/unix/x86.pp
View File

@ -232,25 +232,21 @@ function ReadPortB (Port : Longint): Byte; assembler;
}
asm
xorl %eax,%eax
movl port,%edx
xorl %eax,%eax
inb %dx,%al
end ['EAX','EDX'];
function ReadPortW (Port : Longint): Word; assembler;
{
Reads a word from port 'Port'
}
asm
xorl %eax,%eax
movl port,%edx
xorl %eax,%eax
inw %dx,%ax
end ['EAX','EDX'];
function ReadPortL (Port : Longint): LongInt; assembler;
{
Reads a LongInt from port 'Port'
@ -260,8 +256,6 @@ asm
inl %dx,%eax
end ['EAX','EDX'];
Procedure ReadPortL (Port : Longint; Var Buf; Count: longint);
{
Reads 'Count' longints from port 'Port' to 'Buf'.
@ -330,7 +324,10 @@ end.
{
$Log$
Revision 1.3 2004-04-12 10:31:58 marco
Revision 1.4 2005-02-05 08:42:24 marco
* regvars problem fixed
Revision 1.3 2004/04/12 10:31:58 marco
* ioperm/iopl added from linuxold. Untested but will probably work
}