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

* only write line number once

Browse Source 
* only write line numbers once, this is forced by requiring always a higher
    line number
  * don't write constsyms for default parameters, they break N_Function scopes

git-svn-id: trunk@3282 -
This commit is contained in:
peter 2006-04-19 13:31:17 +00:00
parent dd379e7eb0
commit 4fd1679b16
1 changed files with 9 additions and 6 deletions

15
compiler/dbgstabs.pas
View File

@ -1198,6 +1198,13 @@ implementation
var
st : string;
begin
result:=nil;
{ Don't write info for default parameter values, the N_Func breaks
the N_Func for the function itself.
Valgrind does not support constants }
if (sym.owner.symtabletype=parasymtable) or
(cs_gdb_valgrind in aktglobalswitches) then
exit;
case sym.consttyp of
conststring:
begin
@ -1221,11 +1228,7 @@ implementation
st:='i0';
end;
end;
{ valgrind does not support constants }
if cs_gdb_valgrind in aktglobalswitches then
result:=nil
else
result:=sym_stabstr_evaluate(sym,'"${name}:c=$1;",${N_FUNCTION},0,${line},0',[st]);
result:=sym_stabstr_evaluate(sym,'"${name}:c=$1;",${N_FUNCTION},0,${line},0',[st]);
end;
function typesym_stabstr(sym:ttypesym) : pchar;
@ -1424,7 +1427,7 @@ implementation
end;
{ line changed ? }
if (lastfileinfo.line<>currfileinfo.line) and (currfileinfo.line<>0) then
if (currfileinfo.line>lastfileinfo.line) and (currfileinfo.line<>0) then
begin
if assigned(currfuncname) and
(tf_use_function_relative_addresses in target_info.flags) then