words.c (256281) | words.c (271135) |
---|---|
1/******************************************************************* 2** w o r d s . c 3** Forth Inspired Command Language 4** ANS Forth CORE word-set written in C 5** Author: John Sadler (john_sadler@alum.mit.edu) 6** Created: 19 July 1997 7** $Id: words.c,v 1.17 2001/12/05 07:21:34 jsadler Exp $ 8*******************************************************************/ --- 27 unchanged lines hidden (view full) --- 36** DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 37** OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 38** HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 39** LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 40** OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 41** SUCH DAMAGE. 42*/ 43 | 1/******************************************************************* 2** w o r d s . c 3** Forth Inspired Command Language 4** ANS Forth CORE word-set written in C 5** Author: John Sadler (john_sadler@alum.mit.edu) 6** Created: 19 July 1997 7** $Id: words.c,v 1.17 2001/12/05 07:21:34 jsadler Exp $ 8*******************************************************************/ --- 27 unchanged lines hidden (view full) --- 36** DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 37** OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 38** HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 39** LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 40** OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 41** SUCH DAMAGE. 42*/ 43 |
44/* $FreeBSD: stable/10/sys/boot/ficl/words.c 218909 2011-02-21 09:01:34Z brucec $ */ | 44/* $FreeBSD: stable/10/sys/boot/ficl/words.c 271135 2014-09-04 21:01:10Z emaste $ */ |
45 46#ifdef TESTMAIN 47#include <stdlib.h> 48#include <stdio.h> 49#include <ctype.h> 50#include <fcntl.h> 51#else 52#include <stand.h> --- 2509 unchanged lines hidden (view full) --- 2562{ 2563 IGNORE(pVM); 2564 dictSetFlags(vmGetDict(pVM), FW_ISOBJECT, 0); 2565 return; 2566} 2567 2568static void isObject(FICL_VM *pVM) 2569{ | 45 46#ifdef TESTMAIN 47#include <stdlib.h> 48#include <stdio.h> 49#include <ctype.h> 50#include <fcntl.h> 51#else 52#include <stand.h> --- 2509 unchanged lines hidden (view full) --- 2562{ 2563 IGNORE(pVM); 2564 dictSetFlags(vmGetDict(pVM), FW_ISOBJECT, 0); 2565 return; 2566} 2567 2568static void isObject(FICL_VM *pVM) 2569{ |
2570 int flag; | 2570 FICL_INT flag; |
2571 FICL_WORD *pFW = (FICL_WORD *)stackPopPtr(pVM->pStack); 2572 2573 flag = ((pFW != NULL) && (pFW->flags & FW_ISOBJECT)) ? FICL_TRUE : FICL_FALSE; 2574 stackPushINT(pVM->pStack, flag); 2575 return; 2576} 2577 2578static void cstringLit(FICL_VM *pVM) --- 2631 unchanged lines hidden --- | 2571 FICL_WORD *pFW = (FICL_WORD *)stackPopPtr(pVM->pStack); 2572 2573 flag = ((pFW != NULL) && (pFW->flags & FW_ISOBJECT)) ? FICL_TRUE : FICL_FALSE; 2574 stackPushINT(pVM->pStack, flag); 2575 return; 2576} 2577 2578static void cstringLit(FICL_VM *pVM) --- 2631 unchanged lines hidden --- |