openbios/openboot/obp/fm/lib/caller.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/lib/caller.fth

• \ caller.fth 2.3 96/02/29
  \ Copyright 1985-1990 Bradley Forthware
  
  \ .current-word  ( ip -- )	"ip" is an address which is presumed to
  \				be within the body of some colon definition.
  \				.current-word displays the name of that
  \				definition.
  
  \ .caller  ( -- )		Displays the colon definition name as in
  \				.current-word, and also the address "ip"
  
  decimal
  
  only forth also hidden also forth definitions
  
  headerless0
  : .current-word  ( ip -- )  find-cfa  ( acf )  .name  ;
  
  headerless 
  : .caller  ( ip -- )
     d# 18 to-column ." Called from "  dup .current-word
     d# 56 to-column ." at "  9 u.r
  ;
  headers 
  only forth also definitions
  

Download