From a13db1decbae332e05cd4767cfdafcda64b57256 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Wed, 23 Apr 2003 10:11:22 +0000
Subject: [PATCH]   * range check error for GUID fixed

---
 compiler/nobj.pas | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/compiler/nobj.pas b/compiler/nobj.pas
index 97d5d1960f..c2c3a54b78 100644
--- a/compiler/nobj.pas
+++ b/compiler/nobj.pas
@@ -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.