[openfirmware] r1041 - cpu/arm cpu/ppc forth/kernel
svn at openfirmware.info
svn at openfirmware.info
Wed Dec 24 01:14:23 CET 2008
Author: wmb
Date: 2008-12-24 01:14:23 +0100 (Wed, 24 Dec 2008)
New Revision: 1041
Added:
forth/kernel/metanswapmap.fth
Modified:
cpu/arm/kernel.bth
cpu/ppc/kernel.bth
Log:
ARM and PowerPC versions - fixed some kernel compilation script problems.
Modified: cpu/arm/kernel.bth
===================================================================
--- cpu/arm/kernel.bth 2008-12-20 08:00:00 UTC (rev 1040)
+++ cpu/arm/kernel.bth 2008-12-24 00:14:23 UTC (rev 1041)
@@ -56,7 +56,7 @@
only forth also definitions
\needs bitset fload ${BP}/forth/lib/bitops.fth
-fload ${BP}/forth/kernel/nswapmap.fth \ Null swap map
+fload ${BP}/forth/kernel/metanswapmap.fth \ Null swap map
\ : : : lastacf .name cr ;
fload ${BP}/cpu/arm/target.fth
fload ${BP}/forth/kernel/forward.fth
Modified: cpu/ppc/kernel.bth
===================================================================
--- cpu/ppc/kernel.bth 2008-12-20 08:00:00 UTC (rev 1040)
+++ cpu/ppc/kernel.bth 2008-12-24 00:14:23 UTC (rev 1041)
@@ -45,6 +45,10 @@
fload ${BP}/cpu/ppc/metainit.fth
+" kernel.tag" r/w create-file drop meta-tag-file !
+
+always-headers
+
\ Comment out the following line(s) when debugging
-1 threshold ! \ Turn OFF ALL debugging messages
warning-t off \ Turn OFF target warning messages
@@ -78,6 +82,8 @@
fload ${BP}/forth/kernel/init.fth
fload ${BP}/cpu/ppc/finish.fth
+meta-tag-file @ fclose meta-tag-file off
+
fload ${BP}/cpu/ppc/savemeta.fth
.( --- Saving kernel.dic ---) " kernel.dic" $save-meta
Added: forth/kernel/metanswapmap.fth
===================================================================
--- forth/kernel/metanswapmap.fth (rev 0)
+++ forth/kernel/metanswapmap.fth 2008-12-24 00:14:23 UTC (rev 1041)
@@ -0,0 +1,4 @@
+\ Null byte swap table management for metacompiler
+
+: set-swap-bit-t ( addr -- ) drop ;
+: note-string-t ( adr len -- adr len ) ;
More information about the openfirmware
mailing list