* Tvarsym.highvarsym removed

compiler/pdecsub.pas

@@ -292,7 +292,6 @@ implementation
                  hvs:=tvarsym.create('$high'+tvarsym(currpara.parasym).name,vs_const,s32inttype);
                  include(hvs.varoptions,vo_is_high_value);
                  tvarsym(currpara.parasym).owner.insert(hvs);
-{                 tvarsym(currpara.parasym).highvarsym:=hvs;}
                end
               else
                hvs:=nil;
@@ -2140,7 +2139,10 @@ const
 end.
 {
   $Log$
-  Revision 1.160  2004-02-04 22:54:57  daniel
+  Revision 1.161  2004-02-05 14:13:53  daniel
+    *  Tvarsym.highvarsym removed
+
+  Revision 1.160  2004/02/04 22:54:57  daniel
     * Tvarsym.highvarsym commented out (unused by compiler, purpose unknown)
 
   Revision 1.159  2004/02/04 22:15:15  daniel

compiler/symsym.pas

@@ -153,7 +153,6 @@ interface
        end;
 
        tvarsym = class(tstoredsym)
-{          highvarsym    : tvarsym;}
           defaultconstsym : tsym;
           varoptions    : tvaroptions;
           varspez       : tvarspez;  { sets the type of access }
@@ -1431,7 +1430,6 @@ implementation
          varspez:=vsp;
          fieldoffset:=0;
          fillchar(localloc,sizeof(localloc),0);
-{         highvarsym:=nil;}
          defaultconstsym:=nil;
          refs:=0;
          varstate:=vs_declared;
@@ -1467,7 +1465,6 @@ implementation
          varstate:=vs_used;
          varspez:=tvarspez(ppufile.getbyte);
          fieldoffset:=ppufile.getlongint;
-{         highvarsym:=nil;}
          defaultconstsym:=nil;
          ppufile.gettype(_vartype);
          ppufile.getsmallset(varoptions);
@@ -2109,6 +2106,8 @@ implementation
          if def.max<v then
            def.setmax(v);
          order;
+{         nextenum:=Tenumsym(def.firstenum);
+         def.firstenum:=self;}
       end;
 
 
@@ -2134,7 +2133,6 @@ implementation
          order;
       end;
 
-
    procedure tenumsym.order;
       var
          sym : tenumsym;
@@ -2161,7 +2159,6 @@ implementation
           end;
       end;
 
-
     procedure tenumsym.ppuwrite(ppufile:tcompilerppufile);
       begin
          inherited writesym(ppufile);
@@ -2366,7 +2363,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.154  2004-02-04 23:01:36  daniel
+  Revision 1.155  2004-02-05 14:13:53  daniel
+    *  Tvarsym.highvarsym removed
+
+  Revision 1.154  2004/02/04 23:01:36  daniel
     * Empty destructor Tlabelsym.destroy removed
 
   Revision 1.153  2004/02/04 22:54:57  daniel