* New bunch of Gabor changes

compiler/browcol.pas

@@ -1163,7 +1163,8 @@ end;
         Name:=sym^.consttype.def^.typesym^.name+'('+IntToStr(sym^.value)+')';
       constresourcestring,
       conststring :
-        Name:=''''+GetStr(PString(sym^.Value))+'''';
+{        Name:=''''+GetStr(PString(sym^.Value))+'''';}
+        Name:=''''+StrPas(pointer(sym^.Value))+'''';
       constreal:
         Name:=FloatToStr(PBestReal(sym^.Value)^);
       constbool:
@@ -1810,7 +1811,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.38  2000-04-20 08:52:01  pierre
+  Revision 1.39  2000-05-29 10:04:40  pierre
+    * New bunch of Gabor changes
+
+  Revision 1.38  2000/04/20 08:52:01  pierre
    * allow to view objects having the same name
 
   Revision 1.37  2000/03/14 15:04:19  pierre

compiler/comphook.pas

@@ -81,6 +81,9 @@ procedure def_halt(i : longint);
 Function  def_status:boolean;
 Function  def_comment(Level:Longint;const s:string):boolean;
 function  def_internalerror(i:longint):boolean;
+procedure def_initsymbolinfo;
+procedure def_donesymbolinfo;
+procedure def_extractsymbolinfo;
 {$ifdef DEBUG}
 { allow easy stopping in GDB
   using
@@ -95,6 +98,10 @@ type
   tstatusfunction        = function:boolean;
   tcommentfunction       = function(Level:Longint;const s:string):boolean;
   tinternalerrorfunction = function(i:longint):boolean;
+
+  tinitsymbolinfoproc = procedure;
+  tdonesymbolinfoproc = procedure;
+  textractsymbolinfoproc = procedure;
 const
   do_stop          : tstopprocedure   = def_stop;
   do_halt          : thaltprocedure   = def_halt;
@@ -102,7 +109,9 @@ const
   do_comment       : tcommentfunction = def_comment;
   do_internalerror : tinternalerrorfunction = def_internalerror;
 
-
+  do_initsymbolinfo : tinitsymbolinfoproc = def_initsymbolinfo;
+  do_donesymbolinfo : tdonesymbolinfoproc = def_donesymbolinfo;
+  do_extractsymbolinfo : textractsymbolinfoproc = def_extractsymbolinfo;
 
 implementation
 
@@ -294,11 +303,25 @@ begin
   def_internalerror:=true;
 end;
 
+procedure def_initsymbolinfo;
+begin
+end;
+
+procedure def_donesymbolinfo;
+begin
+end;
+
+procedure def_extractsymbolinfo;
+begin
+end;
 
 end.
 {
   $Log$
-  Revision 1.22  2000-05-10 13:40:19  peter
+  Revision 1.23  2000-05-29 10:04:40  pierre
+    * New bunch of Gabor changes
+
+  Revision 1.22  2000/05/10 13:40:19  peter
     * -Se<x> option extended to increase errorcount for
       warning,notes or hints
 
@@ -322,4 +345,4 @@ end.
     * oldtp mode directives better supported
     * added some messages to errore.msg
 
-}
+}

compiler/compiler.pas

@@ -114,9 +114,6 @@ uses
 {$ifdef BrowserLog}
   browlog,
 {$endif BrowserLog}
-{$ifdef BrowserCol}
-  browcol,
-{$endif BrowserCol}
 {$ifdef Delphi}
   dmisc,
 {$else Delphi}
@@ -181,7 +178,7 @@ begin
   DoneBrowserLog;
 {$endif BrowserLog}
 {$ifdef BrowserCol}
-  DoneBrowserCol;
+  do_doneSymbolInfo;
 {$endif BrowserCol}
   if CompilerInitedAfterArgs then
    begin
@@ -215,7 +212,7 @@ begin
   InitBrowserLog;
 {$endif BrowserLog}
 {$ifdef BrowserCol}
-  InitBrowserCol;
+  do_initSymbolInfo;
 {$endif BrowserCol}
   InitGlobals;
   inittokens;
@@ -358,7 +355,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.49  2000-05-03 16:31:22  pierre
+  Revision 1.50  2000-05-29 10:04:40  pierre
+    * New bunch of Gabor changes
+
+  Revision 1.49  2000/05/03 16:31:22  pierre
    + easier debug when memory is lost
 
   Revision 1.48  2000/04/05 21:18:04  pierre

compiler/parser.pas

@@ -58,9 +58,6 @@ unit parser;
 {$ifdef BrowserLog}
       browlog,
 {$endif BrowserLog}
-{$ifdef BrowserCol}
-      browcol,
-{$endif BrowserCol}
 {$ifdef UseExcept}
       tpexcept,compiler,
 {$endif UseExcept}
@@ -570,10 +567,8 @@ unit parser;
                  end;
 {$endif BrowserLog}
 
-{$ifdef BrowserCol}
+                 { Write Browser Collections }
-              { Write Browser Collections }
+                 do_extractsymbolinfo;
-              CreateBrowserCol;
-{$endif}
               end;
 
          if current_module^.in_second_compile then
@@ -609,7 +604,10 @@ unit parser;
 end.
 {
   $Log$
-  Revision 1.103  2000-05-11 06:52:37  pierre
+  Revision 1.104  2000-05-29 10:04:40  pierre
+    * New bunch of Gabor changes
+
+  Revision 1.103  2000/05/11 06:52:37  pierre
    * fix localswitch problem if compiling objpas
 
   Revision 1.102  2000/04/24 12:45:44  peter