pike.git / src / interpret.c

version» Context lines:

pike.git/src/interpret.c:1:   /*\   ||| This file a part of Pike, and is copyright by Fredrik Hubinette   ||| Pike is distributed as GPL (General Public License)   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: interpret.c,v 1.53 1997/10/27 09:59:20 hubbe Exp $"); + RCSID("$Id: interpret.c,v 1.54 1997/11/01 21:57:49 grubba Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"   #include "svalue.h"   #include "array.h"   #include "mapping.h"   #include "error.h"   #include "language.h"   #include "stralloc.h"   #include "constants.h"
pike.git/src/interpret.c:124:    {    fd=open("/dev/zero",O_RDONLY);    if(fd >= 0) break;    if(errno != EINTR)    {    evaluator_stack=0;    mark_stack=0;    goto use_malloc;    }    } +  /* Don't keep this fd on exec() */ +  set_close_on_exec(fd, 1);    }   #endif      #define MMALLOC(X,Y) (Y *)mmap(0,X*sizeof(Y),PROT_READ|PROT_WRITE, MAP_NORESERVE | MAP_PRIVATE | MAP_ANONYMOUS, fd, 0)       evaluator_stack_malloced=0;    mark_stack_malloced=0;    evaluator_stack=MMALLOC(stack_size,struct svalue);    mark_stack=MMALLOC(stack_size, struct svalue *);    if((char *)MAP_FAILED == (char *)evaluator_stack) evaluator_stack=0;