diff options
author | Adam Chlipala <adamc@hcoop.net> | 2009-04-30 11:07:29 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2009-04-30 11:07:29 -0400 |
commit | 7a3ba5558cb363006aae188e02dd57dda833d356 (patch) | |
tree | be8dc60f901b2cab9ec630d505bf152d1d19340e /src/cjr_print.sml | |
parent | 0264695e9a76f87e6164c489c34af63fa893889d (diff) |
Basis.list
Diffstat (limited to 'src/cjr_print.sml')
-rw-r--r-- | src/cjr_print.sml | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/src/cjr_print.sml b/src/cjr_print.sml index 7928ec5e..ee2307b6 100644 --- a/src/cjr_print.sml +++ b/src/cjr_print.sml @@ -102,6 +102,11 @@ fun p_typ' par env (t, loc) = else box [p_typ' par env t, string "*"] + | TList (_, i) => box [string "struct", + space, + string "__uws_", + string (Int.toString i), + string "*"] and p_typ env = p_typ' false env @@ -147,7 +152,7 @@ fun p_patCon env pc = PConVar n => p_con_named env n | PConFfi {mod = m, con, ...} => string ("uw_" ^ ident m ^ "_" ^ ident con) -fun p_pat (env, exit, depth) (p, _) = +fun p_pat (env, exit, depth) (p, loc) = case p of PWild => (box [], env) @@ -328,6 +333,10 @@ fun p_pat (env, exit, depth) (p, _) = in (box [string "{", newline, + string "/* ", + string (ErrorMsg.spanToString loc), + string "*/", + newline, p_typ env t, space, string "disc", @@ -574,6 +583,7 @@ fun notLeaky env allowHeapAllocated = | TFfi ("Basis", "blob") => allowHeapAllocated | TFfi _ => true | TOption t => allowHeapAllocated andalso nl ok t + | TList (t, _) => allowHeapAllocated andalso nl ok t in nl IS.empty end |