Browse Source

* changed aktprocsym to aktprocdef for stabs generation

peter 24 years ago
parent
commit
e94751b801
1 changed files with 7 additions and 4 deletions
  1. 7 4
      compiler/i386/cga.pas

+ 7 - 4
compiler/i386/cga.pas

@@ -2377,7 +2377,7 @@ implementation
           begin
           begin
             if target_info.use_function_relative_addresses then
             if target_info.use_function_relative_addresses then
              exprasmList.insert(stab_function_name);
              exprasmList.insert(stab_function_name);
-            exprasmList.insert(Tai_stabs.Create(aktprocsym.stabstring));
+            exprasmList.insert(Tai_stabs.Create(aktprocdef.stabstring));
             aktprocsym.isstabwritten:=true;
             aktprocsym.isstabwritten:=true;
           end;
           end;
 {$endif GDB}
 {$endif GDB}
@@ -2518,7 +2518,7 @@ implementation
   begin
   begin
       oldexprasmlist:=exprasmlist;
       oldexprasmlist:=exprasmlist;
       exprasmlist:=alist;
       exprasmlist:=alist;
-      
+
       if aktexit2label.is_used and
       if aktexit2label.is_used and
          ((procinfo^.flags and (pi_needs_implicit_finally or pi_uses_exceptions)) <> 0) then
          ((procinfo^.flags and (pi_needs_implicit_finally or pi_uses_exceptions)) <> 0) then
         begin
         begin
@@ -2819,7 +2819,7 @@ implementation
 {$ifdef GDB}
 {$ifdef GDB}
       if (cs_debuginfo in aktmoduleswitches) and not inlined  then
       if (cs_debuginfo in aktmoduleswitches) and not inlined  then
           begin
           begin
-              aktprocsym.concatstabto(exprasmlist);
+              aktprocdef.concatstabto(exprasmlist);
               if assigned(procinfo^._class) then
               if assigned(procinfo^._class) then
                 if (not assigned(procinfo^.parent) or
                 if (not assigned(procinfo^.parent) or
                    not assigned(procinfo^.parent^._class)) then
                    not assigned(procinfo^.parent^._class)) then
@@ -2976,7 +2976,10 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.10  2001-11-06 16:39:02  jonas
+  Revision 1.11  2001-11-18 18:59:59  peter
+    * changed aktprocsym to aktprocdef for stabs generation
+
+  Revision 1.10  2001/11/06 16:39:02  jonas
     * moved call to "cleanup_regvars" to cga.pas for i386 because it has
     * moved call to "cleanup_regvars" to cga.pas for i386 because it has
       to insert "fstp %st0" instructions after the exit label
       to insert "fstp %st0" instructions after the exit label