* -gb works again

compiler/browser.pas

@@ -96,7 +96,7 @@ implementation
         inputfile:=get_source_file(moduleindex,posinfo.fileindex);
         if assigned(inputfile) then
           if Use_Rhide then
-            get_file_line:=globals.lowercase(inputfile^.name^+inputfile^.ext^)
+            get_file_line:=lower(inputfile^.name^+inputfile^.ext^)
               +':'+tostr(posinfo.line)+':'+tostr(posinfo.column)+':'
           else
             get_file_line:=inputfile^.name^+inputfile^.ext^
@@ -148,7 +148,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.3  1998-05-20 09:42:32  pierre
+  Revision 1.4  1998-06-11 10:11:57  peter
+    * -gb works again
+
+  Revision 1.3  1998/05/20 09:42:32  pierre
     + UseTokenInfo now default
     * unit in interface uses and implementation uses gives error now
     * only one error for unknown symbol (uses lastsymknown boolean)

compiler/symdef.inc

@@ -1903,7 +1903,7 @@
       { references do not change the ppu caracteristics      }
       { this only save the references to variables/functions }
       { defined in the unit what about the others            }
-         ppufile^.do_crc:=false;
+         ppufile.do_crc:=false;
          if assigned(lastwritten) then
            ref:=lastwritten
          else
@@ -1918,7 +1918,7 @@
            end;
          lastwritten:=lastref;
          writebyte(ibend);
-         ppufile^.do_crc:=true;
+         ppufile.do_crc:=true;
       end;
 
     procedure tprocdef.write_external_references;
@@ -1926,7 +1926,7 @@
       var ref : pref;
 
       begin
-         ppufile^.do_crc:=false;
+         ppufile.do_crc:=false;
          if lastwritten=lastref then exit;
          writebyte(ibextdefref);
          writedefref(@self);
@@ -1944,7 +1944,7 @@
            end;
          lastwritten:=lastref;
          writebyte(ibend);
-         ppufile^.do_crc:=true;
+         ppufile.do_crc:=true;
       end;
 
     procedure tprocdef.write_ref_to_file(var f : text);
@@ -2620,7 +2620,10 @@
 
 {
   $Log$
-  Revision 1.7  1998-06-07 15:30:25  florian
+  Revision 1.8  1998-06-11 10:11:58  peter
+    * -gb works again
+
+  Revision 1.7  1998/06/07 15:30:25  florian
     + first working rtti
     + data init/final. for local variables
 
@@ -2654,4 +2657,4 @@
     * symtable adapted for $ifdef NEWPPU
 
 }
-  
+  

compiler/symsym.inc

@@ -209,7 +209,7 @@
       { references do not change the ppu caracteristics      }
       { this only save the references to variables/functions }
       { defined in the unit what about the others            }
-         ppufile^.do_crc:=false;
+         ppufile.do_crc:=false;
          if assigned(lastwritten) then
            ref:=lastwritten
          else
@@ -224,7 +224,7 @@
            end;
          lastwritten:=lastref;
          writebyte(ibend);
-         ppufile^.do_crc:=true;
+         ppufile.do_crc:=true;
       end;
 
 
@@ -263,7 +263,7 @@
       var ref : pref;
           prdef : pdef;
       begin
-         ppufile^.do_crc:=false;
+         ppufile.do_crc:=false;
          if lastwritten=lastref then
            exit;
          writebyte(ibextsymref);
@@ -291,7 +291,7 @@
                    prdef:=pprocdef(prdef)^.nextoverloaded;
                 end;
            end;
-         ppufile^.do_crc:=true;
+         ppufile.do_crc:=true;
       end;
 
 {$endif NEWPPU}
@@ -1741,7 +1741,10 @@
 
 {
   $Log$
-  Revision 1.7  1998-06-09 16:01:51  pierre
+  Revision 1.8  1998-06-11 10:11:59  peter
+    * -gb works again
+
+  Revision 1.7  1998/06/09 16:01:51  pierre
     + added procedure directive parsing for procvars
       (accepted are popstack cdecl and pascal)
     + added C vars with the following syntax