|
@@ -2099,7 +2099,7 @@ let rec init_module_type ctx context_init do_init (decl,p) =
|
|
|
let rec loop acc types = match types with
|
|
let rec loop acc types = match types with
|
|
|
| td :: l ->
|
|
| td :: l ->
|
|
|
(match resolve_typedef td with
|
|
(match resolve_typedef td with
|
|
|
- | TClassDecl c ->
|
|
|
|
|
|
|
+ | TClassDecl c | TAbstractDecl({a_impl = Some c}) ->
|
|
|
loop (c :: acc) l
|
|
loop (c :: acc) l
|
|
|
| td ->
|
|
| td ->
|
|
|
loop acc l)
|
|
loop acc l)
|
Simon Krajewski