summaryrefslogtreecommitdiffstats
path: root/qemu/roms/openbios/libopenbios/clib.fs
diff options
context:
space:
mode:
Diffstat (limited to 'qemu/roms/openbios/libopenbios/clib.fs')
-rw-r--r--qemu/roms/openbios/libopenbios/clib.fs36
1 files changed, 0 insertions, 36 deletions
diff --git a/qemu/roms/openbios/libopenbios/clib.fs b/qemu/roms/openbios/libopenbios/clib.fs
deleted file mode 100644
index 04dd0aa43..000000000
--- a/qemu/roms/openbios/libopenbios/clib.fs
+++ /dev/null
@@ -1,36 +0,0 @@
-\ tag: C helpers
-\
-\ Misc C helpers
-\
-\ Copyright (C) 2003, 2004 Samuel Rydh
-\
-\ See the file "COPYING" for further information about
-\ the copyright and warranty status of this work.
-\
-
-\ should perhaps be moved somewhere else
-: set-property ( buf len propname propname-len phandle -- )
- >r 2swap encode-bytes 2swap r> encode-property
-;
-
-\ install C function
-: is-cfunc ( funcaddr word word-len -- )
- $create , does> @ call
-;
-
-\ install a nameless C function
-: is-noname-cfunc ( funcaddr -- xt )
- 0 0 is-cfunc last-xt
-;
-
-\ is-xt-cfunc installs a function which does the following:
-\ - xt is executes
-\ - funcarg is pushed
-\ - funcaddr is called
-
-: is-xt-cfunc ( xt|0 funcarg funcaddr word word-len -- )
- is-func-begin
- rot ?dup if , then
- swap ['] (lit) , , ['] (lit) , , ['] call ,
- is-func-end
-;