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 A=1
VAR B=2 VAR B=2
SWAP A,B SWAP A,B
ASSERT__ B==1, "SWAP" ASSERT__ B==1, "SWAP1"
ASSERT__ A==2, "SWAP" ASSERT__ A==2, "SWAP2"
VAR A$="1 VAR A$="1
VAR B$="2 VAR B$="2
SWAP A$,B$ SWAP A$,B$
ASSERT__ B$=="1", "SWAP" ASSERT__ B$=="1", "SWAP3"
ASSERT__ A$=="2", "SWAP" ASSERT__ A$=="2", "SWAP4"
VAR A%=1 VAR A%=1
VAR B#=2.34567 VAR B#=2.34567
SWAP A%,B# SWAP A%,B#
ASSERT__ B#==1, "SWAP" ASSERT__ B#==1, "SWAP5"
ASSERT__ A%==2, "SWAP" ASSERT__ A%==2, "SWAP6"
END END
'REPEAT TEST '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) if (refitem1.reference.type == ValueType.Double && refitem2.reference.type == ValueType.Integer)
{ {
integer = refitem2.reference.castInteger; integer = refitem2.reference.castInteger;
refitem2.reference.integerValue = refitem1.reference.integerValue; refitem2.reference.integerValue = refitem1.reference.castInteger;
refitem1.reference.doubleValue = integer; refitem1.reference.doubleValue = integer;
return; return;
} }