From ba18c26dda0c2e3a5e5ba61b04e22dcd468ba710 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Thu, 26 Mar 1998 10:41:15 +0000
Subject: [PATCH]   * some warnings fixed

---
 rtl/dos/go32v2/makefile | 17 +++++++++--------
 rtl/dos/graph.pp        |  9 +++++++--
 rtl/dos/ppi/global.ppi  |  8 +++++---
 3 files changed, 21 insertions(+), 13 deletions(-)

diff --git a/rtl/dos/go32v2/makefile b/rtl/dos/go32v2/makefile
index 4203b188bc..20ff13dfd1 100644
--- a/rtl/dos/go32v2/makefile
+++ b/rtl/dos/go32v2/makefile
@@ -131,7 +131,7 @@ endif
 SYSTEMDEPS=$(INC)/system.inc $(INC)/systemh.inc $(INC)/mathh.inc $(INC)/real2str.inc \
 	$(INC)/heaph.inc $(INC)/innr.inc $(INC)/sstrings.inc $(INC)/file.inc \
 	$(INC)/text.inc $(INC)/typefile.inc $(INC)/version.inc $(INC)/filerec.inc \
-	$(INC)/textrec.inc $(INC)/objpas.inc $(INC)/objpash.inc \
+        $(INC)/textrec.inc \
 	$(PROCINC)/math.inc $(PROCINC)/set.inc $(PROCINC)/heap.inc $(PROCINC)/$(CPU).inc
 
 PPUEXT=.ppu
@@ -206,8 +206,8 @@ system$(PPUEXT) : system.pp $(SYSTEMDEPS)
 	$(COPY) $(INC)/*.inc $(PROCINC)/*.inc .
 	$(PP) $(OPT) -dI386 -Us -Sg system $(REDIR)
 	$(DEL) systemh.inc system.inc real2str.inc version.inc $(CPU).inc sstrings.inc
-	$(DEL) mathh.inc math.inc set.inc innr.inc heap.inc heaph.inc objpash.inc
-	$(DEL) filerec.inc textrec.inc file.inc typefile.inc text.inc objpas.inc
+	$(DEL) mathh.inc math.inc set.inc innr.inc heap.inc heaph.inc
+	$(DEL) filerec.inc textrec.inc file.inc typefile.inc text.inc
 
 prt0$(OEXT) : v2prt0.as
 	as -o prt0$(OEXT) v2prt0.as
@@ -234,11 +234,6 @@ cpu$(PPUEXT) : ../../i386/cpu.pp system$(PPUEXT)
 	$(PP) $(OPT) cpu $(REDIR)
 	$(DEL) cpu.pp
 
-objpas$(PPUEXT) : ../../objpas/objpas.pp system$(PPUEXT)
-	$(COPY) ../../objpas/objpas.pp .
-	$(PP) $(OPT) objpas $(REDIR)
-	$(DEL) objpas.pp
-
 objects$(PPUEXT) : ../objects.pp system$(PPUEXT)
 	$(COPY) ../objects.pp .
 	$(PP) $(OPT) objects $(REDIR)
@@ -249,6 +244,12 @@ mouse$(PPUEXT) : ../mouse.pp system$(PPUEXT)
 	$(PP) $(OPT) mouse $(REDIR)
 	$(DEL) mouse.pp
 
+objpas$(PPUEXT) : ../../objpas/objpas.pp system$(PPUEXT)
+	$(COPY) ../../objpas/objpas.pp .
+	$(PP) $(OPT) objpas $(REDIR)
+	$(DEL) objpas.pp
+
+
 fmouse$(PPUEXT) : ../fmouse.pp system$(PPUEXT)
 	$(COPY) ../fmouse.pp .
 	$(PP) $(OPT) fmouse $(REDIR)
diff --git a/rtl/dos/graph.pp b/rtl/dos/graph.pp
index 9c3e008d4d..5bb409cb84 100644
--- a/rtl/dos/graph.pp
+++ b/rtl/dos/graph.pp
@@ -654,10 +654,12 @@ end;
 
 function RegisterBGIdriver(driver : pointer) : integer;
 begin
+   RegisterBGIdriver:=grerror;
 end;
 
 function InstallUserDriver(const DriverFileName : string;AutoDetectPtr : pointer) : integer;
 begin
+   installuserdriver:=grerror;
 end;
 
 function GetMaxMode:Integer;
@@ -822,8 +824,11 @@ end.
 
 {
   $Log$
-  Revision 1.1  1998-03-25 11:18:41  root
-  Initial revision
+  Revision 1.2  1998-03-26 10:41:15  florian
+    * some warnings fixed
+
+  Revision 1.1.1.1  1998/03/25 11:18:41  root
+  * Restored version
 
   Revision 1.7  1998/03/03 22:48:41  florian
     + graph.drawpoly procedure
diff --git a/rtl/dos/ppi/global.ppi b/rtl/dos/ppi/global.ppi
index 9224f61c57..7e4291766b 100644
--- a/rtl/dos/ppi/global.ppi
+++ b/rtl/dos/ppi/global.ppi
@@ -11,7 +11,6 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
-{$E-}
 {$PACKRECORDS NORMAL}
 
     const
@@ -189,8 +188,11 @@
 
 {
   $Log$
-  Revision 1.1  1998-03-25 11:18:42  root
-  Initial revision
+  Revision 1.2  1998-03-26 10:41:15  florian
+    * some warnings fixed
+
+  Revision 1.1.1.1  1998/03/25 11:18:42  root
+  * Restored version
 
   Revision 1.4  1998/03/03 22:48:42  florian
     + graph.drawpoly procedure