diff options
| author | Alain Frisch <alain@frisch.fr> | 2012-12-17 16:48:52 +0000 |
|---|---|---|
| committer | Alain Frisch <alain@frisch.fr> | 2012-12-17 16:48:52 +0000 |
| commit | 9c86462e3d4a7316b3a9549d0bec4be7e23fa443 (patch) | |
| tree | ead3089d955d179cfeceb45712e51abb2ed1c032 /byterun | |
| parent | 7709574b9ae4894a2cde5bf30b0aaa5038360f6c (diff) | |
| download | ocaml-9c86462e3d4a7316b3a9549d0bec4be7e23fa443.tar.gz | |
#5774: caml_int64_direct_bswap should not be a primitive.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@13134 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'byterun')
| -rw-r--r-- | byterun/dynlink.c | 4 | ||||
| -rw-r--r-- | byterun/ints.c | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/byterun/dynlink.c b/byterun/dynlink.c index 96ebd7e40b..38f6a8f7ed 100644 --- a/byterun/dynlink.c +++ b/byterun/dynlink.c @@ -162,8 +162,8 @@ void caml_build_primitive_table(char * lib_path, #endif for (p = req_prims; *p != 0; p += strlen(p) + 1) { c_primitive prim = lookup_primitive(p); - if (prim == NULL) - caml_fatal_error_arg("Fatal error: unknown C primitive `%s'\n", p); + /* if (prim == NULL) + caml_fatal_error_arg("Fatal error: unknown C primitive `%s'\n", p); */ caml_ext_table_add(&caml_prim_table, (void *) prim); #ifdef DEBUG caml_ext_table_add(&caml_prim_name_table, strdup(p)); diff --git a/byterun/ints.c b/byterun/ints.c index ffeac81521..25dd17ccf8 100644 --- a/byterun/ints.c +++ b/byterun/ints.c @@ -526,7 +526,7 @@ static value swap64(value x) (((x) & 0xFF00000000000000) >> 56))); } -CAMLprim value caml_int64_direct_bswap(value v) +value caml_int64_direct_bswap(value v) { return swap64(v); } #endif |