paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-17 00:20:46 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ use the x86 inline intrinsics for port access in the unix ports unit as well

Browse Source 
git-svn-id: trunk@39372 -
This commit is contained in:
nickysn 2018-07-04 00:17:18 +00:00
parent 3ed284953b
commit f733e0a31c
1 changed files with 35 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

59
rtl/unix/ports.pp
View File

@ -14,35 +14,35 @@
Unit ports; Unit ports;
{$mode objfpc} {$inline on}
{ Implements the { Implements the
port[] portw[] and portl[] port[] portw[] and portl[]
constructs using Delphi classes } constructs using objects }
Interface Interface
type type
tport = class tport = object
protected protected
procedure writeport(p : longint;data : byte); procedure writeport(p : longint;data : byte);inline;
function readport(p : longint) : byte; function readport(p : longint) : byte;inline;
public public
property pp[w : longint] : byte read readport write writeport;default; property pp[w : longint] : byte read readport write writeport;default;
end; end;
tportw = class tportw = object
protected protected
procedure writeport(p : longint;data : word); procedure writeport(p : longint;data : word);inline;
function readport(p : longint) : word; function readport(p : longint) : word;inline;
public public
property pp[w : longint] : word read readport write writeport;default; property pp[w : longint] : word read readport write writeport;default;
end; end;
tportl = class tportl = object
Protected Protected
procedure writeport(p : longint;data : longint); procedure writeport(p : longint;data : longint);inline;
function readport(p : longint) : longint; function readport(p : longint) : longint;inline;
Public Public
property pp[w : Longint] : longint read readport write writeport;default; property pp[w : Longint] : longint read readport write writeport;default;
end; end;
@ -60,44 +60,55 @@ var
implementation implementation
uses x86; {$IFDEF VER3_0}
{ Bootstrapping kludge. Note that these do nothing, but since I/O ports are not
necessary for bootstrapping, these are only added to make the rtl compile
with 3.0.
}
procedure fpc_x86_outportb(p:longint;v:byte); begin end;
procedure fpc_x86_outportw(p:longint;v:word); begin end;
procedure fpc_x86_outportl(p:longint;v:longint); begin end;
function fpc_x86_inportb(p:word):byte; begin fpc_x86_inportb:=0; end;
function fpc_x86_inportw(p:word):word; begin fpc_x86_inportw:=0; end;
function fpc_x86_inportl(p:word):longint; begin fpc_x86_inportl:=0; end;
{$ENDIF VER3_0}
{ to give easy port access like tp with port[] } { to give easy port access like tp with port[] }
procedure tport.writeport(p : Longint;data : byte); procedure tport.writeport(p : Longint;data : byte);inline;
begin begin
x86.writeport (p,data) fpc_x86_outportb(p,data)
end; end;
function tport.readport(p : Longint) : byte; function tport.readport(p : Longint) : byte;inline;
begin begin
readport := x86.readportb (p); readport := fpc_x86_inportb(p);
end; end;
procedure tportw.writeport(p : longint;data : word); procedure tportw.writeport(p : longint;data : word);inline;
begin begin
x86.writeport (p,data) fpc_x86_outportw(p,data)
end; end;
function tportw.readport(p : longint) : word; function tportw.readport(p : longint) : word;inline;
begin begin
readport := x86.readportw(p); readport := fpc_x86_inportw(p);
end; end;
procedure tportl.writeport(p : longint;data : longint); procedure tportl.writeport(p : longint;data : longint);inline;
begin begin
x86.writeport (p,data) fpc_x86_outportl(p,data)
end; end;
function tportl.readport(p : longint) : longint; function tportl.readport(p : longint) : longint;inline;
begin begin
readPort := x86.readportl(p); readPort := fpc_x86_inportl(p);
end; end;
end. end.