Merge branch 'master' into cmd-casl

[YACASL2.git] / src / exec.c

diff --git a/src/exec.c b/src/exec.c
index a757dfa..ad57551 100644 (file)
--- a/src/exec.c
+++ b/src/exec.c
@@ -149,7 +149,7 @@ WORD sla(WORD val0, WORD val1)
         last = res & 0x4000;
         res <<= 1;
     }
-    res = sign | (res & 0x7F);
+    res = sign | (res & 0x7FFF);
     /* OFに、レジスタから最後に送り出されたビットの値を設定 */
     if(last > 0x0) {
         FR += OF;