+ add the ports[] access to the go32v2 system unit as well

git-svn-id: trunk@39423 -

rtl/go32v2/ports.pp

@@ -16,14 +16,23 @@
 
 unit ports;
 
-{$inline ON}
-
 interface
 
-{$I portsh.inc}
+{ Since this platform has port access built into the System unit, this unit just
+  creates aliases, for compatibility for programs, that already use the ports
+  unit.  }
 
-implementation
+type
+  tport = System.tport;
+  tportw = System.tportw;
+  tportl = System.tportl;
 
-{$I ports.inc}
+var
+   port  : tport absolute System.port;
+   portb : tport absolute System.portb;
+   portw : tportw absolute System.portw;
+   portl : tportl absolute System.portl;
+
+implementation
 
 end.

rtl/go32v2/system.pp

@@ -32,6 +32,7 @@ interface
 { include system-independent routine headers }
 
 {$I systemh.inc}
+{$I portsh.inc}
 
 
 const
@@ -157,6 +158,7 @@ implementation
 { include system independent routines }
 
 {$I system.inc}
+{$I ports.inc}
 
 
 var