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

* objects support also default properties, so the ports unit does not depend on objpas anymore

Browse Source 
git-svn-id: trunk@37555 -
This commit is contained in:
florian 2017-11-05 15:10:55 +00:00
parent 2140b586a6
commit 13df5b51db
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/msdos/ports.pp
View File

@ -18,7 +18,6 @@ unit ports;
{ this unit uses classes so
ObjFpc mode is required PM }
{$Mode ObjFpc}
{$if defined(CPU80386)
or defined(CPUPENTIUM)
@ -32,20 +31,20 @@ unit ports;
interface
type
tport = class
tport = object
procedure writeport(p : word;data : byte);
function readport(p : word) : byte;
property pp[w : word] : byte read readport write writeport;default;
end;
tportw = class
tportw = object
procedure writeport(p : word;data : word);
function readport(p : word) : word;
property pp[w : word] : word read readport write writeport;default;
end;
{$ifdef CPU_IS_386_OR_LATER}
tportl = class
tportl = object
procedure writeport(p : word;data : longint);
function readport(p : word) : longint;
property pp[w : word] : longint read readport write writeport;default;