X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fexec.c;h=a757dfaa0bfb7161a547edd76b4d8518b446df32;hb=3c7b6a47f0929d1558998d1cd34dcfbd5249e8b0;hp=00cee8ddee097ed89b8e498d6695fcc25165125f;hpb=ed3225328d7bc0d718fc97dd0b05692b7287667b;p=YACASL2.git

diff --git a/src/exec.c b/src/exec.c
index 00cee8d..a757dfa 100644
--- 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;
+    res = sign | (res & 0x7F);
     /* OFに、レジスタから最後に送り出されたビットの値を設定 */
     if(last > 0x0) {
         FR += OF;