[extc] remove some unused code

libs/extc/extc.ml

@@ -51,29 +51,6 @@ external zlib_crc32 : bytes -> int -> int32 = "zlib_crc32"
 
 external time : unit -> float = "sys_time"
 
-type library
-type sym
-type value
-
-external dlopen : string -> library = "sys_dlopen"
-external dlsym : library -> string -> sym = "sys_dlsym"
-external dlcall0 : sym -> value = "sys_dlcall0"
-external dlcall1 : sym -> value -> value = "sys_dlcall1"
-external dlcall2 : sym -> value -> value -> value = "sys_dlcall2"
-external dlcall3 : sym -> value -> value -> value -> value = "sys_dlcall3"
-external dlcall4 : sym -> value -> value -> value -> value -> value = "sys_dlcall4"
-external dlcall5 : sym -> value -> value -> value -> value -> value -> value = "sys_dlcall5_bc" "sys_dlcall5"
-external dlint : int -> value = "sys_dlint"
-external dltoint : value -> int = "sys_dltoint"
-external dlstring : string -> value = "%identity"
-external dladdr : value -> int -> value = "sys_dladdr"
-external dlptr : value -> value = "sys_dlptr"
-external dlsetptr : value -> value -> unit = "sys_dlsetptr"
-external dlalloc_string : value -> string = "sys_dlalloc_string"
-external dlmemcpy : value -> value -> int -> unit = "sys_dlmemcpy"
-external dlcallback : int -> value = "sys_dlcallback"
-external dlcaml_callback : int -> value = "sys_dlcaml_callback"
-external dlint32 : int32 -> value = "sys_dlint32"
 external getch : bool -> int = "sys_getch"
 
 external filetime : string -> float = "sys_filetime"

libs/extc/extc_stubs.c

@@ -572,143 +572,4 @@ CAMLprim value sys_filetime( value file ) {
 		return caml_copy_double(0.);
 	return caml_copy_double( sbuf.st_mtime );
 #	endif
-}
-
-// --------------- Support for NekoVM Bridge
-
-CAMLprim value sys_dlopen( value lib ) {
-#ifdef _WIN32
-	return (value)LoadLibrary(String_val(lib));
-#else
-	return (value)dlopen(String_val(lib),RTLD_LAZY);
-#endif
-}
-
-CAMLprim value sys_dlsym( value dl, value name ) {
-#ifdef _WIN32
-	return (value)GetProcAddress((HANDLE)dl,String_val(name));
-#else
-	return (value)dlsym((void*)dl,String_val(name));
-#endif
-}
-
-CAMLprim value sys_dlint( value i ) {
-	return Int_val(i);
-}
-
-CAMLprim value sys_dltoint( value i ) {
-	return Val_int((int)i);
-}
-
-CAMLprim value sys_dlint32( value i ) {
-	return (value)Int32_val(i);
-}
-
-typedef value (*c_prim0)();
-typedef value (*c_prim1)(value);
-typedef value (*c_prim2)(value,value);
-typedef value (*c_prim3)(value,value,value);
-typedef value (*c_prim4)(value,value,value,value);
-typedef value (*c_prim5)(value,value,value,value,value);
-
-CAMLprim value sys_dlcall0( value f ) {
-	return ((c_prim0)f)();
-}
-
-CAMLprim value sys_dlcall1( value f, value a ) {
-	return ((c_prim1)f)(a);
-}
-
-CAMLprim value sys_dlcall2( value f, value a, value b ) {
-	return ((c_prim2)f)(a,b);
-}
-
-CAMLprim value sys_dlcall3( value f, value a, value b, value c ) {
-	return ((c_prim3)f)(a,b,c);
-}
-
-CAMLprim value sys_dlcall4( value f, value a, value b, value c, value d ) {
-	return ((c_prim4)f)(a,b,c,d);
-}
-
-CAMLprim value sys_dlcall5( value f, value a, value b, value c, value d, value e ) {
-	return ((c_prim5)f)(a,b,c,d,e);
-}
-
-CAMLprim value sys_dlcall5_bc( value *args, int nargs ) {
-	return ((c_prim5)args[0])(args[1],args[2],args[3],args[4],args[5]);
-}
-
-CAMLprim value sys_dladdr( value v, value a ) {
-	return (value)((char*)v + Int_val(a));
-}
-
-CAMLprim value sys_dlptr( value v ) {
-	return *((value*)v);
-}
-
-CAMLprim value sys_dlsetptr( value p, value v ) {
-	*((value*)p) = v;
-	return Val_unit;
-}
-
-CAMLprim value sys_dlalloc_string( value v ) {
-	return caml_copy_string((char*)v);
-}
-
-CAMLprim value sys_dlmemcpy( value dst, value src, value len ) {
-	memcpy((char*)dst,(char*)src,Int_val(len));
-	return Val_unit;
-}
-
-static value __callb0( value callb ) {
-	return caml_callbackN(callb,0,NULL);
-}
-
-static value __callb1( value a, value callb ) {
-	return caml_callback(callb,a);
-}
-
-static value __callb2( value a, value b, value callb ) {
-	return caml_callback2(callb,a,b);
-}
-
-static value __callb3( value a, value b, value c, value callb ) {
-	return caml_callback3(callb,a,b,c);
-}
-
-CAMLprim value sys_dlcallback( value nargs ) {
-	switch( Int_val(nargs) ) {
-	case 0:
-		return (value)__callb0;
-	case 1:
-		return (value)__callb1;
-	case 2:
-		return (value)__callb2;
-	case 3:
-		return (value)__callb3;
-	default:
-		failwith("dlcallback(too_many_args)");
-	}
-	return Val_unit;
-}
-
-static value __caml_callb1( value a ) {
-	return caml_callback(*caml_named_value("dlcallb1"),a);
-}
-
-static value __caml_callb2( value a, value b ) {
-	return caml_callback2(*caml_named_value("dlcallb2"),a,b);
-}
-
-CAMLprim value sys_dlcaml_callback( value nargs ) {
-	switch( Int_val(nargs) ) {
-	case 1:
-		return (value)__caml_callb1;
-	case 2:
-		return (value)__caml_callb2;
-	default:
-		failwith("sys_dlcaml_callback(too_many_args)");
-	}
-	return Val_unit;
-}
+}