COMMON: Fix redim regression

Author: chrisws

ChangeLog

@@ -1,3 +1,7 @@
+2023-06-18 (12.27)
+	COMMON: Fix redim regression
+	PLUGINS: Added mechanism for cleaning up resources when the associated map falls out of scope
+
 2023-05-12 (12.27)
 	CONSOLE: Fix image save
 	ANDROID: Fix download error when there are duplicate scratch.bas files

samples/distro-examples/tests/array.bas

@@ -426,4 +426,15 @@ p(asc("|")) = 1
 p(asc("}")) = 1
 p(asc("~")) = 1
 
+'
+' https://www.syntaxbomb.com/smallbasic/redim-why-to-keep-old-versons/
+'
+a = [0,1,2,3,4,5,6,7,8,9,10,11]
+redim a(11)    : if a != [0,1,2,3,4,5,6,7,8,9,10,11] then throw str(a)
+redim a(1, 11) : if a != [0,1,2,3,4,5,6,7,8,9,10,11;0,0,0,0,0,0,0,0,0,0,0,0] then throw str(a)
+redim a(2, 10) : if a != [0,1,2,3,4,5,6,7,8,9,10;11,0,0,0,0,0,0,0,0,0,0;0,0,0,0,0,0,0,0,0,0,0] then throw str(a)
+redim a(1, 11) : if a != [0,1,2,3,4,5,6,7,8,9,10,11;0,0,0,0,0,0,0,0,0,0,0,0] then throw str(a)
+redim a(10)    : if a != [0,1,2,3,4,5,6,7,8,9,10] then throw str(a)
+redim a(0 to 7): if a != [0,1,2,3,4,5,6,7] then throw str(a)
+redim a(0 to 1): if a != [0,1] then throw str(a)
 

src/common/blib.c

@@ -210,8 +210,6 @@ void cmd_dim(int preserve) {
       }
       if (!preserve || var_p->type != V_ARRAY) {
         v_new_array(var_p, size);
-      } else if (v_maxdim(var_p) != dimensions) {
-        err_matdim();
       } else {
         // preserve previous array contents
         v_resize_array(var_p, size);