obp/obp/arch/preload.fth

\ ========== Copyright Header Begin ==========================================
\
\ Hypervisor Software File: preload.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
\    conditions are met:
\
\  - 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
\ any nuclear facility.
\
\ ========== Copyright Header End ============================================
\ preload.fth 1.2 02/05/02
\ Copyright 2001-2002 Sun Microsystems, Inc.  All Rights Reserved
\ Copyright Use is subject to license terms.

\ Until we load this we can't use the id: form of file identification.
\ that includes this file.. So don't change the header.
\
warning off caps on decimal

\ We do this early so we can start xref as soon as possible.
\ in this case before we even have [ifdef] available.
\ which is why the symbols are $find executed, so it compiles into the
\ temporary execution buffer when XREF is not defined..
\
" XREF" 55 45 fsyscall drop if
   " xref-init" $find if execute then 0= abort" Xref failed to initialise"
   " ${BP}/arch/preload.fth" " xref-push-file" $find if execute then 2drop
   " xref-on" $find if execute then
then

fload ${BP}/fm/lib/copyrigh.fth

fload ${BP}/fm/lib/transien.fth
decimal limit origin- 27 * 100 / aligned  1000 set-transize
transient fload ${BP}/fm/lib/headless.fth resident
transient fload ${BP}/fm/lib/brackif.fth resident
[ifndef] RESET
transient fload ${BP}/fm/kernel/sparc/loadsyms.fth resident
[then]

\ This is a symbol aware version of fload, it ensure that make depend
\ works most of the time. However you cannot nest depend-load files.
\ You have to be very carefull with what you depend-load - you have been
\ warned.
transient
: depend-load \ 'feature-symbol' file
   safe-parse-word safe-parse-word              ( symbol$ file$ )
   2swap [get-symbol] drop if                   ( file$ )
      included                                  ( )
   else                                         ( file$ )
      " DEPEND" [get-symbol] drop if            ( file$ )
         ." File: " type cr                     ( )
      else                                      ( file$ )
         2drop                                  ( )
      then                                      ( )
   then                                         ( )
;

fload ${BP}/fm/lib/message.fth

resident

warning on

fload ${BP}/os/unix/simforth/findnext.fth

[defined] LOADFILE dup 0= abort" Missing platform loadfile" included