Virtualization/openbios
1
0
Fork 0
mirror of https://gitlab.com/qemu-project/openbios.git synced 2024-02-13 08:34:06 +08:00
Code Issues Projects Releases Wiki Activity

add set-callback for Aurora 2.0

Browse Source 
git-svn-id: svn://coreboot.org/openbios/openbios-devel@223 f158a5a8-5612-0410-a976-696ce0be7e32
This commit is contained in:
Stefan Reinauer
2008-08-06 23:24:48 +00:00
parent 9e5a3dc6ce
commit c763143e7a
1 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
forth/system/ciface.fs
View File

@@ -11,6 +11,8 @@ active-package to ciface-ph
\ private stuff
\ -------------------------------------------------------------
variable callback-function
: ?phandle ( phandle -- phandle )
dup 0= if ." NULL phandle" -1 throw then
;
@@ -267,7 +269,12 @@ external
\ ." --- " cr
;
\ : set-callback ( newfunc -- oldfunc ) ;
: set-callback ( newfunc -- oldfunc )
callback-function @
swap
callback-function !
;
\ : set-symbol-lookup ( sym-to-value -- value-to-sym ) ;