* Replace object with record where possible

compiler/fpcdefs.inc

@@ -1,5 +1,6 @@
 {$mode objfpc}
 {$asmmode default}
+{$modeswitch advancedrecords}
 {$H-}
 {$goto on}
 {$ifndef DISABLE_INLINE}

compiler/nbas.pas

@@ -219,7 +219,7 @@ interface
        { already been disposed and to make sure the coherency between temps and     }
        { temp references is kept after a getcopy                                    }
        ptempinfo = ^ttempinfo;
-       ttempinfo = object
+       ttempinfo = record
         private
          flags                      : ttempinfoflags;
         public

compiler/symbase.pas

@@ -42,7 +42,7 @@ interface
 
        { THashedIDString }
 
-       THashedIDString=object
+       THashedIDString = record
        private
          FId   : TIDString;
          FHash : Longword;

compiler/symtype.pas

@@ -161,7 +161,7 @@ interface
                    TDeref
 ************************************************}
 
-      tderef = object
+      tderef = record
         dataidx : longint;
         procedure reset;
         procedure build(s:TObject);