openbios/openboot/obp/cpu/sparc/acall.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/cpu/sparc/acall.fth

• \ acall.fth 2.4 94/09/06
  \ Copyright 1985-1990 Bradley Forthware
  
  \ Usage:
  \    " external-procedure-name" $acall
  \ or
  \    " external-procedure-name" $acall: name  { args -- results }
  
  
  : $acall   ( procedure-name$ -- )
     [ also assembler ]
  
     dictionary-size      ( procedure-name$ offset )
     here call		\ make space for relocatable addr
     -rot  $add-call	\ symtab entry
  
     [ previous ]
  ;
  
  \ : $acall:  \ name  ( procedure-name$ -- procedure-name$ 'subroutine-call )
  \    ['] $acall code   current token@ context token!
  \ ;
  

Download