Browse Source

* fixed to my previous patch: the hightree must always be converted to a
longint

Jonas Maebe 24 years ago
parent
commit
479f1a5ce9
1 changed files with 8 additions and 7 deletions
  1. 8 7
      compiler/ncal.pas

+ 8 - 7
compiler/ncal.pas

@@ -585,11 +585,6 @@ implementation
                    begin
                      hightree:=caddnode.create(subn,geninlinenode(in_length_x,false,left.getcopy),
                                                cordconstnode.create(1,s32bittype));
-{
-                     not necessary (JM) 
-                     firstpass(hightree);
-}
-                     hightree:=ctypeconvnode.create(hightree,s32bittype);
                      loadconst:=false;
                    end;
                end;
@@ -598,7 +593,9 @@ implementation
           len:=0;
         end;
         if loadconst then
-          hightree:=cordconstnode.create(len,s32bittype);
+          hightree:=cordconstnode.create(len,s32bittype)
+        else
+          hightree:=ctypeconvnode.create(hightree,s32bittype);
         firstpass(hightree);
       end;
 
@@ -1758,7 +1755,11 @@ begin
 end.
 {
   $Log$
-  Revision 1.59  2001-12-10 14:28:47  jonas
+  Revision 1.60  2001-12-11 13:21:36  jonas
+    * fixed to my previous patch: the hightree must always be converted to a
+      longint
+
+  Revision 1.59  2001/12/10 14:28:47  jonas
     * gen_high_tree now uses an inline node of type in_high_x in most cases
       so that it doesn't duplicate any code anymore from ninl.pas (and
       dynamic array support was still missing)