paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-05 13:29:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

* ifdef i386 for ports access

Browse Source
This commit is contained in:
carl 1998-08-14 12:01:04 +00:00
parent e87678be2f
commit c1cf6d35ed
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/linux/linux.pp
View File

@ -624,6 +624,7 @@ function TTYname(var F:Text):string;
***************************} ***************************}
Function IOperm (From,Num : Cardinal; Value : Longint) : boolean; Function IOperm (From,Num : Cardinal; Value : Longint) : boolean;
{$IFDEF I386}
Procedure WritePort (Port : Longint; Value : Byte); Procedure WritePort (Port : Longint; Value : Byte);
Procedure WritePort (Port : Longint; Value : Word); Procedure WritePort (Port : Longint; Value : Word);
Procedure WritePort (Port : Longint; Value : Longint); Procedure WritePort (Port : Longint; Value : Longint);
@ -636,7 +637,7 @@ Procedure ReadPort (Port : Longint; Var Value : Longint);
Procedure ReadPortL (Port : Longint; Var Buf; Count: longint); Procedure ReadPortL (Port : Longint; Var Buf; Count: longint);
Procedure ReadPortW (Port : Longint; Var Buf; Count: longint); Procedure ReadPortW (Port : Longint; Var Buf; Count: longint);
Procedure ReadPortB (Port : Longint; Var Buf; Count: longint); Procedure ReadPortB (Port : Longint; Var Buf; Count: longint);
{$ENDIF}
{************************** {**************************
Utility functions Utility functions
@ -3322,7 +3323,7 @@ begin
end; end;
{$IFDEF I386}
Procedure WritePort (Port : Longint; Value : Byte); Procedure WritePort (Port : Longint; Value : Byte);
{ {
Writes 'Value' to port 'Port' Writes 'Value' to port 'Port'
@ -3510,6 +3511,7 @@ begin
insb insb
end ['ECX','ESI','EDX']; end ['ECX','ESI','EDX'];
end; end;
{$ENDIF}
@ -3519,7 +3521,10 @@ End.
{ {
$Log$ $Log$
Revision 1.13 1998-08-12 11:10:25 michael Revision 1.14 1998-08-14 12:01:04 carl
* ifdef i386 for ports access
Revision 1.13 1998/08/12 11:10:25 michael
Added settimeofday function Added settimeofday function
Revision 1.12 1998/07/28 09:27:06 michael Revision 1.12 1998/07/28 09:27:06 michael