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

* Add more explicit sizes for array types

Browse Source 
git-svn-id: trunk@20948 -
This commit is contained in:
pierre 2012-04-20 22:22:29 +00:00
parent 8c27e280e9
commit 84cd32a593
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/dbgstabs.pas
View File

@ -694,7 +694,13 @@ implementation
ss:='-31;';
{u32bit : result:=def_stab_number(s32inttype)+';0;-1;'); }
else
ss:=def_stabstr_evaluate(def,'r${numberstring};$1;$2;',[tostr(longint(def.low.svalue)),tostr(longint(def.high.svalue))]);
begin
if def.size <> std_param_align then
ss:='@s'+tostr(def.size*8)+';'
else
ss:='';
ss:=ss+def_stabstr_evaluate(def,'r${numberstring};$1;$2;',[tostr(longint(def.low.svalue)),tostr(longint(def.high.svalue))]);
end;
end;
end;
write_def_stabstr(list,def,ss);
@ -896,7 +902,12 @@ implementation
begin
if not is_packed_array(def) then
begin
tempstr:='ar$1;$2;$3;$4';
{ Try to used P if ememlent size is smaller than
usual integer }
if def.elesize <> std_param_align then
tempstr:='ar@s'+tostr(def.elesize*8)+';$1;$2;$3;$4'
else
tempstr:='ar$1;$2;$3;$4';
if is_dynamic_array(def) then
tempstr:='*'+tempstr;
ss:=def_stabstr_evaluate(def,tempstr,[def_stab_number(tarraydef(def).rangedef),