From 978f5bc208248afe284bb9488c4e892e9315c8a2 Mon Sep 17 00:00:00 2001
From: Gabriel Kerneis
Date: Mon, 2 Jun 2014 15:46:40 +0100
Subject: Fix dependent-type for MEM in power.sail

Now, constraint resolution works for test/power.sail
---
 src/Makefile        | 2 +-
 src/test/power.sail | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/Makefile b/src/Makefile
index b4265016..92ca2246 100644
--- a/src/Makefile
+++ b/src/Makefile
@@ -8,7 +8,7 @@ test: all
 
 test_power:
 	#../../../rsem/idl/power/binary/run.sh
-	SAIL_OPTS=-skip_constraints ocamlbuild -classic-display sail.native test/run_power.native
+	ocamlbuild -classic-display sail.native test/run_power.native
 	./run_power.native --file ../../../rsem/idl/power/binary/main.bin
 
 test_idempotence:
diff --git a/src/test/power.sail b/src/test/power.sail
index 9cf49dc3..02b4555f 100644
--- a/src/test/power.sail
+++ b/src/test/power.sail
@@ -91,7 +91,7 @@ register (vector <0, 64, inc, bit>) DCR1
 let (vector <0, 2, inc, (register<(vector<0, 64, inc, bit>)>) >) DCR =
   [ DCR0, DCR1 ]
 
-val extern ( nat , nat ) -> (bit[64]) effect { wmem , rmem } MEM
+val extern forall Nat 'n. ( nat , [|'n|] ) -> (bit[8 * 'n]) effect { wmem , rmem } MEM
 
 (* XXX effect for trap? *)
 val extern unit -> unit effect pure trap
-- 
cgit v1.2.3