paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 17:45:28 +01: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; end;
if (po_classmethod in current_procinfo.procdef.procoptions) or if (po_classmethod in current_procinfo.procdef.procoptions) or
(po_staticmethod in current_procinfo.procdef.procoptions) then (po_staticmethod in current_procinfo.procdef.procoptions) then
if (loc=LOC_REFERENCE) then begin
begin if (loc=LOC_REFERENCE) then
stabstring:=stabstr_evaluate('"pvmt:p$1",${N_TSYM},0,0,$2', stabstring:=stabstr_evaluate('"pvmt:p$1",${N_TSYM},0,0,$2',
[Tstoreddef(pvmttype.def).numberstring,tostr(localloc.reference.offset)]); [Tstoreddef(pvmttype.def).numberstring,tostr(localloc.reference.offset)]);
(* (* else
else stabstring:=stabstr_evaluate('"pvmt:r$1",${N_RSYM},0,0,$2',
stabstring:=stabstr_evaluate('"pvmt:r$1",${N_RSYM},0,0,$2', [Tstoreddef(pvmttype.def).numberstring,tostr(regstabs_table[regidx])]) *)
[Tstoreddef(pvmttype.def).numberstring,tostr(regstabs_table[regidx])])
*)
end end
else else
begin begin
@ -1565,11 +1563,9 @@ implementation
if (loc=LOC_REFERENCE) then if (loc=LOC_REFERENCE) then
stabstring:=stabstr_evaluate('"$$t:$1",${N_TSYM},0,0,$2', stabstring:=stabstr_evaluate('"$$t:$1",${N_TSYM},0,0,$2',
[c+current_procinfo.procdef._class.numberstring,tostr(localloc.reference.offset)]); [c+current_procinfo.procdef._class.numberstring,tostr(localloc.reference.offset)]);
(* (* else
else
stabstring:=stabstr_evaluate('"$$t:r$1",${N_RSYM},0,0,$2', 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;
end end
else else
@ -1668,7 +1664,12 @@ implementation
if tstoreddef(vartype.def).is_intregable then if tstoreddef(vartype.def).is_intregable then
varregable:=vr_intreg varregable:=vr_intreg
else 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; varregable:=vr_fpureg;
end; end;
end; end;
@ -2254,7 +2255,11 @@ implementation
end. end.
{ {
$Log$ $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 visibility for procsyms
* fixed override check when there was no entry yet * fixed override check when there was no entry yet