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

* set sizes needs to be passes in bits not bytes to stabs info

Browse Source
This commit is contained in:
pierre 2003-01-21 14:36:44 +00:00
parent 5ecba7a95a
commit 2a17241d66
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/symdef.pas
View File

@ -2469,7 +2469,7 @@ implementation
if settype=smallset then if settype=smallset then
stabstring := strpnew('r'+s32bittype^.numberstring+';0;0xffffffff;') stabstring := strpnew('r'+s32bittype^.numberstring+';0;0xffffffff;')
else } else }
stabstring := strpnew('S'+tstoreddef(elementtype.def).numberstring); stabstring := strpnew('@s'+tostr(savesize*8)+';S'+tstoreddef(elementtype.def).numberstring);
end; end;
@ -5648,7 +5648,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.126 2003-01-16 22:11:33 peter Revision 1.127 2003-01-21 14:36:44 pierre
* set sizes needs to be passes in bits not bytes to stabs info
Revision 1.126 2003/01/16 22:11:33 peter
* fixed tprocdef.is_addressonly * fixed tprocdef.is_addressonly
Revision 1.125 2003/01/15 01:44:33 peter Revision 1.125 2003/01/15 01:44:33 peter