Browse Source

* wrong handling of range check for arrays fixed

pierre 27 years ago
parent
commit
2fa5fa850d
1 changed files with 6 additions and 3 deletions
  1. 6 3
      compiler/symdef.inc

+ 6 - 3
compiler/symdef.inc

@@ -1457,9 +1457,9 @@
               { generates the data for range checking }
               { generates the data for range checking }
               getlabelnr(rangenr);
               getlabelnr(rangenr);
               if (cs_smartlink in aktmoduleswitches) then
               if (cs_smartlink in aktmoduleswitches) then
-                datasegment^.concat(new(pai_symbol,init(getrangecheckstring)))
+                datasegment^.concat(new(pai_symbol,init_global(getrangecheckstring)))
               else
               else
-                datasegment^.concat(new(pai_symbol,init_global(getrangecheckstring)));
+                datasegment^.concat(new(pai_symbol,init(getrangecheckstring)));
               datasegment^.concat(new(pai_const,init_32bit(lowrange)));
               datasegment^.concat(new(pai_const,init_32bit(lowrange)));
               datasegment^.concat(new(pai_const,init_32bit(highrange)));
               datasegment^.concat(new(pai_const,init_32bit(highrange)));
            end;
            end;
@@ -3045,7 +3045,10 @@
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.52  1998-10-02 07:20:38  florian
+  Revision 1.53  1998-10-05 12:48:39  pierre
+    * wrong handling of range check for arrays fixed
+
+  Revision 1.52  1998/10/02 07:20:38  florian
     * range checking in units doesn't work if the units are smartlinked, fixed
     * range checking in units doesn't work if the units are smartlinked, fixed
 
 
   Revision 1.51  1998/09/25 12:01:41  florian
   Revision 1.51  1998/09/25 12:01:41  florian