\ ========== Copyright Header Begin ==========================================
\ Hypervisor Software File: loadkern.fth
\ Copyright (c) 2006 Sun Microsystems, Inc. All Rights Reserved.
\ - Do no alter or remove copyright notices
\ - Redistribution and use of this software in source and binary forms, with
\ or without modification, are permitted provided that the following
\ - Redistribution of source code must retain the above copyright notice,
\ this list of conditions and the following disclaimer.
\ - Redistribution in binary form must reproduce the above copyright notice,
\ this list of conditions and the following disclaimer in the
\ documentation and/or other materials provided with the distribution.
\ Neither the name of Sun Microsystems, Inc. or the names of contributors
\ may be used to endorse or promote products derived from this software
\ without specific prior written permission.
\ This software is provided "AS IS," without a warranty of any kind.
\ ALL EXPRESS OR IMPLIED CONDITIONS, REPRESENTATIONS AND WARRANTIES,
\ INCLUDING ANY IMPLIED WARRANTY OF MERCHANTABILITY, FITNESS FOR A
\ PARTICULAR PURPOSE OR NON-INFRINGEMENT, ARE HEREBY EXCLUDED. SUN
\ MICROSYSTEMS, INC. ("SUN") AND ITS LICENSORS SHALL NOT BE LIABLE FOR
\ ANY DAMAGES SUFFERED BY LICENSEE AS A RESULT OF USING, MODIFYING OR
\ DISTRIBUTING THIS SOFTWARE OR ITS DERIVATIVES. IN NO EVENT WILL SUN
\ OR ITS LICENSORS BE LIABLE FOR ANY LOST REVENUE, PROFIT OR DATA, OR
\ FOR DIRECT, INDIRECT, SPECIAL, CONSEQUENTIAL, INCIDENTAL OR PUNITIVE
\ DAMAGES, HOWEVER CAUSED AND REGARDLESS OF THE THEORY OF LIABILITY,
\ ARISING OUT OF THE USE OF OR INABILITY TO USE THIS SOFTWARE, EVEN IF
\ SUN HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.
\ You acknowledge that this software is not designed, licensed or
\ intended for use in the design, construction, operation or maintenance of
\ ========== Copyright Header End ============================================
\ id: @(#)loadkern.fth 2.34 07/06/05 10:54:48
\ copyright: Copyright 2007 Sun Microsystems, Inc. All Rights Reserved
\ copyright: Use is subject to license terms.
\ Copyright 1985-1994 Bradley Forthware
\ Don't accept ',' as numeric punctuation because doing so makes
\ the forward referencing mechanism think that "c," is a number!
ascii . ascii , npatch numdelim?
warning off \ Turn OFF the warning messages
\needs lconstant alias lconstant constant
fload ${BP}/fm/lib/message.fth
fload ${BP}/fm/meta/meta1.fth
alias xref-on meta-xref-on
alias xref-off meta-xref-off
fload ${BP}/fm/lib/xref.fth
only forth also meta also definitions
fload ${BP}/cpu/sparc/assem.fth
only forth also meta assembler also meta definitions
: assembler ( -- ) srassembler ;
only forth also meta also assembler definitions
fload ${BP}/fm/lib/loclabel.fth
fload ${BP}/fm/meta/nswapmap.fth
fload ${BP}/fm/meta/sparc/target.fth
fload ${BP}/fm/meta/forward.fth
fload ${BP}/fm/meta/sparc/fixvoc.fth
fload ${BP}/fm/meta/compilin.fth
only forth also definitions
\ Init the first reference file
" ${BP}/fm/kernel/sparc/loadkern.fth" xref-push-file 2drop
\ The include-exit hook in metainit will pop this file
" ${BP}/fm/kernel/sparc/metainit.fth" xref-push-file 2drop
fload ${BP}/fm/kernel/sparc/metainit.fth
\ always-headers \ Keep all the headers
\ sometimes-headers \ Keep some instead
\ Comment out the following line(s) when debugging
-1 threshold ! \ Turn OFF ALL debugging messages
warning-t off \ Turn OFF target warning messages
\ Uncomment the following line(s) for more debug output
\ show? on 1 granularity ! 1 threshold !
fload ${BP}/fm/kernel/sparc/kerncode.fth
32\ fload ${BP}/fm/kernel/sparc/divrem.fth
64\ fload ${BP}/fm/kernel/sparc/divrem9.fth
fload ${BP}/fm/kernel/uservars.fth \ I init task link.
32\ fload ${BP}/fm/kernel/sparc/multiply.fth
64\ fload ${BP}/fm/kernel/sparc/mulv9.fth
\t32-t fload ${BP}/fm/kernel/sparc/move.fth
\t16-t fload ${BP}/fm/kernel/sparc/moveslow.fth \ Longword optimized
\ but not doubleword optimized
defer xref-on ' noop is xref-on
defer xref-off ' noop is xref-off
defer xref-header-hook ' noop is xref-header-hook
defer xref-find-hook ' noop is xref-find-hook
defer xref-hide-hook ' noop is xref-hide-hook
defer xref-reveal-hook ' noop is xref-reveal-hook
defer xref-string-hook ' noop is xref-string-hook
fload ${BP}/fm/lib/xref.fth
fload ${BP}/fm/kernel/sparc/extra.fth
fload ${BP}/fm/kernel/sparc/double.fth
fload ${BP}/fm/kernel/double.fth
fload ${BP}/fm/kernel/dmuldiv.fth
64\ fload ${BP}/fm/kernel/dmul.fth
defer title ' noop is title \ Set later in loadutil.fth
fload ${BP}/fm/kernel/io.fth \ I init #-buf
fload ${BP}/fm/kernel/stresc.fth \ I init stringbuf
fload ${BP}/fm/kernel/comment.fth
fload ${BP}/fm/kernel/kernel2.fth
fload ${BP}/fm/kernel/compiler.fth \ I init 'compile-buffer
fload ${BP}/fm/kernel/interp.fth
fload ${BP}/fm/kernel/kernport.fth
fload ${BP}/fm/kernel/definers.fth \ I clear buffers
fload ${BP}/fm/kernel/tagvoc.fth
fload ${BP}/fm/kernel/voccom.fth \ I init canonical-words and
fload ${BP}/fm/kernel/order.fth \ I init search order
fload ${BP}/fm/kernel/is.fth
fload ${BP}/fm/kernel/sparc/field.fth
fload ${BP}/fm/kernel/cold.fth
fload ${BP}/fm/kernel/sparc/checkpt.fth
fload ${BP}/fm/kernel/guarded.fth
fload ${BP}/fm/lib/cstrings.fth \ I init cstrbuf
\ Bootstrapping onto a minikernel does not work yet so we need these.
fload ${BP}/fm/kernel/sparc/filecode.fth
fload ${BP}/fm/kernel/filecomm.fth \ I init 'word and fds
fload ${BP}/fm/kernel/disk.fth
fload ${BP}/fm/kernel/readline.fth
fload ${BP}/fm/cwrapper/sysdisk.fth
fload ${BP}/fm/cwrapper/syskey.fth
fload ${BP}/os/unix/sparc/sys.fth
fload ${BP}/fm/lib/alias.fth
fload ${BP}/fm/kernel/cmdline.fth
fload ${BP}/fm/kernel/nswapmap.fth
fload ${BP}/fm/kernel/ansio.fth \ I init error-file
fload ${BP}/fm/kernel/sparc/parseline.fth
fload ${BP}/fm/kernel/fileio.fth
\ fload ${BP}/fm/lib/transien.fth
\ fload ${BP}/fm/lib/headless.fth
fload ${BP}/fm/cwrapper/sparc/boot.fth
fload ${BP}/fm/kernel/init.fth
fload ${BP}/fm/kernel/sparc/finish.fth
fload ${BP}/fm/meta/sparc/savemeta.fth
warning on \ Turn ON the warning messages
true abort" ERROR: dic-file-name undefined, can't save image"
[defined] dic-file-name dup 1+ alloc-mem pack save-meta
\ In order to get the headers/headerless info save the dictionary
[defined] nheads-dic-name "temp pack
projects / OpenSPARC-T2-SAM / blob