| stack.c (76116) | stack.c (94290) |
|---|---|
| 1/******************************************************************* 2** s t a c k . c 3** Forth Inspired Command Language 4** Author: John Sadler (john_sadler@alum.mit.edu) 5** Created: 16 Oct 1997 | 1/******************************************************************* 2** s t a c k . c 3** Forth Inspired Command Language 4** Author: John Sadler (john_sadler@alum.mit.edu) 5** Created: 16 Oct 1997 |
| 6** $Id: stack.c,v 1.5 2001-04-26 21:41:29-07 jsadler Exp jsadler $ | 6** $Id: stack.c,v 1.10 2001/12/05 07:21:34 jsadler Exp $ |
| 7*******************************************************************/ 8/* 9** Copyright (c) 1997-2001 John Sadler (john_sadler@alum.mit.edu) 10** All rights reserved. 11** 12** Get the latest Ficl release at http://ficl.sourceforge.net 13** | 7*******************************************************************/ 8/* 9** Copyright (c) 1997-2001 John Sadler (john_sadler@alum.mit.edu) 10** All rights reserved. 11** 12** Get the latest Ficl release at http://ficl.sourceforge.net 13** |
| 14** I am interested in hearing from anyone who uses ficl. If you have 15** a problem, a success story, a defect, an enhancement request, or 16** if you would like to contribute to the ficl release, please 17** contact me by email at the address above. 18** |
|
| 14** L I C E N S E and D I S C L A I M E R 15** 16** Redistribution and use in source and binary forms, with or without 17** modification, are permitted provided that the following conditions 18** are met: 19** 1. Redistributions of source code must retain the above copyright 20** notice, this list of conditions and the following disclaimer. 21** 2. Redistributions in binary form must reproduce the above copyright --- 6 unchanged lines hidden (view full) --- 28** ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 29** FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 30** DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 31** OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 32** HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 33** LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 34** OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 35** SUCH DAMAGE. | 19** L I C E N S E and D I S C L A I M E R 20** 21** Redistribution and use in source and binary forms, with or without 22** modification, are permitted provided that the following conditions 23** are met: 24** 1. Redistributions of source code must retain the above copyright 25** notice, this list of conditions and the following disclaimer. 26** 2. Redistributions in binary form must reproduce the above copyright --- 6 unchanged lines hidden (view full) --- 33** ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 34** FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 35** DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 36** OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 37** HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 38** LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 39** OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 40** SUCH DAMAGE. |
| 36** 37** I am interested in hearing from anyone who uses ficl. If you have 38** a problem, a success story, a defect, an enhancement request, or 39** if you would like to contribute to the ficl release, please send 40** contact me by email at the address above. 41** 42** $Id: stack.c,v 1.5 2001-04-26 21:41:29-07 jsadler Exp jsadler $ | |
| 43*/ 44 | 41*/ 42 |
| 45/* $FreeBSD: head/sys/boot/ficl/stack.c 76116 2001-04-29 02:36:36Z dcs $ */ | 43/* $FreeBSD: head/sys/boot/ficl/stack.c 94290 2002-04-09 17:45:28Z dcs $ */ |
| 46 47#ifdef TESTMAIN 48#include <stdlib.h> 49#else 50#include <stand.h> 51#endif 52#include "ficl.h" 53 --- 240 unchanged lines hidden (view full) --- 294} 295 296void stackPushINT(FICL_STACK *pStack, FICL_INT i) 297{ 298 *pStack->sp++ = LVALUEtoCELL(i); 299} 300 301#if (FICL_WANT_FLOAT) | 44 45#ifdef TESTMAIN 46#include <stdlib.h> 47#else 48#include <stand.h> 49#endif 50#include "ficl.h" 51 --- 240 unchanged lines hidden (view full) --- 292} 293 294void stackPushINT(FICL_STACK *pStack, FICL_INT i) 295{ 296 *pStack->sp++ = LVALUEtoCELL(i); 297} 298 299#if (FICL_WANT_FLOAT) |
| 302void stackPushFloat(FICL_STACK *pStack, float f) | 300void stackPushFloat(FICL_STACK *pStack, FICL_FLOAT f) |
| 303{ 304 *pStack->sp++ = LVALUEtoCELL(f); 305} 306#endif 307 308/******************************************************************* 309 s t a c k R e s e t 310** --- 64 unchanged lines hidden --- | 301{ 302 *pStack->sp++ = LVALUEtoCELL(f); 303} 304#endif 305 306/******************************************************************* 307 s t a c k R e s e t 308** --- 64 unchanged lines hidden --- |