From d92f56843e08cab5bffba025bba39c28b74af887 Mon Sep 17 00:00:00 2001 From: pierre Date: Fri, 24 Apr 1998 08:26:50 +0000 Subject: [PATCH] * had to rename property from p to pp to avoid duplicate identifier error in implementation of readport and writeport that have p as argument --- rtl/dos/go32.pp | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) diff --git a/rtl/dos/go32.pp b/rtl/dos/go32.pp index 04d75a6060..ff7c1a6b6c 100644 --- a/rtl/dos/go32.pp +++ b/rtl/dos/go32.pp @@ -186,19 +186,19 @@ unit go32; tport = class procedure writeport(p : word;data : 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; tportw = class procedure writeport(p : word;data : 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; tportl = class procedure writeport(p : word;data : 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; var { we don't need to initialize port, because neither member @@ -1209,7 +1209,13 @@ end. { $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 Revision 1.2 1998/03/29 17:26:20 florian