paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-05 08:09:52 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed intregister bug

Browse Source 
* fixed error in my previous commit: vo_(fpu)regable should only be set
    for (inline)localsymtable and (inline)parasymtable entries
This commit is contained in:
Jonas Maebe 2003-05-30 18:48:17 +00:00
parent 6c7f3ad02e
commit 7d1f5c8330
1 changed files with 29 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
compiler/symsym.pas
View File

@ -1832,6 +1832,7 @@ implementation
procedure tvarsym.concatstabto(asmlist : taasmoutput);
var
tempreg: tregister;
stab_str : pchar;
c : char;
begin
@ -1861,14 +1862,21 @@ implementation
else
if (reg.enum<>R_NO) then
begin
if reg.enum>lastreg then
if reg.enum = R_INTREGISTER then
begin
tempreg := reg;
convert_register_to_enum(tempreg);
end
else
tempreg := reg;
if tempreg.enum>lastreg then
internalerror(2003010801);
{ "eax", "ecx", "edx", "ebx", "esp", "ebp", "esi", "edi", "eip", "ps", "cs", "ss", "ds", "es", "fs", "gs", }
{ this is the register order for GDB}
stab_str:=strpnew('"'+name+':r'
+tstoreddef(vartype.def).numberstring+'",'+
tostr(N_RSYM)+',0,'+
tostr(fileinfo.line)+','+tostr(stab_regindex[reg.enum]));
tostr(fileinfo.line)+','+tostr(stab_regindex[tempreg.enum]));
asmList.concat(Tai_stabs.Create(stab_str));
end
else
@ -1880,16 +1888,20 @@ implementation
begin
_vartype := newtype;
{ can we load the value into a register ? }
if tstoreddef(vartype.def).is_intregable then
include(varoptions,vo_regable)
else
exclude(varoptions,vo_regable);
if not assigned(owner) or
(owner.symtabletype in [localsymtable,parasymtable,inlineparasymtable,inlinelocalsymtable]) then
begin
if tstoreddef(vartype.def).is_intregable then
include(varoptions,vo_regable)
else
exclude(varoptions,vo_regable);
if tstoreddef(vartype.def).is_fpuregable then
include(varoptions,vo_fpuregable)
else
exclude(varoptions,vo_fpuregable);
reg.enum:=R_NO;
if tstoreddef(vartype.def).is_fpuregable then
include(varoptions,vo_fpuregable)
else
exclude(varoptions,vo_fpuregable);
reg.enum:=R_NO;
end;
end;
@ -2597,7 +2609,12 @@ implementation
end.
{
$Log$
Revision 1.105 2003-05-30 13:35:10 jonas
Revision 1.106 2003-05-30 18:48:17 jonas
* fixed intregister bug
* fixed error in my previous commit: vo_(fpu)regable should only be set
for (inline)localsymtable and (inline)parasymtable entries
Revision 1.105 2003/05/30 13:35:10 jonas
* the vartype field of tvarsym is now a property, because is_XXXregable
must be updated when the vartype is changed