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

* had to rename property from p to pp to

Browse Source 
avoid duplicate identifier error in
    implementation of readport and writeport
    that have p as argument
This commit is contained in:
pierre 1998-04-24 08:26:50 +00:00
parent bef30e693c
commit d92f56843e
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/dos/go32.pp
View File

@ -186,19 +186,19 @@ unit go32;
tport = class tport = class
procedure writeport(p : word;data : byte); procedure writeport(p : word;data : byte);
function readport(p : word) : byte; function readport(p : word) : byte;
property p[w : word] : byte read readport write writeport;default; property pp[w : word] : byte read readport write writeport;default;
end; end;
tportw = class tportw = class
procedure writeport(p : word;data : word); procedure writeport(p : word;data : word);
function readport(p : word) : word; function readport(p : word) : word;
property p[w : word] : word read readport write writeport;default; property pp[w : word] : word read readport write writeport;default;
end; end;
tportl = class tportl = class
procedure writeport(p : word;data : longint); procedure writeport(p : word;data : longint);
function readport(p : word) : longint; function readport(p : word) : longint;
property p[w : word] : longint read readport write writeport;default; property pp[w : word] : longint read readport write writeport;default;
end; end;
var var
{ we don't need to initialize port, because neither member { we don't need to initialize port, because neither member
@ -1209,7 +1209,13 @@ end.
{ {
$Log$ $Log$
Revision 1.3 1998-04-12 22:35:29 florian Revision 1.4 1998-04-24 08:26:50 pierre
* had to rename property from p to pp to
avoid duplicate identifier error in
implementation of readport and writeport
that have p as argument
Revision 1.3 1998/04/12 22:35:29 florian
+ support of port-array added + support of port-array added
Revision 1.2 1998/03/29 17:26:20 florian Revision 1.2 1998/03/29 17:26:20 florian