From df18c0aa8289f32bbebcbaa19d0e44324d2567c5 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sun, 14 Mar 2004 20:06:40 +0000
Subject: [PATCH]   * don't write line numbers in stabs for defs

---
 compiler/symdef.pas | 29 +++++++++++------------------
 1 file changed, 11 insertions(+), 18 deletions(-)

diff --git a/compiler/symdef.pas b/compiler/symdef.pas
index 2b203c72e9..b64874b304 100644
--- a/compiler/symdef.pas
+++ b/compiler/symdef.pas
@@ -1049,11 +1049,6 @@ implementation
       begin
         if s='numberstring' then
           get_var_value:=numberstring
-        else if s='sym_line' then
-          if assigned(typesym) then
-             get_var_value:=tostr(Ttypesym(typesym).fileinfo.line)
-          else
-             get_var_value:='0'
         else if s='sym_name' then
           if assigned(typesym) then
              get_var_value:=Ttypesym(typesym).name
@@ -1119,7 +1114,9 @@ implementation
         { Here we maybe generate a type, so we have to use numberstring }
         st:=stabstr_evaluate('"${sym_name}:$1$2=',[stabchar,numberstring]);
         reallocmem(st,strlen(ss)+512);
-        su:=stabstr_evaluate('",${N_LSYM},0,${sym_line},0',[]);
+        { line info is set to 0 for all defs, because the def can be in an other
+          unit and then the linenumber is invalid in the current sourcefile }
+        su:=stabstr_evaluate('",${N_LSYM},0,0,0',[]);
         strcopy(strecopy(strend(st),ss),su);
         reallocmem(st,strlen(st)+1);
         allstabstring:=st;
@@ -2451,7 +2448,7 @@ implementation
                     else
                       st := ' ';
                     asmlist.concat(Tai_stabs.create(stabstr_evaluate(
-                            '"$1:t${numberstring}=*$2=xs$3:",${N_LSYM},0,${sym_line},0',
+                            '"$1:t${numberstring}=*$2=xs$3:",${N_LSYM},0,0,0',
                             [st,nb,pointertype.def.typesym.name])));
                   end;
                 stab_state:=stab_state_written;
@@ -5189,7 +5186,6 @@ implementation
         stabchar : string[2];
         ss,st : pchar;
         sname : string;
-        sym_line_no : longint;
       begin
         ss := stabstring;
         getmem(st,strlen(ss)+512);
@@ -5197,20 +5193,14 @@ implementation
         if deftype in tagtypes then
           stabchar := 'Tt';
         if assigned(typesym) then
-          begin
-             sname := typesym.name;
-             sym_line_no:=typesym.fileinfo.line;
-          end
+          sname := typesym.name
         else
-          begin
-             sname := ' ';
-             sym_line_no:=0;
-          end;
+          sname := ' ';
         if writing_class_record_stab then
           strpcopy(st,'"'+sname+':'+stabchar+classnumberstring+'=')
         else
           strpcopy(st,'"'+sname+':'+stabchar+numberstring+'=');
-        strpcopy(strecopy(strend(st),ss),'",'+tostr(N_LSYM)+',0,'+tostr(sym_line_no)+',0');
+        strpcopy(strecopy(strend(st),ss),'",'+tostr(N_LSYM)+',0,0,0');
         allstabstring := strnew(st);
         freemem(st,strlen(ss)+512);
         strdispose(ss);
@@ -6070,7 +6060,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.229  2004-03-10 22:52:57  peter
+  Revision 1.230  2004-03-14 20:06:40  peter
+    * don't write line numbers in stabs for defs
+
+  Revision 1.229  2004/03/10 22:52:57  peter
     * more stabs fixes
     * special mode -gv for valgrind compatible stabs