|
@@ -387,6 +387,14 @@ and module_type =
|
|
| TTypeDecl of tdef
|
|
| TTypeDecl of tdef
|
|
| TAbstractDecl of tabstract
|
|
| TAbstractDecl of tabstract
|
|
|
|
|
|
|
|
+and module_def = {
|
|
|
|
+ m_id : int;
|
|
|
|
+ m_path : path;
|
|
|
|
+ mutable m_types : module_type list;
|
|
|
|
+ mutable m_statics : tclass option;
|
|
|
|
+ m_extra : module_def_extra;
|
|
|
|
+}
|
|
|
|
+
|
|
and module_def_display = {
|
|
and module_def_display = {
|
|
mutable m_inline_calls : (pos * pos) list; (* calls whatever is at pos1 from pos2 *)
|
|
mutable m_inline_calls : (pos * pos) list; (* calls whatever is at pos1 from pos2 *)
|
|
mutable m_type_hints : (pos * pos) list;
|
|
mutable m_type_hints : (pos * pos) list;
|
|
@@ -429,14 +437,6 @@ and module_kind =
|
|
| MExtern
|
|
| MExtern
|
|
| MImport
|
|
| MImport
|
|
|
|
|
|
-and module_def = {
|
|
|
|
- m_id : int;
|
|
|
|
- m_path : path;
|
|
|
|
- mutable m_types : module_type list;
|
|
|
|
- mutable m_statics : tclass option;
|
|
|
|
- mutable m_extra : module_def_extra;
|
|
|
|
-}
|
|
|
|
-
|
|
|
|
and build_state =
|
|
and build_state =
|
|
| Built
|
|
| Built
|
|
| Building of tclass list
|
|
| Building of tclass list
|