Save Changes & Submit

output.log

@@ -0,0 +1,17 @@
+Test passed
+Test passed
+Left barrel shifter test passed
+Warning: file 'v1.hex' for memory 'a_memory' has a gap at addresses 64 to 255.
+Warning: file 'v2.hex' for memory 'b_memory' has a gap at addresses 64 to 255.
+STARTING TEST FOR VECTOR DOT PRODUCT DIM 16... index 0
+GOT        410
+Test 0 passed
+STARTING TEST FOR VECTOR DOT PRODUCT DIM 16... index 1
+GOT        354
+Test 1 passed
+STARTING TEST FOR VECTOR DOT PRODUCT DIM 16... index 2
+GOT        524
+Test 2 passed
+STARTING TEST FOR VECTOR DOT PRODUCT DIM 16... index 3
+GOT        410
+Test 3 passed

output1.log

@@ -0,0 +1 @@
+Test passed

output2.log

@@ -0,0 +1 @@
+Test passed

output3.log

@@ -0,0 +1 @@
+Left barrel shifter test passed

output4.log

@@ -0,0 +1,14 @@
+Warning: file 'v1.hex' for memory 'a_memory' has a gap at addresses 64 to 255.
+Warning: file 'v2.hex' for memory 'b_memory' has a gap at addresses 64 to 255.
+STARTING TEST FOR VECTOR DOT PRODUCT DIM 16... index 0
+GOT        410
+Test 0 passed
+STARTING TEST FOR VECTOR DOT PRODUCT DIM 16... index 1
+GOT        354
+Test 1 passed
+STARTING TEST FOR VECTOR DOT PRODUCT DIM 16... index 2
+GOT        524
+Test 2 passed
+STARTING TEST FOR VECTOR DOT PRODUCT DIM 16... index 3
+GOT        410
+Test 3 passed

part_1_combinational/Alu.bsv

@@ -6,6 +6,12 @@ typedef enum {
 } InstructionType deriving (Eq,FShow, Bits);
 
 function Bit#(32) alu (InstructionType ins, Bit#(32) v1, Bit#(32) v2);
-	return 0;
+	case (ins) matches
+		Add: return v1+v2;
+		ShiftL: return v1 << v2;
+		And: return v1 & v2;
+		Not: return ~v1;
+		default: return 0;
+	endcase
 endfunction
 

part_1_combinational/AluTest

@@ -0,0 +1,12 @@
+#!/bin/sh
+
+BLUESPECDIR=`echo 'puts $env(BLUESPECDIR)' | bluetcl`
+
+for arg in $@
+do
+  if (test "$arg" = "-h")
+  then
+    exec $BLUESPECDIR/tcllib/bluespec/bluesim.tcl $0.so mkTest --script_name `basename $0` -h
+  fi
+done
+exec $BLUESPECDIR/tcllib/bluespec/bluesim.tcl $0.so mkTest --script_name `basename $0` --creation_time 1708789202 "$@"

part_1_combinational/ArbiterTest

@@ -0,0 +1,12 @@
+#!/bin/sh
+
+BLUESPECDIR=`echo 'puts $env(BLUESPECDIR)' | bluetcl`
+
+for arg in $@
+do
+  if (test "$arg" = "-h")
+  then
+    exec $BLUESPECDIR/tcllib/bluespec/bluesim.tcl $0.so mkTest --script_name `basename $0` -h
+  fi
+done
+exec $BLUESPECDIR/tcllib/bluespec/bluesim.tcl $0.so mkTest --script_name `basename $0` --creation_time 1708789206 "$@"

part_1_combinational/CombArbiter.bsv

@@ -6,8 +6,19 @@ typedef struct {
  Bit#(4) index;
 } ResultArbiter deriving (Eq, FShow);
 
-function ResultArbiter arbitrate(Vector#(16, Bit#(1)) ready, Vector#(16, Bit#(31)) data);
-	return ResultArbiter{valid: False, data : 0, index: 0};
-	// TODO
+function ResultArbiter arbitrateTree(Vector#(16, Bit#(1)) ready, Vector#(16, Bit#(31)) data, Integer _start, Integer _end);
+    if(_start == _end) begin
+        return ResultArbiter{valid: ready[_start]==1, data: data[_start], index: fromInteger(_start)};
+    end
+	else begin
+        Integer mid = (_start + _end) / 2;
+        ResultArbiter left = arbitrateTree(ready, data, _start, mid);
+        ResultArbiter right = arbitrateTree(ready, data, mid+1, _end);
+		if(left.valid) return left;
+    	else return right;
+    end
 endfunction
 
+function ResultArbiter arbitrate(Vector#(16, Bit#(1)) ready, Vector#(16, Bit#(31)) data);
+    return arbitrateTree(ready, data, 0, 15);
+endfunction

part_1_combinational/Shifter.bsv

@@ -13,6 +13,14 @@ endfunction
 
 
 function Vector#(16, Word) barrelLeft(Vector#(16, Word) in, Bit#(4) shftAmnt);
-    return unpack(0);
+    Vector#(16, Word) resultVector = newVector();
+    Bit#(5) max = 16; 
+    Bit#(5) wrapAmnt = max-{0, shftAmnt};
+    Vector#(16, Word) result = naiveShfl(in, shftAmnt);
+    for(Integer i = 0; i < 16; i = i + 1) begin
+        if( fromInteger(i) >= wrapAmnt)
+            result[i] = in[fromInteger(i)-wrapAmnt];
+    end
+    return result;
     // Implementation of a left barrel shifter
 endfunction

part_1_combinational/ShifterTest

@@ -0,0 +1,12 @@
+#!/bin/sh
+
+BLUESPECDIR=`echo 'puts $env(BLUESPECDIR)' | bluetcl`
+
+for arg in $@
+do
+  if (test "$arg" = "-h")
+  then
+    exec $BLUESPECDIR/tcllib/bluespec/bluesim.tcl $0.so mkTest --script_name `basename $0` -h
+  fi
+done
+exec $BLUESPECDIR/tcllib/bluespec/bluesim.tcl $0.so mkTest --script_name `basename $0` --creation_time 1708789210 "$@"