From db0b6adef86ec99952a757e5a4ed1ca56da2d771 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Mon, 9 Jul 2018 16:26:52 +0000
Subject: [PATCH] + add the ports[] access to the go32v2 system unit as well

git-svn-id: trunk@39423 -
---
 rtl/go32v2/ports.pp  | 19 ++++++++++++++-----
 rtl/go32v2/system.pp |  2 ++
 2 files changed, 16 insertions(+), 5 deletions(-)

diff --git a/rtl/go32v2/ports.pp b/rtl/go32v2/ports.pp
index e59880ac52..cb8a61102e 100644
--- a/rtl/go32v2/ports.pp
+++ b/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.  }
+
+type
+  tport = System.tport;
+  tportw = System.tportw;
+  tportl = System.tportl;
+
+var
+   port  : tport absolute System.port;
+   portb : tport absolute System.portb;
+   portw : tportw absolute System.portw;
+   portl : tportl absolute System.portl;
 
 implementation
 
-{$I ports.inc}
-
 end.
diff --git a/rtl/go32v2/system.pp b/rtl/go32v2/system.pp
index fd09bf6759..0849b1e2ee 100644
--- a/rtl/go32v2/system.pp
+++ b/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