byterun/stacks.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 /* structure of the stacks */
  17
  18 #ifndef CAML_STACKS_H
  19 #define CAML_STACKS_H
  20
  21
  22 #include "misc.h"
  23 #include "mlvalues.h"
  24 #include "memory.h"
  25
  26 CAMLextern value * caml_stack_low;
  27 CAMLextern value * caml_stack_high;
  28 CAMLextern value * caml_stack_threshold;
  29 CAMLextern value * caml_extern_sp;
  30 CAMLextern value * caml_trapsp;
  31 CAMLextern value * caml_trap_barrier;
  32
  33 #define Trap_pc(tp) (((code_t *)(tp))[0])
  34 #define Trap_link(tp) (((value **)(tp))[1])
  35
  36 void caml_init_stack (uintnat init_max_size);
  37 void caml_realloc_stack (asize_t required_size);
  38 void caml_change_max_stack_size (uintnat new_max_size);
  39
  40
  41 #endif /* CAML_STACKS_H */