openbios/openboot/obp/fm/kernel/guarded.fth

• Show log

  Commit

• Hash : 1a08f436
  Author :
  Date : 2010-08-25T09:23:17
  

  change to well-formed svn directory structure. git-svn-id: svn://coreboot.org/openboot/trunk@2 4486e004-3823-0410-90c7-fb508cc143bb

Download

• obp/fm/kernel/guarded.fth

• \ guarded.fth 1.1 02/05/02
  \ Copyright 1985-1994 Bradley Forthware
  \ Copyright 1994-2002 Sun Microsystems, Inc.  All Rights Reserved
  \ Copyright Use is subject to license terms.
  
  \ A version that knows about multi-segment dictionaries can be installed
  \ if such dictionaries exist.
  : (in-dictionary?  ( adr -- )  origin here between  ;
  headers
  defer in-dictionary? ' (in-dictionary? is in-dictionary?
  
  defer .error#
  : .error  ( error# -- )
     dup  -13  =  if
        show-error
        drop abort-message type
        ."  ?"
     else
        dup  -2 =  if
  	 show-error
  	 drop abort-message type
        else
  	 dup -1 =  if
  	    drop
  	 else
  	    show-error
  	    dup in-dictionary?  if  count type  else  .error#  then
  	 then
        then
     then
     cr
  ;
  : guarded  ( acf -- )  catch  ?dup  if  .error  then  ;
  

Download