X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=gcram.v;h=320f99e1022eedbe944c6e4a2a05bdd1b848d020;hb=HEAD;hp=7e618e276f931ff68a09170d93748dd061d6ff9b;hpb=ab3ea03d7c7575d8d9917122a463935867a8572c;p=yule.git

diff --git a/gcram.v b/gcram.v
index 7e618e2..320f99e 100644
--- a/gcram.v
+++ b/gcram.v
@@ -1,17 +1,14 @@
 module GCRAM
-(input clk, input we, input[12:0] addr, input[15:0] di, output reg [15:0] do, output reg [15:0] result);
-   reg [15:0] mem [255:0];
+(input clk, input we, input[12:0] addr, input[15:0] di, output reg [15:0] do);
+   reg [15:0] mem [4095:0];
 
-   always @ (posedge clk)
+   always @ (negedge clk)
 	 do <= #1 mem[addr];
 
-   always @ (posedge clk)
+   always @ (negedge clk)
 	 if (we)
 	   mem[addr] <= #1 di;
 
-   always @ (posedge clk)
-	 result <= mem[6];
-
    initial begin
 	  mem[ 0] <= 0;                     // (cdr part of NIL)
 	  mem[ 1] <= 0;                     // (car part of NIL)