Import of Bhuna version 0.7 revision 2011.0427 sources.
catseye
12 years ago
1 | 1 |
#CFLAGS+=-DPOOL_VALUES
|
2 | 2 |
CFLAGS+=-DHASH_CONSING
|
3 | 3 |
CFLAGS+=-DINLINE_BUILTINS
|
4 | |
CFLAGS+=-Wall
|
|
4 |
CFLAGS+=-Wall -ansi
|
5 | 5 |
|
6 | 6 |
#-I/usr/local/include
|
7 | 7 |
|
31 | 31 |
struct ast *parse_var(struct scan_st *, struct symbol_table *,
|
32 | 32 |
struct symbol **, int, int, struct value *);
|
33 | 33 |
|
34 | |
#endif /* !__PARSE_H_ */⏎
|
|
34 |
#endif /* !__PARSE_H_ */
|
0 | |
#ifdef POOL_VALUES
|
1 | 0 |
#include <assert.h>
|
2 | 1 |
#include <stdlib.h>
|
3 | 2 |
#include <stdio.h>
|
|
3 |
|
|
4 |
#ifdef POOL_VALUES
|
4 | 5 |
|
5 | 6 |
#include "pool.h"
|
6 | 7 |
|
7 | 7 |
#include "ast.h"
|
8 | 8 |
#include "activation.h"
|
9 | 9 |
|
10 | |
#define TIMESLICE 2048
|
11 | |
// 4096
|
|
10 |
#define TIMESLICE 2048 /* 4096 */
|
12 | 11 |
extern int trace_scheduling;
|
13 | 12 |
|
14 | 13 |
struct process *current_process = NULL;
|
289 | 289 |
case INDEX_BUILTIN_SUB:
|
290 | 290 |
POP_VALUE(r);
|
291 | 291 |
POP_VALUE(l);
|
292 | |
//subs++;
|
|
292 |
/* subs++; */
|
293 | 293 |
if (l.type == VALUE_INTEGER && r.type == VALUE_INTEGER) {
|
294 | 294 |
v = value_new_integer(l.v.i - r.v.i);
|
295 | 295 |
} else {
|