paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 01:09:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* align all constants correctly (default of 4 size for real type constants)

Browse Source
This commit is contained in:
carl 2002-11-09 15:36:50 +00:00
parent 8ef2c267c4
commit c0db65da11
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/ncgcon.pas
View File

@ -65,7 +65,7 @@ implementation
uses
globtype,widestr,systems,
verbose,globals,
symconst,symdef,aasmbase,aasmtai,defbase,
symconst,symdef,aasmbase,aasmtai,aasmcpu,defbase,
cpuinfo,cpubase,
cginfo,cgbase,tgobj,rgobj
{$ifdef delphi}
@ -129,6 +129,7 @@ implementation
lab_real:=lastlabel;
if (cs_create_smart in aktmoduleswitches) then
Consts.concat(Tai_cut.Create);
consts.concat(tai_align.create(const_align(4)));
Consts.concat(Tai_label.Create(lastlabel));
case realait of
ait_real_32bit :
@ -305,6 +306,7 @@ implementation
lab_str:=lastlabel;
if (cs_create_smart in aktmoduleswitches) then
Consts.concat(Tai_cut.Create);
consts.concat(tai_align.create(const_align(4)));
Consts.concat(Tai_label.Create(lastlabel));
{ generate an ansi string ? }
case st_type of
@ -466,6 +468,7 @@ implementation
lab_set:=lastlabel;
if (cs_create_smart in aktmoduleswitches) then
Consts.concat(Tai_cut.Create);
consts.concat(tai_align.create(const_align(4)));
Consts.concat(Tai_label.Create(lastlabel));
if tsetdef(resulttype.def).settype=smallset then
begin
@ -506,6 +509,7 @@ implementation
location_reset(location,LOC_CREFERENCE,OS_NO);
{ label for GUID }
objectlibrary.getdatalabel(tmplabel);
consts.concat(tai_align.create(const_align(16)));
consts.concat(Tai_label.Create(tmplabel));
consts.concat(Tai_const.Create_32bit(value.D1));
consts.concat(Tai_const.Create_16bit(value.D2));
@ -527,7 +531,10 @@ begin
end.
{
$Log$
Revision 1.21 2002-10-06 21:01:50 peter
Revision 1.22 2002-11-09 15:36:50 carl
* align all constants correctly (default of 4 size for real type constants)
Revision 1.21 2002/10/06 21:01:50 peter
* use tconstexpruint instead of qword
Revision 1.20 2002/10/05 12:43:25 carl