Grrr ... ocamldep is screwed up ..
print_endline ("Making symbol tables for main program " ^ main_prog);
let assembly = make_assembly state !excls module_name (NoSearch main_prog)
in
let includes, asmss=
let rec aux includes asmss a = match a with
| [] -> includes, asmss
| { filename=filename; asms=asms; } :: t ->
aux (filename :: includes) (asms::asmss) t
in aux [] [] assembly
in
let asms = List.concat (List.rev asmss) in
(* update the global include file list *)
state.syms.include_files := includes;
generate_dep_file state;
(*
print_endline "DEBUG: include files are:";
List.iter print_endline !(state.syms.include_files);
*)
let asms = make_module module_name asms in
print_endline "Binding main program asms";
(*
List.iter (fun a -> print_endline (Flx_print.string_of_asm 2 a)) asms;
*)
(* Bind the assemblies. *)
let end_counter = !(state.syms.counter) in
let bsym_table, root_proc = bind_asms state sym_table bsym_table
(!start_counter) end_counter asms in
start_counter := end_counter;
print_endline "Main program bound";
`
(* Generate the why file *)
generate_why_file state bsym_table root_proc; <<<<------------ Syntax
error here on "bsym_table"
(* Optimize the bound values *)
let bsym_table = optimize_bsyms state bsym_table root_proc in
(* Lower the bound symbols for the backend. *)
let bsym_table = lower_bsyms state bsym_table root_proc in
(* Start working on the backend. *)
codegen_bsyms state bsym_table root_proc
with x ->
Flx_terminate.terminate compiler_options.reverse_return_parity x
end;
(* We're done! let's calculate some simple profile statistics. *)
save_profile state;
I see no error, this code parsed just fine before I added some debug prints.
Now I can't make ocamldep parse it at all... the error, if there is one,
could be right at the top of the file.
--
john skaller
skal...@users.sourceforge.net
------------------------------------------------------------------------------
Beautiful is writing same markup. Internet Explorer 9 supports
standards for HTML5, CSS3, SVG 1.1, ECMAScript5, and DOM L2 & L3.
Spend less time writing and rewriting code and more time creating great
experiences on the web. Be a part of the beta today
http://p.sf.net/sfu/msIE9-sfdev2dev
_______________________________________________
Felix-language mailing list
Felix-language@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/felix-language
