* fix the -g-l option

compiler/ag386att.pas

@@ -339,8 +339,9 @@ unit ag386att;
       procedure ti386attasmlist.WriteFileEndInfo;
 
         begin
-          if not (cs_debuginfo in aktmoduleswitches) then
-            exit;
+          if not ((cs_debuginfo in aktmoduleswitches) or
+             (cs_gdb_lineinfo in aktglobalswitches)) then
+           exit;
           AsmLn;
           AsmWriteLn(ait_section2str(sec_code));
           AsmWriteLn(#9'.stabs "",'+tostr(n_sourcefile)+',0,0,Letext');
@@ -901,7 +902,10 @@ unit ag386att;
 end.
 {
   $Log$
-  Revision 1.32  2000-04-06 07:04:50  pierre
+  Revision 1.33  2000-04-12 12:42:28  pierre
+   * fix the -g-l option
+
+  Revision 1.32  2000/04/06 07:04:50  pierre
    + generate line stabs if cs_gdb_lineinfo is aktglobalswitches
 
   Revision 1.31  2000/04/01 14:18:03  peter

compiler/ag386bin.pas

@@ -350,8 +350,9 @@ unit ag386bin;
         hp : pasmsymbol;
         store_sec : tsection;
       begin
-        if not (cs_debuginfo in aktmoduleswitches) then
-          exit;
+          if not ((cs_debuginfo in aktmoduleswitches) or
+             (cs_gdb_lineinfo in aktglobalswitches)) then
+           exit;
         store_sec:=objectalloc^.currsec;
         objectalloc^.setsection(sec_code);
         hp:=newasmsymbol('Letext');
@@ -978,7 +979,10 @@ unit ag386bin;
 end.
 {
   $Log$
-  Revision 1.42  2000-04-06 07:04:51  pierre
+  Revision 1.43  2000-04-12 12:42:28  pierre
+   * fix the -g-l option
+
+  Revision 1.42  2000/04/06 07:04:51  pierre
    + generate line stabs if cs_gdb_lineinfo is aktglobalswitches
 
   Revision 1.41  2000/03/10 16:05:57  pierre

compiler/og386cff.pas

@@ -352,7 +352,8 @@ unit og386cff;
         createsection(sec_code);
         createsection(sec_data);
         createsection(sec_bss);
-        if (cs_debuginfo in aktmoduleswitches) then
+        if (cs_gdb_lineinfo in aktglobalswitches) or
+           (cs_debuginfo in aktmoduleswitches) then
          begin
            createsection(sec_stab);
            createsection(sec_stabstr);
@@ -775,7 +776,8 @@ unit og386cff;
         { multiply stab with real size }
         s[sec_stab]:=s[sec_stab]*sizeof(coffstab);
         { if debug then also count header stab }
-        if (cs_debuginfo in aktmoduleswitches) then
+        if (cs_gdb_lineinfo in aktglobalswitches) or
+           (cs_debuginfo in aktmoduleswitches) then
          begin
            inc(s[sec_stab],sizeof(coffstab));
            inc(s[sec_stabstr],length(SplitFileName(current_module^.mainsource^))+2);
@@ -993,7 +995,10 @@ unit og386cff;
 end.
 {
   $Log$
-  Revision 1.22  2000-03-10 16:05:28  pierre
+  Revision 1.23  2000-04-12 12:42:29  pierre
+   * fix the -g-l option
+
+  Revision 1.22  2000/03/10 16:05:28  pierre
    * check that symbol is in object
 
   Revision 1.21  2000/03/10 09:15:54  pierre