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

* fixed stabs for globals,static

Browse Source
This commit is contained in:
peter 2003-09-25 16:18:54 +00:00
parent e487793919
commit 545f437740
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/symsym.pas
View File

@ -1808,13 +1808,7 @@ implementation
threadvaroffset : string;
regidx : tregisterindex;
begin
{ There is no space allocated for not referenced locals }
if refs=0 then
begin
stabstring:=nil;
exit;
end;
stabstring:=nil;
st:=tstoreddef(vartype.def).numberstring;
if (vo_is_thread_var in varoptions) then
threadvaroffset:='+'+tostr(pointer_size)
@ -1861,6 +1855,13 @@ implementation
inlineparasymtable,
inlinelocalsymtable :
begin
{ There is no space allocated for not referenced locals }
if (owner.symtabletype in [localsymtable,inlinelocalsymtable]) and
(refs=0) then
begin
exit;
end;
if (vo_is_C_var in varoptions) then
begin
stabstring := strpnew('"'+name+':S'+st+'",'+
@ -2675,7 +2676,10 @@ implementation
end.
{
$Log$
Revision 1.119 2003-09-23 17:56:06 peter
Revision 1.120 2003-09-25 16:18:54 peter
* fixed stabs for globals,static
Revision 1.119 2003/09/23 17:56:06 peter
* locals and paras are allocated in the code generation
* tvarsym.localloc contains the location of para/local when
generating code for the current procedure