Sync of FICL with FreeBSD
Thomas E. Spanjaard
tgen at netphreax.net
Mon Sep 26 12:27:36 PDT 2005
Attached is a patch to sync FICL with FreeBSD. It's supposed to fix
strange errors people have seen with the bootloader. I can't build an
ISO for the test victim however, since the recent change to basename
broke building from older systems (in my case 1.3-Preview). Apply as
`patch -d /usr/src/sys/ -p0 < ficl.4.diff`, if your source is in
/usr/src ofcourse.
Cheers,
--
-- Thomas E. Spanjaard
tgen at xxxxxxxxxxxxx
diff -ruN /home/tgen/files/dragonfly/src/sys/boot/ficl/Makefile boot/ficl/Makefile
--- /home/tgen/files/dragonfly/src/sys/boot/ficl/Makefile 2005-07-07 11:49:56.000000000 +0000
+++ boot/ficl/Makefile 2005-09-26 18:45:27.000000000 +0000
@@ -1,8 +1,8 @@
-# $FreeBSD: src/sys/boot/ficl/Makefile,v 1.35 2003/06/30 19:08:49 ru Exp $
-# $DragonFly: src/sys/boot/ficl/Makefile,v 1.8 2005/07/07 11:49:56 corecode Exp $
+# $FreeBSD: src/sys/boot/ficl/Makefile,v 1.42 2005/07/15 12:22:14 ache Exp $
+# $DragonFly$
#
.if ${MACHINE_ARCH} == "amd64"
-.MAKEFLAGS: MACHINE_ARCH=i386 MACHINE=i386 REALLY_AMD64=true
+.MAKEFLAGS: MACHINE_ARCH=i386 MACHINE=i386 REALLY_AMD64=true
.endif
.PATH: ${.CURDIR}/${MACHINE_ARCH}
@@ -18,6 +18,8 @@
CFLAGS+= -ffreestanding
.if ${MACHINE_ARCH} == "i386"
CFLAGS+= -mpreferred-stack-boundary=2
+CFLAGS+= -mno-mmx -mno-3dnow -mno-sse -mno-sse2 # Do not use fp registers
+CFLAGS+= -mno-sse3 # in integer code
.endif
.if HAVE_PNP
CFLAGS+= -DHAVE_PNP
@@ -44,7 +46,8 @@
CFLAGS+= -m32 -I.
.endif
-CFLAGS+= -I${.CURDIR} -I${.CURDIR}/${MACHINE_ARCH} -I${.CURDIR}/../common
+CFLAGS+= -I${.CURDIR} -I${.CURDIR}/${MACHINE_ARCH} \
+ -I${.CURDIR}/../common
softcore.c: ${SOFTWORDS} softcore.awk
(cd ${.CURDIR}/softwords; cat ${SOFTWORDS} \
diff -ruN /home/tgen/files/dragonfly/src/sys/boot/ficl/dict.c boot/ficl/dict.c
--- /home/tgen/files/dragonfly/src/sys/boot/ficl/dict.c 2003-11-10 06:08:33.000000000 +0000
+++ boot/ficl/dict.c 2005-09-26 18:45:27.000000000 +0000
@@ -51,9 +51,9 @@
** SUCH DAMAGE.
*/
-/*
- * $FreeBSD: src/sys/boot/ficl/dict.c,v 1.13 2002/04/09 17:45:11 dcs Exp $
- * $DragonFly: src/sys/boot/ficl/dict.c,v 1.3 2003/11/10 06:08:33 dillon Exp $
+/*
+ * $FreeBSD: src/sys/boot/ficl/dict.c,v 1.13 2002/04/09 17:45:11 dcs Exp $
+ * $DragonFly$
*/
#ifdef TESTMAIN
diff -ruN /home/tgen/files/dragonfly/src/sys/boot/ficl/ficl.c boot/ficl/ficl.c
--- /home/tgen/files/dragonfly/src/sys/boot/ficl/ficl.c 2003-11-10 06:08:33.000000000 +0000
+++ boot/ficl/ficl.c 2005-09-26 18:45:27.000000000 +0000
@@ -55,9 +55,9 @@
** SUCH DAMAGE.
*/
-/*
+/*
* $FreeBSD: src/sys/boot/ficl/ficl.c,v 1.18 2002/04/09 17:45:11 dcs Exp $
- * $DragonFly: src/sys/boot/ficl/ficl.c,v 1.3 2003/11/10 06:08:33 dillon Exp $
+ * $DragonFly$
*/
#ifdef TESTMAIN
diff -ruN /home/tgen/files/dragonfly/src/sys/boot/ficl/ficl.h boot/ficl/ficl.h
--- /home/tgen/files/dragonfly/src/sys/boot/ficl/ficl.h 2003-11-10 06:08:33.000000000 +0000
+++ boot/ficl/ficl.h 2005-09-26 18:45:27.000000000 +0000
@@ -41,9 +41,9 @@
** SUCH DAMAGE.
*/
-/*
- * $FreeBSD: src/sys/boot/ficl/ficl.h,v 1.20 2002/04/09 17:45:11 dcs Exp $
- * $DragonFly: src/sys/boot/ficl/ficl.h,v 1.3 2003/11/10 06:08:33 dillon Exp $
+/*
+ * $FreeBSD: src/sys/boot/ficl/ficl.h,v 1.21 2004/11/30 11:35:30 scottl Exp $
+ * $DragonFly$
*/
#if !defined (__FICL_H__)
@@ -1117,7 +1117,6 @@
extern void ficlInb(FICL_VM *pVM);
#endif
-#if !defined(TESTMAIN)
extern void ficlSetenv(FICL_VM *pVM);
extern void ficlSetenvq(FICL_VM *pVM);
extern void ficlGetenv(FICL_VM *pVM);
@@ -1125,9 +1124,10 @@
extern void ficlCopyin(FICL_VM *pVM);
extern void ficlCopyout(FICL_VM *pVM);
extern void ficlFindfile(FICL_VM *pVM);
+extern void ficlCcall(FICL_VM *pVM);
+#if !defined(TESTMAIN)
extern void ficlPnpdevices(FICL_VM *pVM);
extern void ficlPnphandlers(FICL_VM *pVM);
-extern void ficlCcall(FICL_VM *pVM);
#endif
/*
diff -ruN /home/tgen/files/dragonfly/src/sys/boot/ficl/fileaccess.c boot/ficl/fileaccess.c
--- /home/tgen/files/dragonfly/src/sys/boot/ficl/fileaccess.c 2003-11-10 06:08:33.000000000 +0000
+++ boot/ficl/fileaccess.c 2005-09-26 18:45:27.000000000 +0000
@@ -1,6 +1,6 @@
-/*
+/*
* $FreeBSD: src/sys/boot/ficl/fileaccess.c,v 1.1 2002/04/09 17:45:11 dcs Exp $
- * $DragonFly: src/sys/boot/ficl/fileaccess.c,v 1.1 2003/11/10 06:08:33 dillon Exp $
+ * $DragonFly$
*/
#include <errno.h>
diff -ruN /home/tgen/files/dragonfly/src/sys/boot/ficl/float.c boot/ficl/float.c
--- /home/tgen/files/dragonfly/src/sys/boot/ficl/float.c 2003-11-10 06:08:33.000000000 +0000
+++ boot/ficl/float.c 2005-09-26 18:45:27.000000000 +0000
@@ -41,9 +41,9 @@
** SUCH DAMAGE.
*/
-/*
+/*
* $FreeBSD: src/sys/boot/ficl/float.c,v 1.1 2002/04/09 17:45:11 dcs Exp $
- * $DragonFly: src/sys/boot/ficl/float.c,v 1.1 2003/11/10 06:08:33 dillon Exp $
+ * $DragonFly$
*/
#include <stdlib.h>
diff -ruN /home/tgen/files/dragonfly/src/sys/boot/ficl/i386/sysdep.c boot/ficl/i386/sysdep.c
--- /home/tgen/files/dragonfly/src/sys/boot/ficl/i386/sysdep.c 2003-11-10 06:08:33.000000000 +0000
+++ boot/ficl/i386/sysdep.c 2005-09-26 18:45:27.000000000 +0000
@@ -7,9 +7,9 @@
**
*******************************************************************/
-/*
+/*
* $FreeBSD: src/sys/boot/ficl/i386/sysdep.c,v 1.7 1999/09/29 04:43:07 dcs Exp $
- * $DragonFly: src/sys/boot/ficl/i386/sysdep.c,v 1.3 2003/11/10 06:08:33 dillon Exp $
+ * $DragonFly$
*/
#ifdef TESTMAIN
diff -ruN /home/tgen/files/dragonfly/src/sys/boot/ficl/i386/sysdep.h boot/ficl/i386/sysdep.h
--- /home/tgen/files/dragonfly/src/sys/boot/ficl/i386/sysdep.h 2003-11-10 06:08:33.000000000 +0000
+++ boot/ficl/i386/sysdep.h 2005-09-26 18:45:27.000000000 +0000
@@ -46,9 +46,9 @@
** SUCH DAMAGE.
*/
-/*
+/*
* $FreeBSD: src/sys/boot/ficl/i386/sysdep.h,v 1.8 2002/05/16 21:21:52 trhodes Exp $
- * $DragonFly: src/sys/boot/ficl/i386/sysdep.h,v 1.3 2003/11/10 06:08:33 dillon Exp $
+ * $DragonFly$
*/
#if !defined (__SYSDEP_H__)
diff -ruN /home/tgen/files/dragonfly/src/sys/boot/ficl/ia64/sysdep.c boot/ficl/ia64/sysdep.c
--- /home/tgen/files/dragonfly/src/sys/boot/ficl/ia64/sysdep.c 2003-11-10 06:08:34.000000000 +0000
+++ boot/ficl/ia64/sysdep.c 2005-09-26 18:45:27.000000000 +0000
@@ -7,9 +7,9 @@
**
*******************************************************************/
-/*
+/*
* $FreeBSD: src/sys/boot/ficl/ia64/sysdep.c,v 1.1 2001/09/04 08:50:23 dfr Exp $
- * $DragonFly: src/sys/boot/ficl/ia64/sysdep.c,v 1.1 2003/11/10 06:08:34 dillon Exp $
+ * $DragonFly$
*/
#ifdef TESTMAIN
diff -ruN /home/tgen/files/dragonfly/src/sys/boot/ficl/ia64/sysdep.h boot/ficl/ia64/sysdep.h
--- /home/tgen/files/dragonfly/src/sys/boot/ficl/ia64/sysdep.h 2003-11-10 06:08:34.000000000 +0000
+++ boot/ficl/ia64/sysdep.h 2005-09-26 18:45:27.000000000 +0000
@@ -48,9 +48,9 @@
** $Id: sysdep.h,v 1.6 2001-04-26 21:41:55-07 jsadler Exp jsadler $
*/
-/*
- * $FreeBSD: src/sys/boot/ficl/ia64/sysdep.h,v 1.3 2002/05/16 21:21:57 trhodes Exp $
- * $DragonFly: src/sys/boot/ficl/ia64/sysdep.h,v 1.1 2003/11/10 06:08:34 dillon Exp $
+/*
+ * $FreeBSD: src/sys/boot/ficl/ia64/sysdep.h,v 1.3 2002/05/16 21:21:57 trhodes Exp $
+ * $DragonFly$
*/
#if !defined (__SYSDEP_H__)
diff -ruN /home/tgen/files/dragonfly/src/sys/boot/ficl/loader.c boot/ficl/loader.c
--- /home/tgen/files/dragonfly/src/sys/boot/ficl/loader.c 2005-02-20 16:31:53.000000000 +0000
+++ boot/ficl/loader.c 2005-09-26 18:45:27.000000000 +0000
@@ -23,8 +23,8 @@
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
* SUCH DAMAGE.
*
- * $FreeBSD: src/sys/boot/ficl/loader.c,v 1.9 2003/06/08 03:11:16 nyan Exp $
- * $DragonFly: src/sys/boot/ficl/loader.c,v 1.5 2005/02/20 16:31:53 swildner Exp $
+ * $FreeBSD: src/sys/boot/ficl/loader.c,v 1.11 2004/11/30 11:35:30 scottl Exp $
+ * $DragonFly$
*/
/*******************************************************************
@@ -57,11 +57,13 @@
* .# ( value -- )
*/
-#ifndef TESTMAIN
void
ficlSetenv(FICL_VM *pVM)
{
- char *namep, *valuep, *name, *value;
+#ifndef TESTMAIN
+ char *name, *value;
+#endif
+ char *namep, *valuep;
int names, values;
#if FICL_ROBUST > 1
@@ -72,6 +74,7 @@
values = stackPopINT(pVM->pStack);
valuep = (char*) stackPopPtr(pVM->pStack);
+#ifndef TESTMAIN
name = (char*) ficlMalloc(names+1);
if (!name)
vmThrowErr(pVM, "Error: out of memory");
@@ -86,6 +89,7 @@
setenv(name, value, 1);
ficlFree(name);
ficlFree(value);
+#endif
return;
}
@@ -93,7 +97,10 @@
void
ficlSetenvq(FICL_VM *pVM)
{
- char *namep, *valuep, *name, *value;
+#ifndef TESTMAIN
+ char *name, *value;
+#endif
+ char *namep, *valuep;
int names, values, overwrite;
#if FICL_ROBUST > 1
@@ -105,6 +112,7 @@
values = stackPopINT(pVM->pStack);
valuep = (char*) stackPopPtr(pVM->pStack);
+#ifndef TESTMAIN
name = (char*) ficlMalloc(names+1);
if (!name)
vmThrowErr(pVM, "Error: out of memory");
@@ -119,6 +127,7 @@
setenv(name, value, overwrite);
ficlFree(name);
ficlFree(value);
+#endif
return;
}
@@ -126,7 +135,10 @@
void
ficlGetenv(FICL_VM *pVM)
{
- char *namep, *name, *value;
+#ifndef TESTMAIN
+ char *name;
+#endif
+ char *namep, *value;
int names;
#if FICL_ROBUST > 1
@@ -135,6 +147,7 @@
names = stackPopINT(pVM->pStack);
namep = (char*) stackPopPtr(pVM->pStack);
+#ifndef TESTMAIN
name = (char*) ficlMalloc(names+1);
if (!name)
vmThrowErr(pVM, "Error: out of memory");
@@ -148,6 +161,7 @@
stackPushPtr(pVM->pStack, value);
stackPushINT(pVM->pStack, strlen(value));
} else
+#endif
stackPushINT(pVM->pStack, -1);
return;
@@ -156,7 +170,10 @@
void
ficlUnsetenv(FICL_VM *pVM)
{
- char *namep, *name;
+#ifndef TESTMAIN
+ char *name;
+#endif
+ char *namep;
int names;
#if FICL_ROBUST > 1
@@ -165,6 +182,7 @@
names = stackPopINT(pVM->pStack);
namep = (char*) stackPopPtr(pVM->pStack);
+#ifndef TESTMAIN
name = (char*) ficlMalloc(names+1);
if (!name)
vmThrowErr(pVM, "Error: out of memory");
@@ -173,6 +191,7 @@
unsetenv(name);
ficlFree(name);
+#endif
return;
}
@@ -192,7 +211,9 @@
dest = stackPopINT(pVM->pStack);
src = stackPopPtr(pVM->pStack);
+#ifndef TESTMAIN
archsw.arch_copyin(src, dest, len);
+#endif
return;
}
@@ -212,7 +233,9 @@
dest = stackPopPtr(pVM->pStack);
src = stackPopINT(pVM->pStack);
+#ifndef TESTMAIN
archsw.arch_copyout(src, dest, len);
+#endif
return;
}
@@ -220,7 +243,10 @@
void
ficlFindfile(FICL_VM *pVM)
{
- char *name, *type, *namep, *typep;
+#ifndef TESTMAIN
+ char *name;
+#endif
+ char *type, *namep, *typep;
struct preloaded_file* fp;
int names, types;
@@ -232,6 +258,7 @@
typep = (char*) stackPopPtr(pVM->pStack);
names = stackPopINT(pVM->pStack);
namep = (char*) stackPopPtr(pVM->pStack);
+#ifndef TESTMAIN
name = (char*) ficlMalloc(names+1);
if (!name)
vmThrowErr(pVM, "Error: out of memory");
@@ -244,11 +271,15 @@
type[types] = '\0';
fp = file_findfile(name, type);
+#else
+ fp = NULL;
+#endif
stackPushPtr(pVM->pStack, fp);
return;
}
+#ifndef TESTMAIN
#ifdef HAVE_PNP
void
@@ -638,11 +669,6 @@
dictAppendWord(dp, "dictthreshold", ficlDictThreshold, FW_DEFAULT);
dictAppendWord(dp, "dictincrease", ficlDictIncrease, FW_DEFAULT);
-#ifndef TESTMAIN
-#ifdef __i386__
- dictAppendWord(dp, "outb", ficlOutb, FW_DEFAULT);
- dictAppendWord(dp, "inb", ficlInb, FW_DEFAULT);
-#endif
dictAppendWord(dp, "setenv", ficlSetenv, FW_DEFAULT);
dictAppendWord(dp, "setenv?", ficlSetenvq, FW_DEFAULT);
dictAppendWord(dp, "getenv", ficlGetenv, FW_DEFAULT);
@@ -650,11 +676,16 @@
dictAppendWord(dp, "copyin", ficlCopyin, FW_DEFAULT);
dictAppendWord(dp, "copyout", ficlCopyout, FW_DEFAULT);
dictAppendWord(dp, "findfile", ficlFindfile, FW_DEFAULT);
+ dictAppendWord(dp, "ccall", ficlCcall, FW_DEFAULT);
+#ifndef TESTMAIN
+#ifdef __i386__
+ dictAppendWord(dp, "outb", ficlOutb, FW_DEFAULT);
+ dictAppendWord(dp, "inb", ficlInb, FW_DEFAULT);
+#endif
#ifdef HAVE_PNP
dictAppendWord(dp, "pnpdevices",ficlPnpdevices, FW_DEFAULT);
dictAppendWord(dp, "pnphandlers",ficlPnphandlers, FW_DEFAULT);
#endif
- dictAppendWord(dp, "ccall", ficlCcall, FW_DEFAULT);
#endif
#if defined(__i386__)
diff -ruN /home/tgen/files/dragonfly/src/sys/boot/ficl/math64.c boot/ficl/math64.c
--- /home/tgen/files/dragonfly/src/sys/boot/ficl/math64.c 2003-11-10 06:08:33.000000000 +0000
+++ boot/ficl/math64.c 2005-09-26 18:45:27.000000000 +0000
@@ -42,9 +42,9 @@
** SUCH DAMAGE.
*/
-/*
+/*
* $FreeBSD: src/sys/boot/ficl/math64.c,v 1.4 2002/04/09 17:45:11 dcs Exp $
- * $DragonFly: src/sys/boot/ficl/math64.c,v 1.3 2003/11/10 06:08:33 dillon Exp $
+ * $DragonFly$
*/
#include "ficl.h"
diff -ruN /home/tgen/files/dragonfly/src/sys/boot/ficl/math64.h boot/ficl/math64.h
--- /home/tgen/files/dragonfly/src/sys/boot/ficl/math64.h 2003-11-10 06:08:33.000000000 +0000
+++ boot/ficl/math64.h 2005-09-26 18:45:27.000000000 +0000
@@ -40,9 +40,9 @@
** SUCH DAMAGE.
*/
-/*
+/*
* $FreeBSD: src/sys/boot/ficl/math64.h,v 1.4 2002/04/09 17:45:11 dcs Exp $
- * $DragonFly: src/sys/boot/ficl/math64.h,v 1.3 2003/11/10 06:08:33 dillon Exp $
+ * $DragonFly$
*/
#if !defined (__MATH64_H__)
diff -ruN /home/tgen/files/dragonfly/src/sys/boot/ficl/notes.txt boot/ficl/notes.txt
--- /home/tgen/files/dragonfly/src/sys/boot/ficl/notes.txt 1970-01-01 00:00:00.000000000 +0000
+++ boot/ficl/notes.txt 2005-09-26 18:45:27.000000000 +0000
@@ -0,0 +1,7 @@
+This is FICL 3.02 source imported from FreeBSD on 26 Sep 2005. It has been
+adjusted for use on DragonFlyBSD.
+
+The biggest change wrt the older FICL seems to be some shuffling of bits in
+loader.c, and the explicit disabling of the use of floating-point registers
+by gcc. This should fix some issues people were having with the BTX loader.
+
diff -ruN /home/tgen/files/dragonfly/src/sys/boot/ficl/prefix.c boot/ficl/prefix.c
--- /home/tgen/files/dragonfly/src/sys/boot/ficl/prefix.c 2003-11-10 06:08:33.000000000 +0000
+++ boot/ficl/prefix.c 2005-09-26 18:45:27.000000000 +0000
@@ -41,9 +41,9 @@
** SUCH DAMAGE.
*/
-/*
+/*
* $FreeBSD: src/sys/boot/ficl/prefix.c,v 1.3 2002/08/31 01:04:53 scottl Exp $
- * $DragonFly: src/sys/boot/ficl/prefix.c,v 1.1 2003/11/10 06:08:33 dillon Exp $
+ * $DragonFly$
*/
#include <string.h>
diff -ruN /home/tgen/files/dragonfly/src/sys/boot/ficl/search.c boot/ficl/search.c
--- /home/tgen/files/dragonfly/src/sys/boot/ficl/search.c 2003-11-10 06:08:33.000000000 +0000
+++ boot/ficl/search.c 2005-09-26 18:45:27.000000000 +0000
@@ -41,9 +41,9 @@
** SUCH DAMAGE.
*/
-/*
+/*
* $FreeBSD: src/sys/boot/ficl/search.c,v 1.2 2002/04/09 17:45:11 dcs Exp $
- * $DragonFly: src/sys/boot/ficl/search.c,v 1.1 2003/11/10 06:08:33 dillon Exp $
+ * $DragonFly$
*/
#include <string.h>
diff -ruN /home/tgen/files/dragonfly/src/sys/boot/ficl/softwords/classes.fr boot/ficl/softwords/classes.fr
--- /home/tgen/files/dragonfly/src/sys/boot/ficl/softwords/classes.fr 2003-11-10 06:08:34.000000000 +0000
+++ boot/ficl/softwords/classes.fr 2005-09-26 18:45:27.000000000 +0000
@@ -5,7 +5,7 @@
\ Needs oop.fr
\
\ $FreeBSD: src/sys/boot/ficl/softwords/classes.fr,v 1.4 2001/04/29 02:36:35 dcs Exp $
-\ $DragonFly: src/sys/boot/ficl/softwords/classes.fr,v 1.3 2003/11/10 06:08:34 dillon Exp $
+\ $DragonFly$
also oop definitions
diff -ruN /home/tgen/files/dragonfly/src/sys/boot/ficl/softwords/ficlclass.fr boot/ficl/softwords/ficlclass.fr
--- /home/tgen/files/dragonfly/src/sys/boot/ficl/softwords/ficlclass.fr 2003-11-10 06:08:34.000000000 +0000
+++ boot/ficl/softwords/ficlclass.fr 2005-09-26 18:45:27.000000000 +0000
@@ -8,7 +8,7 @@
\ Models a FICL_WORD
\
\ $FreeBSD: src/sys/boot/ficl/softwords/ficlclass.fr,v 1.1 2002/04/09 17:45:27 dcs Exp $
-\ $DragonFly: src/sys/boot/ficl/softwords/ficlclass.fr,v 1.1 2003/11/10 06:08:34 dillon Exp $
+\ $DragonFly$
object subclass c-word
c-word ref: .link
diff -ruN /home/tgen/files/dragonfly/src/sys/boot/ficl/softwords/ficllocal.fr boot/ficl/softwords/ficllocal.fr
--- /home/tgen/files/dragonfly/src/sys/boot/ficl/softwords/ficllocal.fr 2003-11-10 06:08:34.000000000 +0000
+++ boot/ficl/softwords/ficllocal.fr 2005-09-26 18:45:27.000000000 +0000
@@ -8,7 +8,7 @@
\ 1 = found --
\
\ $FreeBSD: src/sys/boot/ficl/softwords/ficllocal.fr,v 1.1 1999/09/29 04:43:15 dcs Exp $
-\ $DragonFly: src/sys/boot/ficl/softwords/ficllocal.fr,v 1.3 2003/11/10 06:08:34 dillon Exp $
+\ $DragonFly$
hide
0 constant zero
diff -ruN /home/tgen/files/dragonfly/src/sys/boot/ficl/softwords/fileaccess.fr boot/ficl/softwords/fileaccess.fr
--- /home/tgen/files/dragonfly/src/sys/boot/ficl/softwords/fileaccess.fr 2003-11-10 06:08:34.000000000 +0000
+++ boot/ficl/softwords/fileaccess.fr 2005-09-26 18:45:27.000000000 +0000
@@ -5,7 +5,7 @@
\ **
\
\ $FreeBSD: src/sys/boot/ficl/softwords/fileaccess.fr,v 1.1 2002/04/09 17:45:27 dcs Exp $
-\ $DragonFly: src/sys/boot/ficl/softwords/fileaccess.fr,v 1.1 2003/11/10 06:08:34 dillon Exp $
+\ $DragonFly$
: r/o 1 ;
: r/w 3 ;
diff -ruN /home/tgen/files/dragonfly/src/sys/boot/ficl/softwords/forml.fr boot/ficl/softwords/forml.fr
--- /home/tgen/files/dragonfly/src/sys/boot/ficl/softwords/forml.fr 2003-11-10 06:08:34.000000000 +0000
+++ boot/ficl/softwords/forml.fr 2005-09-26 18:45:27.000000000 +0000
@@ -2,7 +2,7 @@
\ sadler
\
\ $FreeBSD: src/sys/boot/ficl/softwords/forml.fr,v 1.1 2002/04/09 17:45:27 dcs Exp $
-\ $DragonFly: src/sys/boot/ficl/softwords/forml.fr,v 1.1 2003/11/10 06:08:34 dillon Exp $
+\ $DragonFly$
.( loading FORML examples ) cr
object --> sub c-example
diff -ruN /home/tgen/files/dragonfly/src/sys/boot/ficl/softwords/freebsd.fr boot/ficl/softwords/freebsd.fr
--- /home/tgen/files/dragonfly/src/sys/boot/ficl/softwords/freebsd.fr 2003-11-10 06:08:34.000000000 +0000
+++ boot/ficl/softwords/freebsd.fr 2005-09-26 18:45:27.000000000 +0000
@@ -23,7 +23,7 @@
\ ** SUCH DAMAGE.
\ **
\ ** $FreeBSD: src/sys/boot/ficl/softwords/freebsd.fr,v 1.4 1999/08/28 00:39:55 peter Exp $
-\ ** $DragonFly: src/sys/boot/ficl/softwords/freebsd.fr,v 1.3 2003/11/10 06:08:34 dillon Exp $
+\ ** $DragonFly$
\ Words for use in scripts:
\ % ignore errors here
diff -ruN /home/tgen/files/dragonfly/src/sys/boot/ficl/softwords/ifbrack.fr boot/ficl/softwords/ifbrack.fr
--- /home/tgen/files/dragonfly/src/sys/boot/ficl/softwords/ifbrack.fr 2003-11-10 06:08:34.000000000 +0000
+++ boot/ficl/softwords/ifbrack.fr 2005-09-26 18:45:27.000000000 +0000
@@ -3,7 +3,7 @@
\ ** Requires ficl 2.0 or greater...
\
\ $FreeBSD: src/sys/boot/ficl/softwords/ifbrack.fr,v 1.3 2002/04/09 17:45:27 dcs Exp $
-\ $DragonFly: src/sys/boot/ficl/softwords/ifbrack.fr,v 1.3 2003/11/10 06:08:34 dillon Exp $
+\ $DragonFly$
hide
diff -ruN /home/tgen/files/dragonfly/src/sys/boot/ficl/softwords/jhlocal.fr boot/ficl/softwords/jhlocal.fr
--- /home/tgen/files/dragonfly/src/sys/boot/ficl/softwords/jhlocal.fr 2003-11-10 06:08:34.000000000 +0000
+++ boot/ficl/softwords/jhlocal.fr 2005-09-26 18:45:27.000000000 +0000
@@ -15,7 +15,7 @@
\ revised 2 June 2000 - { | a -- } now works correctly
\
\ $FreeBSD: src/sys/boot/ficl/softwords/jhlocal.fr,v 1.4 2001/04/29 02:36:36 dcs Exp $
-\ $DragonFly: src/sys/boot/ficl/softwords/jhlocal.fr,v 1.3 2003/11/10 06:08:34 dillon Exp $
+\ $DragonFly$
hide
0 constant zero
diff -ruN /home/tgen/files/dragonfly/src/sys/boot/ficl/softwords/marker.fr boot/ficl/softwords/marker.fr
--- /home/tgen/files/dragonfly/src/sys/boot/ficl/softwords/marker.fr 2003-11-10 06:08:34.000000000 +0000
+++ boot/ficl/softwords/marker.fr 2005-09-26 18:45:27.000000000 +0000
@@ -4,7 +4,7 @@
\ Requires ficl 2.02 FORGET-WID !!
\
\ $FreeBSD: src/sys/boot/ficl/softwords/marker.fr,v 1.2 2002/04/09 17:45:27 dcs Exp $
-\ $DragonFly: src/sys/boot/ficl/softwords/marker.fr,v 1.2 2003/11/10 06:08:34 dillon Exp $
+\ $DragonFly$
: marker ( "name" -- )
create
diff -ruN /home/tgen/files/dragonfly/src/sys/boot/ficl/softwords/oo.fr boot/ficl/softwords/oo.fr
--- /home/tgen/files/dragonfly/src/sys/boot/ficl/softwords/oo.fr 2003-11-10 06:08:34.000000000 +0000
+++ boot/ficl/softwords/oo.fr 2005-09-26 18:45:27.000000000 +0000
@@ -4,7 +4,7 @@
\ ** john sadler aug 1998
\
\ $FreeBSD: src/sys/boot/ficl/softwords/oo.fr,v 1.4 2002/04/09 17:45:28 dcs Exp $
-\ $DragonFly: src/sys/boot/ficl/softwords/oo.fr,v 1.3 2003/11/10 06:08:34 dillon Exp $
+\ $DragonFly$
17 ficl-vocabulary oop
also oop definitions
diff -ruN /home/tgen/files/dragonfly/src/sys/boot/ficl/softwords/prefix.fr boot/ficl/softwords/prefix.fr
--- /home/tgen/files/dragonfly/src/sys/boot/ficl/softwords/prefix.fr 2003-11-10 06:08:34.000000000 +0000
+++ boot/ficl/softwords/prefix.fr 2005-09-26 18:45:27.000000000 +0000
@@ -6,7 +6,7 @@
\ wordlist. start-prefixes and end-prefixes handle the bookkeeping
\
\ $FreeBSD: src/sys/boot/ficl/softwords/prefix.fr,v 1.2 2002/04/09 17:45:28 dcs Exp $
-\ $DragonFly: src/sys/boot/ficl/softwords/prefix.fr,v 1.1 2003/11/10 06:08:34 dillon Exp $
+\ $DragonFly$
variable save-current
diff -ruN /home/tgen/files/dragonfly/src/sys/boot/ficl/softwords/softcore.awk boot/ficl/softwords/softcore.awk
--- /home/tgen/files/dragonfly/src/sys/boot/ficl/softwords/softcore.awk 2003-11-10 06:08:34.000000000 +0000
+++ boot/ficl/softwords/softcore.awk 2005-09-26 18:45:27.000000000 +0000
@@ -11,7 +11,7 @@
# POSIX [[:space:]] character class.
#
# $FreeBSD: src/sys/boot/ficl/softwords/softcore.awk,v 1.8 2001/11/03 01:33:12 obrien Exp $
-# $DragonFly: src/sys/boot/ficl/softwords/softcore.awk,v 1.3 2003/11/10 06:08:34 dillon Exp $
+# $DragonFly$
BEGIN \
{
diff -ruN /home/tgen/files/dragonfly/src/sys/boot/ficl/softwords/softcore.fr boot/ficl/softwords/softcore.fr
--- /home/tgen/files/dragonfly/src/sys/boot/ficl/softwords/softcore.fr 2003-11-10 06:08:34.000000000 +0000
+++ boot/ficl/softwords/softcore.fr 2005-09-26 18:45:27.000000000 +0000
@@ -4,7 +4,7 @@
\ ** September, 1998
\
\ $FreeBSD: src/sys/boot/ficl/softwords/softcore.fr,v 1.12 2002/04/09 17:45:28 dcs Exp $
-\ $DragonFly: src/sys/boot/ficl/softwords/softcore.fr,v 1.3 2003/11/10 06:08:34 dillon Exp $
+\ $DragonFly$
\ ** Ficl USER variables
\ ** See words.c for primitive def'n of USER
diff -ruN /home/tgen/files/dragonfly/src/sys/boot/ficl/softwords/string.fr boot/ficl/softwords/string.fr
--- /home/tgen/files/dragonfly/src/sys/boot/ficl/softwords/string.fr 2003-11-10 06:08:34.000000000 +0000
+++ boot/ficl/softwords/string.fr 2005-09-26 18:45:27.000000000 +0000
@@ -12,7 +12,7 @@
\ str --> type cr
\
\ $FreeBSD: src/sys/boot/ficl/softwords/string.fr,v 1.2 2001/04/29 02:36:36 dcs Exp $
-\ $DragonFly: src/sys/boot/ficl/softwords/string.fr,v 1.3 2003/11/10 06:08:34 dillon Exp $
+\ $DragonFly$
also oop definitions
diff -ruN /home/tgen/files/dragonfly/src/sys/boot/ficl/sparc64/sysdep.c boot/ficl/sparc64/sysdep.c
--- /home/tgen/files/dragonfly/src/sys/boot/ficl/sparc64/sysdep.c 2003-11-10 06:08:34.000000000 +0000
+++ boot/ficl/sparc64/sysdep.c 2005-09-26 18:45:27.000000000 +0000
@@ -7,9 +7,9 @@
**
*******************************************************************/
-/*
+/*
* $FreeBSD: src/sys/boot/ficl/sparc64/sysdep.c,v 1.1 2002/05/19 23:20:56 jake Exp $
- * $DragonFly: src/sys/boot/ficl/sparc64/sysdep.c,v 1.1 2003/11/10 06:08:34 dillon Exp $
+ * $DragonFly$
*/
#ifdef TESTMAIN
diff -ruN /home/tgen/files/dragonfly/src/sys/boot/ficl/sparc64/sysdep.h boot/ficl/sparc64/sysdep.h
--- /home/tgen/files/dragonfly/src/sys/boot/ficl/sparc64/sysdep.h 2003-11-10 06:08:34.000000000 +0000
+++ boot/ficl/sparc64/sysdep.h 2005-09-26 18:45:27.000000000 +0000
@@ -50,7 +50,7 @@
/*
* $FreeBSD: src/sys/boot/ficl/sparc64/sysdep.h,v 1.1 2002/05/19 23:20:56 jake Exp $
- * $DragonFly: src/sys/boot/ficl/sparc64/sysdep.h,v 1.1 2003/11/10 06:08:34 dillon Exp $
+ * $DragonFly$
*/
#if !defined (__SYSDEP_H__)
diff -ruN /home/tgen/files/dragonfly/src/sys/boot/ficl/stack.c boot/ficl/stack.c
--- /home/tgen/files/dragonfly/src/sys/boot/ficl/stack.c 2003-11-10 06:08:33.000000000 +0000
+++ boot/ficl/stack.c 2005-09-26 18:45:27.000000000 +0000
@@ -40,9 +40,9 @@
** SUCH DAMAGE.
*/
-/*
+/*
* $FreeBSD: src/sys/boot/ficl/stack.c,v 1.5 2002/04/09 17:45:11 dcs Exp $
- * $DragonFly: src/sys/boot/ficl/stack.c,v 1.3 2003/11/10 06:08:33 dillon Exp $
+ * $DragonFly$
*/
#ifdef TESTMAIN
diff -ruN /home/tgen/files/dragonfly/src/sys/boot/ficl/testmain.c boot/ficl/testmain.c
--- /home/tgen/files/dragonfly/src/sys/boot/ficl/testmain.c 2003-11-10 06:08:33.000000000 +0000
+++ boot/ficl/testmain.c 2005-09-26 18:45:27.000000000 +0000
@@ -37,9 +37,9 @@
** SUCH DAMAGE.
*/
-/*
+/*
* $FreeBSD: src/sys/boot/ficl/testmain.c,v 1.8 2002/04/09 17:45:11 dcs Exp $
- * $DragonFly: src/sys/boot/ficl/testmain.c,v 1.3 2003/11/10 06:08:33 dillon Exp $
+ * $DragonFly$
*/
#include <stdlib.h>
diff -ruN /home/tgen/files/dragonfly/src/sys/boot/ficl/tools.c boot/ficl/tools.c
--- /home/tgen/files/dragonfly/src/sys/boot/ficl/tools.c 2003-11-10 06:08:33.000000000 +0000
+++ boot/ficl/tools.c 2005-09-26 18:45:27.000000000 +0000
@@ -54,10 +54,11 @@
** Specify breakpoint default action
*/
-/*
+/*
* $FreeBSD: src/sys/boot/ficl/tools.c,v 1.2 2002/04/09 17:45:11 dcs Exp $
- * $DragonFly: src/sys/boot/ficl/tools.c,v 1.1 2003/11/10 06:08:33 dillon Exp $
+ * $DragonFly$
*/
+
#ifdef TESTMAIN
#include <stdlib.h>
#include <stdio.h> /* sprintf */
diff -ruN /home/tgen/files/dragonfly/src/sys/boot/ficl/unix.c boot/ficl/unix.c
--- /home/tgen/files/dragonfly/src/sys/boot/ficl/unix.c 2003-11-10 06:08:33.000000000 +0000
+++ boot/ficl/unix.c 2005-09-26 18:45:27.000000000 +0000
@@ -1,6 +1,6 @@
-/*
+/*
* $FreeBSD: src/sys/boot/ficl/unix.c,v 1.1 2001/04/29 02:36:34 dcs Exp $
- * $DragonFly: src/sys/boot/ficl/unix.c,v 1.1 2003/11/10 06:08:33 dillon Exp $
+ * $DragonFly$
*/
#include <string.h>
diff -ruN /home/tgen/files/dragonfly/src/sys/boot/ficl/vm.c boot/ficl/vm.c
--- /home/tgen/files/dragonfly/src/sys/boot/ficl/vm.c 2003-11-10 06:08:33.000000000 +0000
+++ boot/ficl/vm.c 2005-09-26 18:45:27.000000000 +0000
@@ -47,9 +47,9 @@
** SUCH DAMAGE.
*/
-/*
+/*
* $FreeBSD: src/sys/boot/ficl/vm.c,v 1.9 2002/04/09 17:45:11 dcs Exp $
- * $DragonFly: src/sys/boot/ficl/vm.c,v 1.4 2003/11/10 06:08:33 dillon Exp $
+ * $DragonFly$
*/
#ifdef TESTMAIN
diff -ruN /home/tgen/files/dragonfly/src/sys/boot/ficl/words.c boot/ficl/words.c
--- /home/tgen/files/dragonfly/src/sys/boot/ficl/words.c 2003-11-10 06:08:33.000000000 +0000
+++ boot/ficl/words.c 2005-09-26 18:45:27.000000000 +0000
@@ -41,9 +41,9 @@
** SUCH DAMAGE.
*/
-/*
+/*
* $FreeBSD: src/sys/boot/ficl/words.c,v 1.39 2002/12/30 21:18:06 schweikh Exp $
- * $DragonFly: src/sys/boot/ficl/words.c,v 1.3 2003/11/10 06:08:33 dillon Exp $
+ * $DragonFly$
*/
#ifdef TESTMAIN
Attachment:
signature.asc
-------------- next part --------------
A non-text attachment was scrubbed...
Name: pgp00005.pgp
Type: application/octet-stream
Size: 187 bytes
Desc: "Description: OpenPGP digital signature"
URL: <http://lists.dragonflybsd.org/pipermail/submit/attachments/20050926/80ca8487/attachment-0018.obj>
More information about the Submit
mailing list