From: Joshua Wise <joshua@rebirth.joshuawise.com>
Date: Thu, 22 May 2008 03:15:02 +0000 (-0400)
Subject: Fix bugs in SCF and CCF
X-Git-Url: http://git.joshuawise.com/fpgaboy.git/commitdiff_plain/f8c46ff554cb7f4c067eab1234faf729118c4c25

Fix bugs in SCF and CCF
---

diff --git a/core/insn_alu_a.v b/core/insn_alu_a.v
index a51f8bb..5fbadee 100644
--- 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