Fix bugs in SCF and CCF

diff --git a/core/insn_alu_a.v b/core/insn_alu_a.v
index a51f8bb0adb2c84fd895768748b973d4c8b7e7b9..5fbadeef6ad0c1ae1904a51c6aae8e6799c49f1c 100644 (file)
--- a/core/insn_alu_a.v
+++ b/core/insn_alu_a.v
@@ -61,10 +61,10 @@
                        `_F <= {`_F[7],1'b1,1'b1,`_F[4:0]};
                end
                `INSN_alu_SCF: begin
-                       `_F <= {`_F[7:5],1'b1,`_F[3:0]};
+                       `_F <= {`_F[7],3'b001,`_F[3:0]};
                end
                `INSN_alu_CCF: begin
-                       `_F <= {`_F[7:5],~`_F[4],`_F[3:0]};
+                       `_F <= {`_F[7],2'b00,~`_F[4],`_F[3:0]};
                end
                endcase
        end