Fixing bug in RSHIFT.

2022-05-28 17:47:51 -07:00
parent a864b24347
commit f0cea166e4
2 changed files with 10 additions and 1 deletions
--- a/common/base_tests.fs
+++ b/common/base_tests.fs
@ -129,3 +129,12 @@ e: test-?dup
  0 ?dup 0 =assert
  depth 0 =assert
 ;e
+
+e: test-lshift
+  $1234 4 lshift $12340 =assert
+;e
+
+e: test-rshift
+  $1234 4 rshift $123 =assert
+  -1 cell 8 * 1- rshift 1 =assert
+;e