sforman
/
Thun
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

No negative shift values.

This commit is contained in:
Simon Forman 2023-02-14 14:56:46 -08:00
parent 23cf3f5b70
commit 2f5f679d61
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
implementations/Nim/joy.nim
View File

@ -519,6 +519,8 @@ proc joy_eval(sym: string, stack: JoyListType, expression: JoyListType, dictiona
# > Nim Error: cannot instantiate: 'toInt[int]'; got 1 typeof(s) but expected 0 # > Nim Error: cannot instantiate: 'toInt[int]'; got 1 typeof(s) but expected 0
# So just convert to string and back to int, and hope for the best... # So just convert to string and back to int, and hope for the best...
let n = parseInt($a) let n = parseInt($a)
if n < 0:
raise newException(ValueError, "Negative shift count.")
let i = b shl n let i = b shl n
return (push_int(i, s1), expression, dictionary) return (push_int(i, s1), expression, dictionary)
@ -526,6 +528,8 @@ proc joy_eval(sym: string, stack: JoyListType, expression: JoyListType, dictiona
let (a, s0) = pop_int(stack) let (a, s0) = pop_int(stack)
let (b, s1) = pop_int(s0) let (b, s1) = pop_int(s0)
let n = parseInt($a) let n = parseInt($a)
if n < 0:
raise newException(ValueError, "Negative shift count.")
let i = b shr n let i = b shr n
return (push_int(i, s1), expression, dictionary) return (push_int(i, s1), expression, dictionary)