|
@@ -551,6 +551,11 @@ let create_field_context (ctx,cctx) c cff =
|
|
let ctx = {
|
|
let ctx = {
|
|
ctx with
|
|
ctx with
|
|
pass = PBuildClass; (* will be set later to PTypeExpr *)
|
|
pass = PBuildClass; (* will be set later to PTypeExpr *)
|
|
|
|
+ locals = PMap.empty;
|
|
|
|
+ opened = [];
|
|
|
|
+ monomorphs = {
|
|
|
|
+ perfunction = [];
|
|
|
|
+ };
|
|
} in
|
|
} in
|
|
let display_modifier = Typeload.check_field_access ctx cff in
|
|
let display_modifier = Typeload.check_field_access ctx cff in
|
|
let is_static = List.mem_assoc AStatic cff.cff_access in
|
|
let is_static = List.mem_assoc AStatic cff.cff_access in
|