bonkmaykr/otyaSMILEBASIC
1
0
Fork 0
Code Activity

Fix SWAP STR1$,STR2$

Browse Source
This commit is contained in:
otya128
2016-12-17 15:31:51 +09:00
parent 7d75e8ff75
commit e934760ab2
2 changed files with 42 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
SMILEBASIC/VM.d
View File

@@ -1994,6 +1994,43 @@ class SwapCode : Code
return;
}
}
if (refitem2.type == ValueType.StringReference && refitem1.type == ValueType.Reference)
{
swap(refitem1, refitem2);
}
if (refitem1.type == ValueType.StringReference && refitem2.type == ValueType.Reference)
{
auto str = refitem2.reference.castString;
wchar wc = cast(wchar)refitem1.stringReference;
refitem1.stringReference = str;
refitem2.reference.stringValue = new Array!wchar([wc]);
return;
}
if (refitem2.type == ValueType.StringArrayReference && refitem1.type == ValueType.Reference)
{
swap(refitem1, refitem2);
}
if (refitem1.type == ValueType.StringArrayReference && refitem2.type == ValueType.Reference)
{
auto str = refitem2.reference.castString;
auto str2 = cast(Array!wchar)refitem1.stringArrayReference;
refitem1.stringArrayReference = str;
refitem2.reference.stringValue = str2;
return;
}
if (refitem2.type == ValueType.StringReference && refitem1.type == ValueType.StringArrayReference)
{
swap(refitem1, refitem2);
}
if (refitem1.type == ValueType.StringReference && refitem2.type == ValueType.StringArrayReference)
{
auto str = cast(Array!wchar)refitem2.stringArrayReference;
wchar wc = cast(wchar)refitem1.stringReference;
refitem1.stringReference = str;
refitem2.stringArrayReference = new Array!wchar([wc]);
return;
}
throw new TypeMismatch();
}
}