fixed the warning

install/demo/mandel.pp

@@ -27,8 +27,10 @@ uses
 {$endif go32v2}
   dos,Graph;
 
+{
 const
   shift:byte=12;
+}
 
 var
   SearchPoint,ActualPoint,NextPoint       : PointType;
@@ -325,7 +327,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.8  2000-01-04 15:29:42  marco
+  Revision 1.9  2000-02-22 03:43:55  alex
+  fixed the warning
+
+  Revision 1.8  2000/01/04 15:29:42  marco
    * fixed constants for graphmodes
 
   Revision 1.7  1999/12/22 14:36:07  jonas

install/demo/maze.pp

@@ -50,7 +50,7 @@ const
 
   unused   = $00;    { cell types used as flag bits }
   frontier = $10;
-  reserved = $20;
+{  reserved = $20; }
   tree     = $30;
 
 

install/demo/win32/testdll.pp

@@ -39,7 +39,7 @@ end;
 
 procedure P4(x1:pointer);export;
 begin
-  x1:=Nil;
+  Inc(x1);
 end;
 
 procedure NewExit;
@@ -62,7 +62,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.4  2000-01-21 00:44:51  peter
+  Revision 1.5  2000-02-22 03:46:55  alex
+  fixed the warning
+
+  Revision 1.4  2000/01/21 00:44:51  peter
     * remove unused vars
     * renamed to .pp