* objpas fixes

rtl/go32v2/go32.pp

@@ -15,6 +15,7 @@
 
 unit go32;
 
+{$Mode ObjFpc}
 {$S-,R-,I-,Q-} {no stack check, used by DPMIEXCP !! }
 
 interface
@@ -1170,7 +1171,10 @@ end.
 
 {
   $Log$
-  Revision 1.3  1999-03-26 00:01:52  peter
+  Revision 1.4  1999-05-13 21:54:27  peter
+    * objpas fixes
+
+  Revision 1.3  1999/03/26 00:01:52  peter
     * fixed rounding in global_dos_alloc
 
   Revision 1.2  1999/03/01 15:40:51  peter

rtl/objpas/objpas.pp

@@ -15,6 +15,7 @@
  **********************************************************************}
 unit objpas;
 
+{$Mode ObjFpc}
 {$I-,S-}
 
 interface
@@ -25,7 +26,7 @@ interface
 
     const
        // vmtSelfPtr           = -36;  { not implemented yet }
-       vmtMsgStrPtr            = -36;  
+       vmtMsgStrPtr            = -36;
        vmtIntfTable            = -32;
        vmtAutoTable            = -28;
        vmtInitTable            = -24;
@@ -200,7 +201,7 @@ interface
            vtWideString : (VWideString: Pointer);
 //           vtInt64      : (VInt64: PInt64);
        end;
-     
+
 {****************************************************************************
                              Compatibiity routines.
 ****************************************************************************}
@@ -417,7 +418,7 @@ Procedure AssignFile(Var f:TypedFile;c:char);
 
         var
            index : dword;
-           count,i : longint;           
+           count,i : longint;
            msgtable : pmsgtable;
            p : pointer;
            vmt : tclass;
@@ -456,7 +457,7 @@ Procedure AssignFile(Var f:TypedFile;c:char);
 
         var
            name : shortstring;
-           count,i : longint;           
+           count,i : longint;
            msgstrtable : pmsgstrtable;
            p : pointer;
            vmt : tclass;
@@ -615,7 +616,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.22  1999-04-16 20:47:20  florian
+  Revision 1.23  1999-05-13 21:54:28  peter
+    * objpas fixes
+
+  Revision 1.22  1999/04/16 20:47:20  florian
     + tobject.messagestringtable function for Megido/GTK support
       added
 

rtl/win32/ole2.pp

@@ -15,6 +15,8 @@
  **********************************************************************}
 unit ole2;
 
+{$Mode ObjFpc}
+
   interface
 
     uses
@@ -33,7 +35,10 @@ unit ole2;
 end.
 {
   $Log$
-  Revision 1.2  1999-03-30 17:00:25  peter
+  Revision 1.3  1999-05-13 21:54:29  peter
+    * objpas fixes
+
+  Revision 1.2  1999/03/30 17:00:25  peter
     * fixes for 0.99.10
 
   Revision 1.1  1999/03/22 22:12:51  florian