paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 07:19:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* range check error for GUID fixed

Browse Source
This commit is contained in:
peter 2003-04-23 10:11:22 +00:00
parent 18b1a27d2c
commit a13db1decb
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/nobj.pas
View File

@ -858,7 +858,7 @@ implementation
objectlibrary.getdatalabel(tmplabel);
rawdata.concat(tai_align.create(const_align(pointer_size)));
rawdata.concat(Tai_label.Create(tmplabel));
rawdata.concat(Tai_const.Create_32bit(curintf.iidguid^.D1));
rawdata.concat(Tai_const.Create_32bit(longint(curintf.iidguid^.D1)));
rawdata.concat(Tai_const.Create_16bit(curintf.iidguid^.D2));
rawdata.concat(Tai_const.Create_16bit(curintf.iidguid^.D3));
for i:=Low(curintf.iidguid^.D4) to High(curintf.iidguid^.D4) do
@ -1333,7 +1333,10 @@ initialization
end.
{
$Log$
Revision 1.40 2003-01-13 14:54:34 daniel
Revision 1.41 2003-04-23 10:11:22 peter
* range check error for GUID fixed
Revision 1.40 2003/01/13 14:54:34 daniel
* Further work to convert codegenerator register convention;
internalerror bug fixed.