From f5f599c5e6cd59cb784d94034ffed2fd55576035 Mon Sep 17 00:00:00 2001
From: julianb0 <spectral@os-k.eu>
Date: Tue, 6 Aug 2019 14:42:31 +0200
Subject: [PATCH] sal

---
 vm/in/ALU   | 4 +---
 vm/in/alu.c | 1 -
 2 files changed, 1 insertion(+), 4 deletions(-)

diff --git a/vm/in/ALU b/vm/in/ALU
index 6553ccc..a095baa 100644
--- a/vm/in/ALU
+++ b/vm/in/ALU
@@ -44,14 +44,12 @@ shl 3
 shr 3
 
 #
-# Arithmetical left/right shift (SAL/SAR)
+# Arithmetical right shift (SAR)
 #
-#       $dest = $src1 <<< $src2     (SAL)
 #       $dest = $src1 >>> $src2     (SAR)
 #
 # Preserves all flags
 #
-sal 3
 sar 3
 
 #---------------------------------------------------------------------------#
diff --git a/vm/in/alu.c b/vm/in/alu.c
index a9eb7ff..35adff5 100644
--- a/vm/in/alu.c
+++ b/vm/in/alu.c
@@ -16,7 +16,6 @@ IMPL_START(xor) { SRCP(p2); SRCP(p3); *r1 = p2->val ^ p3->val; return 1; }
 
 IMPL_START(shl) { SRCP(p2); SRCP(p3); *r1 = p2->val << p3->val; return 1; }
 IMPL_START(shr) { SRCP(p2); SRCP(p3); *r1 = p2->val >> p3->val; return 1; }
-IMPL_START(sal) { SRCP(p2); SRCP(p3); *r1 = (ulong)((long)p2->val << (long)p3->val); return 1; }
 IMPL_START(sar) { SRCP(p2); SRCP(p3); *r1 = (ulong)((long)p2->val >> (long)p3->val); return 1; }
 
 //----------------------------------------------------------------------------//