The unpac monorepo manager self-hosting as a monorepo using unpac
second intermediate step (translprim defs)
+5
-5
boot/ocamlc
boot/ocamlc
This is a binary file and will not be displayed.
+5
-5
bytecomp/translprim.ml
+5
-5
bytecomp/translprim.ml
···
104
104
let gen_array_kind =
105
105
if Config.flat_float_array then Pgenarray else Paddrarray
106
106
107
-
(*let prim_sys_argv =
108
-
Primitive.simple ~name:"caml_sys_argv" ~arity:1 ~alloc:true*)
107
+
let prim_sys_argv =
108
+
Primitive.simple ~name:"caml_sys_argv" ~arity:1 ~alloc:true
109
109
110
110
let primitives_table =
111
111
create_hashtable 57 [
···
344
344
"%bswap_native", Primitive ((Pbbswap(Pnativeint)), 1);
345
345
"%int_as_pointer", Primitive (Pint_as_pointer, 1);
346
346
"%opaque", Primitive (Popaque, 1);
347
-
(*"%sys_argv", External prim_sys_argv;*)
347
+
"%sys_argv", External prim_sys_argv;
348
348
"%send", Send;
349
349
"%sendself", Send_self;
350
350
"%sendcache", Send_cache;
···
670
670
match prim, args with
671
671
| Primitive (prim, arity), args when arity = List.length args ->
672
672
Lprim(prim, args, loc)
673
-
(*| External prim, args when prim = prim_sys_argv ->
674
-
Lprim(Pccall prim, Lconst (Const_pointer 0) :: args, loc)*)
673
+
| External prim, args when prim = prim_sys_argv ->
674
+
Lprim(Pccall prim, Lconst (Const_pointer 0) :: args, loc)
675
675
| External prim, args ->
676
676
Lprim(Pccall prim, args, loc)
677
677
| Comparison(comp, knd), ([_;_] as args) ->