OSDN Git Service

add type annot for abc module
authormzp <mzpppp@gmail.com>
Sun, 13 Sep 2009 10:05:13 +0000 (19:05 +0900)
committermzp <mzpppp@gmail.com>
Sun, 13 Sep 2009 10:05:13 +0000 (19:05 +0900)
swflib/abc.ml

index 4c361c9..0fd396b 100644 (file)
@@ -3,5 +3,10 @@ module C = Compile.Make(HighInst)
 include AbcType
 include MethodType
 
-let asm = A.to_bytes
-let compile = C.to_abc
+let asm : LowInst.t abc -> Bytes.t list = A.to_bytes
+let compile : Cpool.multiname list -> HighInst.s method_ -> LowInst.t abc = C.to_abc
+
+let output : out_channel -> Bytes.t list -> unit =
+  Bytes.output_bytes
+
+