/**************************************************************************/ /* */ /* OCaml */ /* */ /* Damien Doligez, projet Moscova, INRIA Rocquencourt */ /* */ /* Copyright 2002 Institut National de Recherche en Informatique et */ /* en Automatique. */ /* */ /* All rights reserved. This file is distributed under the terms of */ /* the GNU Lesser General Public License version 2.1, with the */ /* special exception on linking described in the file LICENSE. */ /* */ /**************************************************************************/ #include #include #include #include #include #define MINSTACKBYTES (384 * 1024 * sizeof (long)) int main(int argc, char ** argv) { struct rlimit limit; int rc; rc = getrlimit (RLIMIT_STACK, &limit); if (rc != 0) exit (0); if (limit.rlim_cur < MINSTACKBYTES){ fprintf (stderr, "\nThe current stack size limit is too low (%luk)\n" "You must increase it with one of the following commands:\n" "Under sh, bash, zsh: ulimit -s %lu\n" "Under csh, tcsh: limit stacksize %lu\n\n", (unsigned long) (limit.rlim_cur / 1024), (unsigned long) (MINSTACKBYTES / 1024), (unsigned long) (MINSTACKBYTES / 1024)); exit (3); } exit (0); }