Changed maximum number of entries in multiple assignment from 8 to 16

Author: totalspectrum

Changelog.txt

@@ -1,4 +1,5 @@
 Version 6.1.8
+- Changed maximum number of entries in multiple assignments from 8 to 16
 - Fixed multiple uses of LET in BASIC programs
 - Made sure class types are resolved when they are used as function returns
 - Made UTF-8 the default encoding for FatFS (configurable via FF_LFN_UNICODE)

backends/asm/outasm.c

@@ -430,7 +430,7 @@ Operand *GetResultReg(int n)
 {
     static char rvalname[32];
     if (n < 0 || n >= MAX_TUPLE) {
-        ERROR(NULL, "Internal error bad return value");
+        ERROR(NULL, "Too many return values from function");
         return NULL;
     }
     if (!resultreg[n]) {
@@ -4659,6 +4659,10 @@ static IR *EmitMove(IRList *irl, Operand *origdst, Operand *origsrc, AST *linenu
     if (IsEmptyOperand(origdst)) {
         return ir;
     }
+    if (!src) {
+        ERROR(linenum, "bad move operand");
+        return ir;
+    }
     if (src->kind == IMM_HUB_LABEL) {
         src = NewImmediatePtr(NULL, src);
     }

frontends/common.h

@@ -582,7 +582,7 @@ struct modulestate {
 };
 
 /* maximum number of items in a multiple assignment */
-#define MAX_TUPLE 8
+#define MAX_TUPLE 16
 
 /* the current parser state */
 extern Module *current;