bonkmaykr/otyaSMILEBASIC
1
0
Fork 0
Code Activity

Fix SWAP integer,double

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

12
SMILEBASIC/TEST.txt
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

2
SMILEBASIC/VM.d
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;
}