Browse Source

* fix some errors

carl 23 years ago
parent
commit
d9c9277d32
2 changed files with 7 additions and 4 deletions
  1. 2 2
      compiler/msgtxt.inc
  2. 5 2
      compiler/nld.pas

+ 2 - 2
compiler/msgtxt.inc

@@ -408,8 +408,8 @@ const msgtxt : array[0..000141,1..240] of char=(
   '06038_E_Cannot call message handler methods directly'#000+
   '06039_E_Jump in or outside of an exception block'#000+
   '06040_E_Control flow statements aren'#039't allowed in a finally block'#000+
-  '06041_E_Parameters size exceeds limit for certain cpu'#039,'s'#000+
-  '06042_E_Local variable size exceed limit for certain cpu'#039's'#000+
+  '06041_W_Parameters size exceeds limit for certain cpu'#039,'s'#000+
+  '06042_W_Local variable size exceed limit for certain cpu'#039's'#000+
   '06043_E_Local variables size exceeds supported limit'#000+
   '07000_D_Starting $1 styled assembler parsing'#000+
   '07001_D_Finished $1 styled assembler parsing'#000+

+ 5 - 2
compiler/nld.pas

@@ -687,7 +687,7 @@ implementation
         else
           begin
            { get the size before the type conversion - check for all nodes }
-           if assigned(right.resulttype.def) {and (right.nodetype = loadn)} then
+           if assigned(right.resulttype.def) and (right.nodetype in [loadn,vecn]) then
               original_size := right.resulttype.def.size;
            inserttypeconv(right,left.resulttype);
           end;
@@ -1244,7 +1244,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.69  2002-11-29 20:02:44  carl
+  Revision 1.70  2002-12-02 19:38:06  carl
+    * fix some errors
+
+  Revision 1.69  2002/11/29 20:02:44  carl
    * warning / hint for possible loss of data in assignment
 
   Revision 1.68  2002/11/27 20:04:39  peter