Selaa lähdekoodia

* fixes for the stricter compiler

peter 24 vuotta sitten
vanhempi
commit
46b58ded78
6 muutettua tiedostoa jossa 69 lisäystä ja 51 poistoa
  1. 5 2
      rtl/inc/dynarr.inc
  2. 5 2
      rtl/inc/graph/modes.inc
  3. 40 37
      rtl/inc/objpash.inc
  4. 7 4
      rtl/unix/ggigraph.pp
  5. 7 4
      rtl/unix/graph.pp
  6. 5 2
      rtl/unix/sysunixh.inc

+ 5 - 2
rtl/inc/dynarr.inc

@@ -29,7 +29,7 @@ type
    { to calculate memory requirements       }
    pdynarray = ^tdynarray;
    tdynarray = packed record
-      refcount : dword;
+      refcount : longint;
       high : tdynarrayindex;
    end;
 
@@ -202,7 +202,10 @@ function dynarray_copy(var p : pointer;ti : pdynarraytypeinfo;
 
 {
   $Log$
-  Revision 1.5  2000-12-01 23:30:00  florian
+  Revision 1.6  2001-04-13 23:49:48  peter
+    * fixes for the stricter compiler
+
+  Revision 1.5  2000/12/01 23:30:00  florian
     * fixed some bugs in setlength
 
   Revision 1.4  2000/11/12 23:23:34  florian

+ 5 - 2
rtl/inc/graph/modes.inc

@@ -349,7 +349,7 @@ end;
    { instead of doing this, but I'm lazy!! And anyways, the   }
    { speed of the routine here is not that important....      }
     var
-     i: word;
+     i: smallint;
      mode: PModeInfo;
     begin
       mode:=nil;
@@ -592,7 +592,10 @@ end;
 
 {
   $Log$
-  Revision 1.4  2000-08-12 12:27:14  jonas
+  Revision 1.5  2001-04-13 23:49:48  peter
+    * fixes for the stricter compiler
+
+  Revision 1.4  2000/08/12 12:27:14  jonas
     + setallpalette hook
     + setallpalette implemented for standard vga and VESA 2.0+
 

+ 40 - 37
rtl/inc/objpash.inc

@@ -47,28 +47,28 @@
     type
        { now the let's declare the base classes for the class object }
        { model                                                       }
-       tobject = class;
-       tclass  = class of tobject;
-       pclass  = ^tclass;
+       TObject = class;
+       TClass  = class of tobject;
+       PClass  = ^tclass;
 
 
        { to access the message table from outside }
-       tmsgstrtable = record
+       TMsgStrTable = record
           name : pshortstring;
           method : pointer;
        end;
 
-       pmsgstrtable = ^tmsgstrtable;
+       PMsgStrTable = ^TMsgStrTable;
 
-       tstringmessagetable = record
+       TStringMessageTable = record
           count : dword;
           msgstrtable : array[0..0] of tmsgstrtable;
        end;
 
        pstringmessagetable = ^tstringmessagetable;
 
-       pguid = ^tguid;
-       tguid = packed record
+       PGuid = ^TGuid;
+       TGuid = packed record
           case integer of
              1 : (
                   Data1 : DWord;
@@ -98,38 +98,38 @@
          Entries: array[0..0] of tinterfaceentry;
        end;
 
-       tobject = class
+       TObject = class
        public
           { please don't change the order of virtual methods, because      }
           { their vmt offsets are used by some assembler code which uses   }
           { hard coded addresses      (FK)                                 }
-          constructor create;
+          constructor Create;
           { the virtual procedures must be in THAT order }
-          destructor destroy;virtual;
+          destructor Destroy;virtual;
           class function newinstance : tobject;virtual;
-          procedure freeinstance;virtual;
-          function safecallexception(exceptobject : tobject;
+          procedure FreeInstance;virtual;
+          function SafeCallException(exceptobject : tobject;
             exceptaddr : pointer) : longint;virtual;
-          procedure defaulthandler(var message);virtual;
-
-          procedure free;
-          class function initinstance(instance : pointer) : tobject;
-          procedure cleanupinstance;
-          function classtype : tclass;
-          class function classinfo : pointer;
-          class function classname : shortstring;
-          class function classnameis(const name : string) : boolean;
-          class function classparent : tclass;
-          class function instancesize : longint;
-          class function inheritsfrom(aclass : tclass) : boolean;
-          class function stringmessagetable : pstringmessagetable;
+          procedure DefaultHandler(var message);virtual;
+
+          procedure Free;
+          class function InitInstance(instance : pointer) : tobject;
+          procedure CleanupInstance;
+          function ClassType : tclass;
+          class function ClassInfo : pointer;
+          class function ClassName : shortstring;
+          class function ClassNameIs(const name : string) : boolean;
+          class function ClassParent : tclass;
+          class function InstanceSize : longint;
+          class function InheritsFrom(aclass : tclass) : boolean;
+          class function StringMessageTable : pstringmessagetable;
           { message handling routines }
-          procedure dispatch(var message);
-          procedure dispatchstr(var message);
+          procedure Dispatch(var message);
+          procedure DispatchStr(var message);
 
-          class function methodaddress(const name : shortstring) : pointer;
-          class function methodname(address : pointer) : shortstring;
-          function fieldaddress(const name : shortstring) : pointer;
+          class function MethodAddress(const name : shortstring) : pointer;
+          class function MethodName(address : pointer) : shortstring;
+          function FieldAddress(const name : shortstring) : pointer;
 
           { new since Delphi 4 }
           procedure AfterConstruction;virtual;
@@ -140,11 +140,11 @@
 
 {$ifdef HASINTF}
           { interface functions }
-          function getinterface(const iid : tguid; out obj) : boolean;
-          function getinterfacebystr(const iidstr : string; out obj) : boolean;
-          class function getinterfaceentry(const iid : tguid) : pinterfaceentry;
-          class function getinterfaceentrybystr(const iidstr : string) : pinterfaceentry;
-          class function getinterfacetable : pinterfacetable;
+          function GetInterface(const iid : tguid; out obj) : boolean;
+          function GetInterfaceByStr(const iidstr : string; out obj) : boolean;
+          class function GetInterfaceEntry(const iid : tguid) : pinterfaceentry;
+          class function GetInterfaceEntryByStr(const iidstr : string) : pinterfaceentry;
+          class function GetInterfaceTable : pinterfacetable;
 {$endif HASINTF}
        end;
 
@@ -279,7 +279,10 @@
        end;
 {
   $Log$
-  Revision 1.10  2001-04-04 17:56:45  florian
+  Revision 1.11  2001-04-13 23:49:48  peter
+    * fixes for the stricter compiler
+
+  Revision 1.10  2001/04/04 17:56:45  florian
     * TGUID definition from win32/wininc/struct.inc copied
 
   Revision 1.9  2001/03/22 23:26:37  florian

+ 7 - 4
rtl/unix/ggigraph.pp

@@ -499,8 +499,8 @@ begin
   { anything...                           }
   if Assigned(ModeList) then
     exit;
-  SaveVideoState:=ggi_savevideostate;
-  RestoreVideoState:=ggi_restorevideostate;
+  SaveVideoState:=@ggi_savevideostate;
+  RestoreVideoState:=@ggi_restorevideostate;
 
   If ggiInit <> 0 then begin
     _graphresult := grNoInitGraph;
@@ -534,7 +534,10 @@ finalization
 end.
 {
   $Log$
-  Revision 1.3  2001-01-21 20:21:40  marco
+  Revision 1.4  2001-04-13 23:49:48  peter
+    * fixes for the stricter compiler
+
+  Revision 1.3  2001/01/21 20:21:40  marco
    * Rename fest II. Rtl OK
 
   Revision 1.2  2000/09/18 13:14:50  marco
@@ -542,5 +545,5 @@ end.
 
   Revision 1.2  2000/07/13 11:33:48  michael
   + removed logs
- 
+
 }

+ 7 - 4
rtl/unix/graph.pp

@@ -525,8 +525,8 @@ end;
      { anything...                           }
      if assigned(ModeList) then
        exit;
-     SaveVideoState:=libvga_savevideostate;
-     RestoreVideoState:=libvga_restorevideostate;
+     SaveVideoState:=@libvga_savevideostate;
+     RestoreVideoState:=@libvga_restorevideostate;
      vga_init;
      For I:=0 to GLastMode do
        begin
@@ -598,7 +598,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.4  2001-01-21 20:21:40  marco
+  Revision 1.5  2001-04-13 23:49:48  peter
+    * fixes for the stricter compiler
+
+  Revision 1.4  2001/01/21 20:21:40  marco
    * Rename fest II. Rtl OK
 
   Revision 1.3  2000/10/12 09:38:34  peter
@@ -616,5 +619,5 @@ end.
 
   Revision 1.2  2000/07/13 11:33:48  michael
   + removed logs
- 
+
 }

+ 5 - 2
rtl/unix/sysunixh.inc

@@ -32,7 +32,7 @@ const
   StdOutputHandle = 1;
   StdErrorHandle  = 2;
 
-  FileNameCaseSensitive : boolean = false;
+  FileNameCaseSensitive : boolean = true;
 
   sLineBreak : string[1] = #10;
   DefaultTextLineBreakStyle : TTextLineBreakStyle = tlbsLF;
@@ -44,7 +44,10 @@ var
 
 {
   $Log$
-  Revision 1.6  2001-04-13 22:30:55  peter
+  Revision 1.7  2001-04-13 23:49:49  peter
+    * fixes for the stricter compiler
+
+  Revision 1.6  2001/04/13 22:30:55  peter
     * added filenamecasesensitive var
 
   Revision 1.5  2001/03/22 21:56:27  florian