pike.git/
src/
interpret.c
Branch:
Tag:
Non-build tags
All tags
No tags
1996-11-21
1996-11-21 23:50:33 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
d77dfbd40920ea0f3aae6037c0e9ba81dc600297 (
10
lines) (+
8
/-
2
)
[
Show
|
Annotate
]
Branch:
7.9
/dev/zero no longer required
Rev: src/interpret.c:1.12
4:
||| See the files COPYING and DISCLAIMER for more information. \*/ #include "global.h"
-
RCSID("$Id: interpret.c,v 1.
11
1996/11/
19
09
:
35
:
22
hubbe Exp $");
+
RCSID("$Id: interpret.c,v 1.
12
1996/11/
21
23
:
50
:
33
hubbe Exp $");
#include "interpret.h" #include "object.h" #include "program.h"
89:
fd=open("/dev/zero",O_RDONLY); if(fd >= 0) break; if(errno != EINTR)
-
fatal("Failed
to
open
/dev/zero.\n")
;
+
{
+
evaluator_stack=0
;
+
mark_stack=0;
+
goto use_malloc;
} }
-
+
}
#endif #define MMALLOC(X,Y) (Y *)mmap(0,X*sizeof(Y),PROT_READ|PROT_WRITE, MAP_NORESERVE | MAP_PRIVATE | MAP_ANONYMOUS, fd, 0)
107:
mark_stack=0; #endif
+
use_malloc:
if(!evaluator_stack) { evaluator_stack=(struct svalue *)xalloc(stack_size*sizeof(struct svalue));