File tree Expand file tree Collapse file tree 2 files changed +46
-0
lines changed Expand file tree Collapse file tree 2 files changed +46
-0
lines changed Original file line number Diff line number Diff line change @@ -593,3 +593,37 @@ CAMLprim value caml_array_fill(value array,
593
593
}
594
594
return Val_unit ;
595
595
}
596
+
597
+ /* Linker compatibility with stdlib externals
598
+ CR ocaml 5 runtime: implement locals
599
+ CR ocaml 5 runtime: implement iarrays */
600
+
601
+ CAMLprim value caml_array_concat_local (value al )
602
+ {
603
+ caml_failwith ("Called caml_array_concat_local in runtime5: not implemented." );
604
+ }
605
+
606
+ CAMLprim value caml_array_sub_local (value al , value a , value b )
607
+ {
608
+ caml_failwith ("Called caml_array_concat_local in runtime5: not implemented." );
609
+ }
610
+
611
+ CAMLprim value caml_make_local_vect (value i , value a )
612
+ {
613
+ caml_failwith ("Called caml_array_concat_local in runtime5: not implemented." );
614
+ }
615
+
616
+ CAMLprim value caml_array_append_local (value a1 , value a2 )
617
+ {
618
+ caml_failwith ("Called caml_array_append_local in runtime5: not implemented." );
619
+ }
620
+
621
+ CAMLprim value caml_iarray_of_array (value a )
622
+ {
623
+ return a ;
624
+ }
625
+
626
+ CAMLprim value caml_array_of_iarray (value a )
627
+ {
628
+ return a ;
629
+ }
Original file line number Diff line number Diff line change @@ -832,3 +832,15 @@ CAMLprim value caml_runtime_events_user_resolve(
832
832
CAMLdrop ;
833
833
return (value ) Val_none ;
834
834
}
835
+
836
+ /* Linker compatibility with unused 4 stdlib externals */
837
+
838
+ CAMLprim value caml_eventlog_resume (value v )
839
+ {
840
+ caml_failwith ("Called caml_eventlog_resume in runtime5: not supported." );
841
+ }
842
+
843
+ CAMLprim value caml_eventlog_pause (value v )
844
+ {
845
+ caml_failwith ("Called caml_eventlog_pause in runtime5: not supported." );
846
+ }
You can’t perform that action at this time.
0 commit comments