* some extra ifdef GDB

compiler/pmodules.pas

@@ -746,7 +746,9 @@ unit pmodules;
          { tests, if all forwards are resolved }
          symtablestack^.check_forwards;
          symtablestack^.symtabletype:=unitsymtable;
+{$ifdef GDB}
          punitsymtable(symtablestack)^.is_stab_written:=false;
+{$endif GDB}
 
          { insert own objectfile }
          insertobjectfile;
@@ -755,12 +757,14 @@ unit pmodules;
          if status.errorcount=0 then
           writeunitas(current_module^.ppufilename^,punitsymtable(symtablestack));
 
+{$ifdef GDB}
          pu:=pused_unit(usedunits.first);
          while assigned(pu) do
            begin
               punitsymtable(pu^.u^.symtable)^.is_stab_written:=false;
               pu:=pused_unit(pu^.next);
            end;
+{$endif GDB}
          inc(datasize,symtablestack^.datasize);
 
          { leave when we got an error }
@@ -924,7 +928,10 @@ unit pmodules;
 end.
 {
   $Log$
-  Revision 1.50  1998-09-21 08:45:17  pierre
+  Revision 1.51  1998-09-22 15:40:55  peter
+    * some extra ifdef GDB
+
+  Revision 1.50  1998/09/21 08:45:17  pierre
     + added vmt_offset in tobjectdef.write for fututre use
       (first steps to have objects without vmt if no virtual !!)
     + added fpu_used field for tabstractprocdef  :

compiler/symppu.inc

@@ -187,8 +187,10 @@
              end;
             if cs_smartlink in aktmoduleswitches then
              flags:=flags or uf_smartlink;
+{$ifdef GDB}
             if use_dbx then
              flags:=flags or uf_has_dbx;
+{$endif GDB}
             if target_os.endian=en_big_endian then
              flags:=flags or uf_big_endian;
 {$ifdef UseBrowser}
@@ -386,7 +388,7 @@
       { main source is always the last }
         stringdispose(current_module^.mainsource);
         current_module^.mainsource:=stringdup(hs);
-        
+
         { the indexing is corrected here PM }
         current_module^.sourcefiles.inverse_register_indexes;
       { check if we want to rebuild every unit, only if the sources are
@@ -439,7 +441,10 @@
 
 {
   $Log$
-  Revision 1.15  1998-09-21 08:45:23  pierre
+  Revision 1.16  1998-09-22 15:40:56  peter
+    * some extra ifdef GDB
+
+  Revision 1.15  1998/09/21 08:45:23  pierre
     + added vmt_offset in tobjectdef.write for fututre use
       (first steps to have objects without vmt if no virtual !!)
     + added fpu_used field for tabstractprocdef  :

compiler/types.pas

@@ -474,7 +474,7 @@ unit types;
            end;
          b:=false;
 
-         { wenn beide auf die gleiche Definition zeigen sind sie wohl gleich...}
+         { both point to the same definition ? }
          if def1=def2 then
            b:=true
          else
@@ -586,6 +586,9 @@ unit types;
             if (def1^.deftype=arraydef) and (def2^.deftype=arraydef) and
               (is_open_array(def1) or is_open_array(def2)) then
               begin
+                if parraydef(def1)^.IsArrayOfConst or parraydef(def2)^.IsArrayOfConst then
+                 b:=true
+                else
                  b:=is_equal(parraydef(def1)^.definition,parraydef(def2)^.definition);
               end
           else
@@ -919,7 +922,10 @@ unit types;
 end.
 {
   $Log$
-  Revision 1.29  1998-09-16 12:37:31  michael
+  Revision 1.30  1998-09-22 15:40:58  peter
+    * some extra ifdef GDB
+
+  Revision 1.29  1998/09/16 12:37:31  michael
   Added FPC_ prefix to abstracterror
 
   Revision 1.28  1998/09/09 16:44:23  florian