paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 19:49:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* don't write line numbers in stabs for defs

Browse Source
This commit is contained in:
peter 2004-03-14 20:06:40 +00:00
parent 56c727153a
commit df18c0aa82
1 changed files with 11 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
compiler/symdef.pas
View File

@ -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