OSDN Git Service

add AVM2 instructions
[happyabc/happyabc.git] / link / emptyAbc.ml
1 open Swflib.AbcType
2
3 let cpool = {
4   Swflib.AbcType.int = [];
5   uint          = [];
6   double        = [];
7   string        = [];
8   namespace     = [];
9   namespace_set = [];
10   multiname     = [];
11 }
12
13 let abc = {
14   Swflib.AbcType.cpool         = cpool;
15   method_info   = [];
16   metadata      = [];
17   classes       = [];
18   instances     = [];
19   scripts       = [];
20   method_bodies = []
21 }
22
23 let info = {
24   params       = [];
25   return       = 0;
26   method_name  = 0;
27   method_flags = []
28 }
29
30 let body = {
31   method_sig       = 0;
32   max_stack        = 0;
33   local_count      = 0;
34   init_scope_depth = 0;
35   max_scope_depth  = 0;
36   code             = [];
37   exceptions       = [];
38   method_traits    = []
39 }
40
41 let class_ = {
42   cinit=0;
43   class_traits=[];
44 }
45
46 let instance={
47   instance_name=0;
48   super_name=0;
49   instance_flags=[];
50   interfaces=[];
51   iinit=0;
52   instance_traits=[]
53 }
54