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

* another guid range check error

Browse Source
This commit is contained in:
peter 2005-01-31 19:41:01 +00:00
parent 35b9ad16b3
commit 101705af37
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/ncgcon.pas
View File

@ -731,7 +731,7 @@ implementation
objectlibrary.getdatalabel(tmplabel); objectlibrary.getdatalabel(tmplabel);
consts.concat(tai_align.create(const_align(16))); consts.concat(tai_align.create(const_align(16)));
consts.concat(Tai_label.Create(tmplabel)); consts.concat(Tai_label.Create(tmplabel));
consts.concat(Tai_const.Create_32bit(value.D1)); consts.concat(Tai_const.Create_32bit(longint(value.D1)));
consts.concat(Tai_const.Create_16bit(value.D2)); consts.concat(Tai_const.Create_16bit(value.D2));
consts.concat(Tai_const.Create_16bit(value.D3)); consts.concat(Tai_const.Create_16bit(value.D3));
for i:=Low(value.D4) to High(value.D4) do for i:=Low(value.D4) to High(value.D4) do
@ -751,7 +751,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.47 2004-10-31 21:45:03 peter Revision 1.48 2005-01-31 19:41:01 peter
* another guid range check error
Revision 1.47 2004/10/31 21:45:03 peter
* generic tlocation * generic tlocation
* move tlocation to cgutils * move tlocation to cgutils