loader.c (87636) | loader.c (94290) |
---|---|
1/*- 2 * Copyright (c) 2000 Daniel Capo Sobral 3 * All rights reserved. 4 * 5 * Redistribution and use in source and binary forms, with or without 6 * modification, are permitted provided that the following conditions 7 * are met: 8 * 1. Redistributions of source code must retain the above copyright --- 9 unchanged lines hidden (view full) --- 18 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 19 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 20 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 21 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 22 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 23 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 24 * SUCH DAMAGE. 25 * | 1/*- 2 * Copyright (c) 2000 Daniel Capo Sobral 3 * All rights reserved. 4 * 5 * Redistribution and use in source and binary forms, with or without 6 * modification, are permitted provided that the following conditions 7 * are met: 8 * 1. Redistributions of source code must retain the above copyright --- 9 unchanged lines hidden (view full) --- 18 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 19 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 20 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 21 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 22 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 23 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 24 * SUCH DAMAGE. 25 * |
26 * $FreeBSD: head/sys/boot/ficl/loader.c 87636 2001-12-11 00:49:34Z jhb $ | 26 * $FreeBSD: head/sys/boot/ficl/loader.c 94290 2002-04-09 17:45:28Z dcs $ |
27 */ 28 29/******************************************************************* 30** l o a d e r . c 31** Additional FICL words designed for FreeBSD's loader 32** 33*******************************************************************/ 34 --- 551 unchanged lines hidden (view full) --- 586} 587 588/* 589** Retrieves free space remaining on the dictionary 590*/ 591 592static void freeHeap(FICL_VM *pVM) 593{ | 27 */ 28 29/******************************************************************* 30** l o a d e r . c 31** Additional FICL words designed for FreeBSD's loader 32** 33*******************************************************************/ 34 --- 551 unchanged lines hidden (view full) --- 586} 587 588/* 589** Retrieves free space remaining on the dictionary 590*/ 591 592static void freeHeap(FICL_VM *pVM) 593{ |
594 stackPushINT(pVM->pStack, dictCellsAvail(ficlGetDict())); | 594 stackPushINT(pVM->pStack, dictCellsAvail(ficlGetDict(pVM->pSys))); |
595} 596 597 598/******************* Increase dictionary size on-demand ******************/ 599 600static void ficlDictThreshold(FICL_VM *pVM) 601{ 602 stackPushPtr(pVM->pStack, &dictThreshold); --- 45 unchanged lines hidden (view full) --- 648#ifdef HAVE_PNP 649 dictAppendWord(dp, "pnpdevices",ficlPnpdevices, FW_DEFAULT); 650 dictAppendWord(dp, "pnphandlers",ficlPnphandlers, FW_DEFAULT); 651#endif 652 dictAppendWord(dp, "ccall", ficlCcall, FW_DEFAULT); 653#endif 654 655#if defined(__i386__) | 595} 596 597 598/******************* Increase dictionary size on-demand ******************/ 599 600static void ficlDictThreshold(FICL_VM *pVM) 601{ 602 stackPushPtr(pVM->pStack, &dictThreshold); --- 45 unchanged lines hidden (view full) --- 648#ifdef HAVE_PNP 649 dictAppendWord(dp, "pnpdevices",ficlPnpdevices, FW_DEFAULT); 650 dictAppendWord(dp, "pnphandlers",ficlPnphandlers, FW_DEFAULT); 651#endif 652 dictAppendWord(dp, "ccall", ficlCcall, FW_DEFAULT); 653#endif 654 655#if defined(__i386__) |
656 ficlSetEnv("arch-i386", FICL_TRUE); 657 ficlSetEnv("arch-alpha", FICL_FALSE); 658 ficlSetEnv("arch-ia64", FICL_FALSE); | 656 ficlSetEnv(pSys, "arch-i386", FICL_TRUE); 657 ficlSetEnv(pSys, "arch-alpha", FICL_FALSE); 658 ficlSetEnv(pSys, "arch-ia64", FICL_FALSE); |
659#elif defined(__alpha__) | 659#elif defined(__alpha__) |
660 ficlSetEnv("arch-i386", FICL_FALSE); 661 ficlSetEnv("arch-alpha", FICL_TRUE); 662 ficlSetEnv("arch-ia64", FICL_FALSE); | 660 ficlSetEnv(pSys, "arch-i386", FICL_FALSE); 661 ficlSetEnv(pSys, "arch-alpha", FICL_TRUE); 662 ficlSetEnv(pSys, "arch-ia64", FICL_FALSE); |
663#elif defined(__ia64__) | 663#elif defined(__ia64__) |
664 ficlSetEnv("arch-i386", FICL_FALSE); 665 ficlSetEnv("arch-alpha", FICL_FALSE); 666 ficlSetEnv("arch-ia64", FICL_TRUE); | 664 ficlSetEnv(pSys, "arch-i386", FICL_FALSE); 665 ficlSetEnv(pSys, "arch-alpha", FICL_FALSE); 666 ficlSetEnv(pSys, "arch-ia64", FICL_TRUE); |
667#endif 668 669 return; 670} 671 | 667#endif 668 669 return; 670} 671 |