bonkmaykr/otyaSMILEBASIC
1
0 Fork 0
Code Activity

Fix SWAP integer,double

Browse Source
This commit is contained in:
otya128 committed 2017-07-04 20:40:01 +09:00
1 parent bb586dbb55
commit dd944756e4
2 files changed
+7 -7
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

SMILEBASIC/TEST.txt
+6 -6
View File
@@ -60,18 +60,18 @@ DEF SWAPTEST
VAR A=1
VAR B=2
SWAP A,B
ASSERT__ B==1, "SWAP"
ASSERT__ A==2, "SWAP"
ASSERT__ B==1, "SWAP1"
ASSERT__ A==2, "SWAP2"
VAR A$="1
VAR B$="2
SWAP A$,B$
ASSERT__ B$=="1", "SWAP"
ASSERT__ A$=="2", "SWAP"
ASSERT__ B$=="1", "SWAP3"
ASSERT__ A$=="2", "SWAP4"
VAR A%=1
VAR B#=2.34567
SWAP A%,B#
ASSERT__ B#==1, "SWAP"
ASSERT__ A%==2, "SWAP"
ASSERT__ B#==1, "SWAP5"
ASSERT__ A%==2, "SWAP6"
END
'REPEAT TEST
SMILEBASIC/VM.d
+1 -1
View File
@@ -2293,7 +2293,7 @@ class SwapCode : Code
if (refitem1.reference.type == ValueType.Double && refitem2.reference.type == ValueType.Integer)
{
integer = refitem2.reference.castInteger;
refitem2.reference.integerValue = refitem1.reference.integerValue;
refitem2.reference.integerValue = refitem1.reference.castInteger;
refitem1.reference.doubleValue = integer;
return;
}