From 66cf61d450c552d2c84262359d57bf36c8b95e7e Mon Sep 17 00:00:00 2001
From: Kathy Gray
Date: Wed, 18 Jun 2014 16:41:49 +0100
Subject: Make hex constants work; improve utility of casts for selecting
 overloaded functions

---
 src/test/test1.sail | 4 +++-
 src/test/test2.sail | 2 +-
 2 files changed, 4 insertions(+), 2 deletions(-)

(limited to 'src/test')

diff --git a/src/test/test1.sail b/src/test/test1.sail
index 64722089..18863ce2 100644
--- a/src/test/test1.sail
+++ b/src/test/test1.sail
@@ -14,6 +14,8 @@ val forall Nat 'a, Nat 'b. bit['a:'b] sliced
 let bit v = bitzero
 let ( bit [ 32 ] ) v1 = 0b101
 
+let ( bit [32] ) v2 = 0xABCDEF01
+
 val forall Type 'a. 'a -> 'a effect pure identity
 function forall Type 'a. 'a identity i = i
 
@@ -39,5 +41,5 @@ function unit a (bit) b = if identity(b) then (identity()) else ()
 
 function bit sw s = switch s { case 0 -> bitzero }
 
-function bit main _ = {ignore(sw(0)); v1[0] }
+function bit main _ = {ignore(sw(0)); ignore((nat) v2); v1[0] }
 
diff --git a/src/test/test2.sail b/src/test/test2.sail
index b4a2dd32..0add0c94 100644
--- a/src/test/test2.sail
+++ b/src/test/test2.sail
@@ -2,7 +2,7 @@ function nat id ( n ) = n
 
 function unit f() = {
  (if( true ) then 
-   a := 3
+   a := (nat) (3 + 0b01) mod 4
   else 
    a := 4
  );
-- 
cgit v1.2.3