Bläddra i källkod

* don't count ait_marker for lineinfo

peter 27 år sedan
förälder
incheckning
f986459350
2 ändrade filer med 12 tillägg och 6 borttagningar
  1. 6 3
      compiler/ag68kgas.pas
  2. 6 3
      compiler/ag68kmit.pas

+ 6 - 3
compiler/ag68kgas.pas

@@ -321,8 +321,8 @@ unit ag68kgas;
 {$ifdef GDB}
          if cs_debuginfo in aktmoduleswitches then
           begin
-            if not (hp^.typ in  [ait_external,ait_stabn,ait_stabs,
-                   ait_label,ait_cut,ait_align,ait_stab_function_name]) then
+            if not (hp^.typ in  [ait_external,ait_regalloc, ait_regdealloc,ait_stabn,ait_stabs,
+                    ait_label,ait_cut,ait_marker,ait_align,ait_stab_function_name]) then
               WriteFileLineInfo(hp^.fileinfo);
           end;
 {$endif GDB}
@@ -701,7 +701,10 @@ ait_stab_function_name : funcname:=pai_stab_function_name(hp)^.str;
 end.
 {
   $Log$
-  Revision 1.21  1998-12-11 00:02:39  peter
+  Revision 1.22  1998-12-23 22:53:44  peter
+    * don't count ait_marker for lineinfo
+
+  Revision 1.21  1998/12/11 00:02:39  peter
     + globtype,tokens,version unit splitted from globals
 
   Revision 1.20  1998/11/12 11:19:35  pierre

+ 6 - 3
compiler/ag68kmit.pas

@@ -289,8 +289,8 @@ unit ag68kmit;
 {$ifdef GDB}
          if cs_debuginfo in aktmoduleswitches then
           begin
-            if not (hp^.typ in  [ait_external,ait_stabn,ait_stabs,
-                   ait_label,ait_cut,ait_align,ait_stab_function_name]) then
+            if not (hp^.typ in  [ait_external,ait_regalloc, ait_regdealloc,ait_stabn,ait_stabs,
+                    ait_label,ait_cut,ait_marker,ait_align,ait_stab_function_name]) then
              begin
              { file changed ? (must be before line info) }
                if lastfileindex<>hp^.fileinfo.fileindex then
@@ -665,7 +665,10 @@ ait_stab_function_name : funcname:=pai_stab_function_name(hp)^.str;
 end.
 {
   $Log$
-  Revision 1.18  1998-12-11 00:02:40  peter
+  Revision 1.19  1998-12-23 22:53:45  peter
+    * don't count ait_marker for lineinfo
+
+  Revision 1.18  1998/12/11 00:02:40  peter
     + globtype,tokens,version unit splitted from globals
 
   Revision 1.17  1998/11/30 09:42:57  pierre