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

* changed the visibility of the writeport and readport methods in the ports unit

Browse Source 
objects to private (since they should be accessed only through the default
  indexed property)

git-svn-id: trunk@39421 -
This commit is contained in:
nickysn 2018-07-09 14:55:20 +00:00
parent 7df861487b
commit 8e6205aca6
3 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/i386/portsh.inc
View File

@ -35,20 +35,26 @@ type
end;
{$else VER3_0}
tport = object
private
procedure writeport(p : word;data : byte);inline;
function readport(p : word) : byte;inline;
public
property pp[w : word] : byte read readport write writeport;default;
end;
tportw = object
private
procedure writeport(p : word;data : word);inline;
function readport(p : word) : word;inline;
public
property pp[w : word] : word read readport write writeport;default;
end;
tportl = object
private
procedure writeport(p : word;data : longint);inline;
function readport(p : word) : longint;inline;
public
property pp[w : word] : longint read readport write writeport;default;
end;
{$endif VER3_0}

6
rtl/i8086/portsh.inc
View File

@ -15,20 +15,26 @@
type
tport = object
private
procedure writeport(p : word;data : byte);inline;
function readport(p : word) : byte;inline;
public
property pp[w : word] : byte read readport write writeport;default;
end;
tportw = object
private
procedure writeport(p : word;data : word);inline;
function readport(p : word) : word;inline;
public
property pp[w : word] : word read readport write writeport;default;
end;
tportl = object
private
procedure writeport(p : word;data : longint);
function readport(p : word) : longint;
public
property pp[w : word] : longint read readport write writeport;default;
end;

6
rtl/x86_64/portsh.inc
View File

@ -18,7 +18,7 @@
type
tport = object
protected
private
procedure writeport(p : longint;data : byte);inline;
function readport(p : longint) : byte;inline;
public
@ -26,7 +26,7 @@ type
end;
tportw = object
protected
private
procedure writeport(p : longint;data : word);inline;
function readport(p : longint) : word;inline;
public
@ -34,7 +34,7 @@ type
end;
tportl = object
Protected
Private
procedure writeport(p : longint;data : longint);inline;
function readport(p : longint) : longint;inline;
Public