- removed the objpas dependency of unit ports under go32v2 as well

git-svn-id: trunk@37559 -

rtl/go32v2/Makefile

@@ -3140,7 +3140,7 @@ emu387$(PPUEXT) : emu387.pp fpu$(OEXT) strings$(PPUEXT) dxeload$(PPUEXT) \
 		  dpmiexcp$(PPUEXT)
 	$(COMPILER) emu387.pp
 	$(EXECPPAS)
-ports$(PPUEXT) : ports.pp objpas$(PPUEXT) system$(PPUEXT)
+ports$(PPUEXT) : ports.pp system$(PPUEXT)
 	$(COMPILER) ports.pp
 	$(EXECPPAS)
 dos$(PPUEXT) : dos.pp $(INC)/filerec.inc $(INC)/textrec.inc \

rtl/go32v2/Makefile.fpc

@@ -134,7 +134,7 @@ emu387$(PPUEXT) : emu387.pp fpu$(OEXT) strings$(PPUEXT) dxeload$(PPUEXT) \
 	$(COMPILER) emu387.pp
 	$(EXECPPAS)
 
-ports$(PPUEXT) : ports.pp objpas$(PPUEXT) system$(PPUEXT)
+ports$(PPUEXT) : ports.pp system$(PPUEXT)
 	$(COMPILER) ports.pp
 	$(EXECPPAS)
 

rtl/go32v2/ports.pp

@@ -16,27 +16,24 @@
 
 unit ports;
 
-{ this unit uses classes so
-  ObjFpc mode is required PM }
-{$Mode ObjFpc}
 {$Calling StdCall}
 
 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;
 
-   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;