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

* fix misplaced begin..end for self stabs

Browse Source 
* no fpu regable for staticsymtable
This commit is contained in:
peter 2004-10-13 18:47:45 +00:00
parent 0395100a07
commit c25b06a836
1 changed files with 20 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
compiler/symsym.pas
View File

@ -1546,15 +1546,13 @@ implementation
end;
if (po_classmethod in current_procinfo.procdef.procoptions) or
(po_staticmethod in current_procinfo.procdef.procoptions) then
if (loc=LOC_REFERENCE) then
begin
stabstring:=stabstr_evaluate('"pvmt:p$1",${N_TSYM},0,0,$2',
[Tstoreddef(pvmttype.def).numberstring,tostr(localloc.reference.offset)]);
(*
else
stabstring:=stabstr_evaluate('"pvmt:r$1",${N_RSYM},0,0,$2',
[Tstoreddef(pvmttype.def).numberstring,tostr(regstabs_table[regidx])])
*)
begin
if (loc=LOC_REFERENCE) then
stabstring:=stabstr_evaluate('"pvmt:p$1",${N_TSYM},0,0,$2',
[Tstoreddef(pvmttype.def).numberstring,tostr(localloc.reference.offset)]);
(* else
stabstring:=stabstr_evaluate('"pvmt:r$1",${N_RSYM},0,0,$2',
[Tstoreddef(pvmttype.def).numberstring,tostr(regstabs_table[regidx])]) *)
end
else
begin
@ -1565,11 +1563,9 @@ implementation
if (loc=LOC_REFERENCE) then
stabstring:=stabstr_evaluate('"$$t:$1",${N_TSYM},0,0,$2',
[c+current_procinfo.procdef._class.numberstring,tostr(localloc.reference.offset)]);
(*
else
(* else
stabstring:=stabstr_evaluate('"$$t:r$1",${N_RSYM},0,0,$2',
[c+current_procinfo.procdef._class.numberstring,tostr(regstabs_table[regidx])]);
*)
[c+current_procinfo.procdef._class.numberstring,tostr(regstabs_table[regidx])]); *)
end;
end
else
@ -1668,7 +1664,12 @@ implementation
if tstoreddef(vartype.def).is_intregable then
varregable:=vr_intreg
else
if tstoreddef(vartype.def).is_fpuregable then
{$warning TODO: no fpu regvar in staticsymtable yet, need initialization with 0}
if (
not assigned(owner) or
(owner.symtabletype<>staticsymtable)
) and
tstoreddef(vartype.def).is_fpuregable then
varregable:=vr_fpureg;
end;
end;
@ -2254,7 +2255,11 @@ implementation
end.
{
$Log$
Revision 1.186 2004-10-12 14:34:49 peter
Revision 1.187 2004-10-13 18:47:45 peter
* fix misplaced begin..end for self stabs
* no fpu regable for staticsymtable
Revision 1.186 2004/10/12 14:34:49 peter
* fixed visibility for procsyms
* fixed override check when there was no entry yet