r1041 - cpu/arm cpu/ppc forth/kernel

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 )  ;