Commits

Anonymous committed 356f87f

MAJ imprimeur de valeurs pour la nouvelle repr des listes.
Renommage codegen -> bytegen, linker -> bytelink.

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@58f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

Comments (0)

Files changed (3)

toplevel/printval.ml

           close_box()
       | Tconstr(path, [ty_arg]) when Path.same path Predef.path_list ->
           let rec print_conses depth cons =
-            if Obj.tag cons != 0 then begin
+            if Obj.is_block cons then begin
               print_val 0 (depth - 1) (Obj.field cons 0) ty_arg;
               let next_obj = Obj.field cons 1 in
-              if Obj.tag next_obj != 0 then begin
+              if Obj.is_block next_obj then begin
                 print_string ";"; print_space();
                 print_conses (depth - 1) next_obj
               end

toplevel/topdirs.ml

       let compunit_pos = input_binary_int ic in  (* Go to descriptor *)
       seek_in ic compunit_pos;
       let compunit = (input_value ic : compilation_unit) in
-      Linker.check_consistency filename compunit;
+      Bytelink.check_consistency filename compunit;
       seek_in ic compunit.cu_pos;
       let code_size = compunit.cu_codesize + 4 in
       let code = Meta.static_alloc code_size in

toplevel/toploop.ml

   if !Clflags.dump_lambda then begin
     Printlambda.lambda lam; print_newline()
   end;
-  let (init_code, fun_code) = Codegen.compile_phrase lam in
+  let (init_code, fun_code) = Bytegen.compile_phrase lam in
   if !Clflags.dump_instr then begin
     Printinstr.instrlist init_code;
     Printinstr.instrlist fun_code;