| version 1.3, 2000/01/21 01:08:12 |
version 1.6, 2001/01/27 05:48:46 |
|
|
| /* $OpenXM: OpenXM/src/kan96xx/Kan/stackmachine.c,v 1.2 2000/01/16 07:55:41 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/kan96xx/Kan/stackmachine.c,v 1.5 2000/11/20 13:33:22 takayama Exp $ */ |
| /* stackmachin.c */ |
/* stackmachin.c */ |
| |
|
| #include <stdio.h> |
#include <stdio.h> |
|
|
| /* #define OPERAND_STACK_SIZE 2000 */ |
/* #define OPERAND_STACK_SIZE 2000 */ |
| #define OPERAND_STACK_SIZE 30000 |
#define OPERAND_STACK_SIZE 30000 |
| #define SYSTEM_DICTIONARY_SIZE 200 |
#define SYSTEM_DICTIONARY_SIZE 200 |
| #define USER_DICTIONARY_SIZE 1223 |
/* #define USER_DICTIONARY_SIZE 1223, 3581 */ |
| |
#define USER_DICTIONARY_SIZE 27449 |
| /* The value of USER_DICTIONARY_SIZE must be prime number, because of hashing |
/* The value of USER_DICTIONARY_SIZE must be prime number, because of hashing |
| method */ |
method */ |
| #define ARGV_WORK_MAX (AGLIMIT+100) |
#define ARGV_WORK_MAX (AGLIMIT+100) |
| Line 1195 void KSpush(ob) |
|
| Line 1196 void KSpush(ob) |
|
| struct object ob; |
struct object ob; |
| { |
{ |
| Kpush(ob); |
Kpush(ob); |
| |
} |
| |
|
| |
struct object KSpeek(k) { |
| |
return(peek(k)); |
| } |
} |
| |
|
| char *KSstringPop() { |
char *KSstringPop() { |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to stackmachine.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / kan96xx / Kan