Fix SWAP LHS$[L],RHS$[R]

2017-07-03 18:24:56 +09:00
parent 3c7159a2ca
commit ffb4b6e685
1 changed files with 5 additions and 0 deletions
--- a/SMILEBASIC/VM.d
+++ b/SMILEBASIC/VM.d
@@ -2348,6 +2348,11 @@ class SwapCode : Code
            refitem2.stringArrayReference = new Array!wchar([wc]);
            return;
        }
+        if (refitem2.type == ValueType.StringArrayReference && refitem1.type == ValueType.StringArrayReference)
+        {
+            refitem1.stringArrayReference.swap(refitem2.stringArrayReference);
+            return;
+        }
        throw new TypeMismatch();
    }
 }