byterun/prims.h

   1 /***********************************************************************/
   2 /*                                                                     */
   3 /*                           Objective Caml                            */
   4 /*                                                                     */
   5 /*            Xavier Leroy, projet Cristal, INRIA Rocquencourt         */
   6 /*                                                                     */
   7 /*  Copyright 1996 Institut National de Recherche en Informatique et   */
   8 /*  en Automatique.  All rights reserved.  This file is distributed    */
   9 /*  under the terms of the GNU Library General Public License, with    */
  10 /*  the special exception on linking described in file ../LICENSE.     */
  11 /*                                                                     */
  12 /***********************************************************************/
  13
  14 /* $Id$ */
  15
  16 /* Interface with C primitives. */
  17
  18 #ifndef CAML_PRIMS_H
  19 #define CAML_PRIMS_H
  20
  21 typedef value (*c_primitive)();
  22
  23 extern c_primitive caml_builtin_cprim[];
  24 extern char * caml_names_of_builtin_cprim[];
  25
  26 extern struct ext_table caml_prim_table;
  27 #ifdef DEBUG
  28 extern struct ext_table caml_prim_name_table;
  29 #endif
  30
  31 #define Primitive(n) ((c_primitive)(caml_prim_table.contents[n]))
  32
  33 extern char * caml_section_table;
  34 extern asize_t caml_section_table_size;
  35
  36 #endif /* CAML_PRIMS_H */