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