diff src/flat.sml @ 52:198172560b73

FFI through cloconv
author Adam Chlipala <adamc@hcoop.net>
date Sun, 22 Jun 2008 10:17:34 -0400
parents 537db4ee89f4
children 717b6f8d8505
line wrap: on
line diff
--- a/src/flat.sml	Sun Jun 22 10:12:23 2008 -0400
+++ b/src/flat.sml	Sun Jun 22 10:17:34 2008 -0400
@@ -35,6 +35,7 @@
        | TCode of typ * typ
        | TRecord of (string * typ) list
        | TNamed of int
+       | TFfi of string * string
 
 withtype typ = typ' located
 
@@ -42,6 +43,8 @@
          EPrim of Prim.t
        | ERel of int
        | ENamed of int
+       | EFfi of string * string
+       | EFfiApp of string * string * exp list
        | ECode of int
        | EApp of exp * exp