42 lines
1.3 KiB
C
42 lines
1.3 KiB
C
|
/******************************************************************************
|
||
|
|
* Copyright (c) 2004, 2008 IBM Corporation
|
||
|
|
* All rights reserved.
|
||
|
|
* This program and the accompanying materials
|
||
|
|
* are made available under the terms of the BSD License
|
||
|
|
* which accompanies this distribution, and is available at
|
||
|
|
* http://www.opensource.org/licenses/bsd-license.php
|
||
|
|
*
|
||
|
|
* Contributors:
|
||
|
|
* IBM Corporation - initial implementation
|
||
|
|
*****************************************************************************/
|
||
|
|
//
|
||
|
|
// Copyright 2002,2003,2004 Segher Boessenkool <segher@kernel.crashing.org>
|
||
|
|
//
|
||
|
|
|
||
|
|
|
||
|
|
extern long engine(int, long, long);
|
||
|
|
|
||
|
|
#define TIBSIZE 256
|
||
|
|
|
||
|
|
#define POCKETSIZE 256
|
||
|
|
#define NUMPOCKETS 16
|
||
|
|
|
||
|
|
#define HASHSIZE 0x1000
|
||
|
|
|
||
|
|
// engine mode bits
|
||
|
|
#define ENGINE_MODE_PARAM_1 0x0001
|
||
|
|
#define ENGINE_MODE_PARAM_2 0x0002
|
||
|
|
#define ENGINE_MODE_NOP 0x0004
|
||
|
|
#define ENGINE_MODE_EVAL 0x0008
|
||
|
|
#define ENGINE_MODE_POP 0x0010
|
||
|
|
|
||
|
|
// engine calls
|
||
|
|
#define forth_eval(s) engine(ENGINE_MODE_PARAM_1|ENGINE_MODE_PARAM_2|ENGINE_MODE_EVAL, \
|
||
|
|
strlen((s)), (long)(s))
|
||
|
|
#define forth_eval_pop(s) engine(ENGINE_MODE_PARAM_1|ENGINE_MODE_PARAM_2|ENGINE_MODE_EVAL|ENGINE_MODE_POP, \
|
||
|
|
strlen((s)), (long)(s))
|
||
|
|
|
||
|
|
#define forth_push(v) engine(ENGINE_MODE_PARAM_1|ENGINE_MODE_NOP, v, 0)
|
||
|
|
|
||
|
|
#define forth_pop() engine(ENGINE_MODE_NOP|ENGINE_MODE_POP, 0, 0)
|