Bug fix Cgen

This commit is contained in:
Léonard Gérard 2010-12-14 18:30:16 +01:00
parent 2ae809c971
commit 7d3b6a4679

View file

@ -737,6 +737,7 @@ let cfile_list_of_oprog_ty_decls name oprog =
let global_file_header name prog =
let dependencies = S.elements (Obc_utils.Deps.deps_program prog) in
let dependencies = List.map String.uncapitalize dependencies in
let (decls, defs) =
List.split (List.map cdefs_and_cdecls_of_class_def prog.p_defs) in