ficl.c (302408) | ficl.c (315221) |
---|---|
1/******************************************************************* 2** f i c l . c 3** Forth Inspired Command Language - external interface 4** Author: John Sadler (john_sadler@alum.mit.edu) 5** Created: 19 July 1997 6** $Id: ficl.c,v 1.16 2001/12/05 07:21:34 jsadler Exp $ 7*******************************************************************/ 8/* --- 41 unchanged lines hidden (view full) --- 50** DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 51** OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 52** HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 53** LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 54** OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 55** SUCH DAMAGE. 56*/ 57 | 1/******************************************************************* 2** f i c l . c 3** Forth Inspired Command Language - external interface 4** Author: John Sadler (john_sadler@alum.mit.edu) 5** Created: 19 July 1997 6** $Id: ficl.c,v 1.16 2001/12/05 07:21:34 jsadler Exp $ 7*******************************************************************/ 8/* --- 41 unchanged lines hidden (view full) --- 50** DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 51** OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 52** HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 53** LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 54** OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 55** SUCH DAMAGE. 56*/ 57 |
58/* $FreeBSD: stable/11/sys/boot/ficl/ficl.c 94290 2002-04-09 17:45:28Z dcs $ */ | 58/* $FreeBSD: stable/11/sys/boot/ficl/ficl.c 315221 2017-03-14 02:06:03Z pfg $ */ |
59 60#ifdef TESTMAIN 61#include <stdlib.h> 62#else 63#include <stand.h> 64#endif 65#include <string.h> 66#include "ficl.h" --- 204 unchanged lines hidden (view full) --- 271** will do this cleanup for you. This function is handy if you're going to 272** do a lot of dynamic creation of VMs. 273**************************************************************************/ 274void ficlFreeVM(FICL_VM *pVM) 275{ 276 FICL_SYSTEM *pSys = pVM->pSys; 277 FICL_VM *pList = pSys->vmList; 278 | 59 60#ifdef TESTMAIN 61#include <stdlib.h> 62#else 63#include <stand.h> 64#endif 65#include <string.h> 66#include "ficl.h" --- 204 unchanged lines hidden (view full) --- 271** will do this cleanup for you. This function is handy if you're going to 272** do a lot of dynamic creation of VMs. 273**************************************************************************/ 274void ficlFreeVM(FICL_VM *pVM) 275{ 276 FICL_SYSTEM *pSys = pVM->pSys; 277 FICL_VM *pList = pSys->vmList; 278 |
279 assert(pVM != 0); | 279 assert(pVM != NULL); |
280 281 if (pSys->vmList == pVM) 282 { 283 pSys->vmList = pSys->vmList->link; 284 } 285 else for (; pList != NULL; pList = pList->link) 286 { 287 if (pList->link == pVM) --- 409 unchanged lines hidden --- | 280 281 if (pSys->vmList == pVM) 282 { 283 pSys->vmList = pSys->vmList->link; 284 } 285 else for (; pList != NULL; pList = pList->link) 286 { 287 if (pList->link == pVM) --- 409 unchanged lines hidden --- |