d/freebsd-dev
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

switch words to default mode.

Browse Source
This commit is contained in:
jkh 1998-11-06 23:50:08 +00:00
parent 25f1ad0807
commit 5758ceac73
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
sys/boot/ficl/words.c
View File

@ -4037,7 +4037,7 @@ static void fload(FICL_VM *pVM)
CELL id; CELL id;
pFilename->count = stackPopINT32(pVM->pStack); pFilename->count = stackPopINT32(pVM->pStack);
pFilename->text = stackPopPtr(pVM->pStack); bcopy(stackPopPtr(pVM->pStack), &pFilename->text, sizeof(char *));
fd = open(pFilename->text, O_RDONLY); fd = open(pFilename->text, O_RDONLY);
if (fd == -1) if (fd == -1)
{ {
@ -4090,7 +4090,7 @@ static void fexists(FICL_VM *pVM)
int fd; int fd;
pFilename->count = stackPopINT32(pVM->pStack); pFilename->count = stackPopINT32(pVM->pStack);
pFilename->text = stackPopPtr(pVM->pStack); bcopy(stackPopPtr(pVM->pStack), &pFilename->text, sizeof(char *));
fd = open(pFilename->text, O_RDONLY); fd = open(pFilename->text, O_RDONLY);
if (fd > 0) { if (fd > 0) {
stackPushINT32(pVM->pStack, TRUE); stackPushINT32(pVM->pStack, TRUE);
@ -4283,8 +4283,8 @@ void ficlCompileCore(FICL_DICT *dp)
dictAppendWord(dp, "\\", commentLine, FW_IMMEDIATE); dictAppendWord(dp, "\\", commentLine, FW_IMMEDIATE);
/* FreeBSD extention words */ /* FreeBSD extention words */
dictAppendWord(dp, "fload", fload, FW_IMMEDIATE); dictAppendWord(dp, "fload", fload, FW_DEFAULT);
dictAppendWord(dp, "fexists", fexists, FW_IMMEDIATE); dictAppendWord(dp, "fexists", fexists, FW_DEFAULT);
dictAppendWord(dp, "key", key, FW_DEFAULT); dictAppendWord(dp, "key", key, FW_DEFAULT);
/* /*