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

* force ansistring concatenation when building stabs

Browse Source 
git-svn-id: trunk@10336 -
This commit is contained in:
florian 2008-02-16 08:53:54 +00:00
parent d38da8d0ae
commit 796f39a7a7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/dbgstabs.pas
View File

@ -1054,7 +1054,7 @@ implementation
assigned(tprocdef(def.owner.defowner).procsym) then assigned(tprocdef(def.owner.defowner).procsym) then
info := ','+GetSymName(def.procsym)+','+GetSymName(tprocdef(def.owner.defowner).procsym); info := ','+GetSymName(def.procsym)+','+GetSymName(tprocdef(def.owner.defowner).procsym);
end; end;
ss:='"'+obj+':'+RType+def_stab_number(def.returndef)+info+'",'+tostr(n_function)+',0,'+tostr(def.fileinfo.line)+','+def.mangledname; ss:='"'+ansistring(obj)+':'+RType+def_stab_number(def.returndef)+info+'",'+tostr(n_function)+',0,'+tostr(def.fileinfo.line)+','+ansistring(def.mangledname);
getmem(p,length(ss)+1); getmem(p,length(ss)+1);
move(pchar(ss)^,p^,length(ss)+1); move(pchar(ss)^,p^,length(ss)+1);
templist.concat(Tai_stab.Create(stab_stabs,p)); templist.concat(Tai_stab.Create(stab_stabs,p));