diff options
| -rw-r--r-- | forth/device/builtin.fs | 2 | ||||
| -rw-r--r-- | forth/device/device.fs | 4 | ||||
| -rw-r--r-- | forth/device/tree.fs | 4 | ||||
| -rw-r--r-- | forth/packages/deblocker.fs | 1 | ||||
| -rw-r--r-- | forth/packages/disklabel.fs | 1 | ||||
| -rw-r--r-- | forth/packages/obp-tftp.fs | 1 | ||||
| -rw-r--r-- | forth/packages/packages.fs | 1 | ||||
| -rw-r--r-- | forth/packages/terminal-emulator.fs | 1 | ||||
| -rw-r--r-- | forth/system/ciface.fs | 2 |
9 files changed, 4 insertions, 13 deletions
diff --git a/forth/device/builtin.fs b/forth/device/builtin.fs index 4b57551..aaefba8 100644 --- a/forth/device/builtin.fs +++ b/forth/device/builtin.fs @@ -14,13 +14,11 @@ new-device " builtin" device-name - external : open true ; : close ; new-device " console" device-name - external : open true ; : close ; : write dup >r bounds ?do i c@ (emit) loop r> ; diff --git a/forth/device/device.fs b/forth/device/device.fs index 708bfa0..4e025b9 100644 --- a/forth/device/device.fs +++ b/forth/device/device.fs @@ -85,8 +85,8 @@ variable device-tree to my-self r@ active-package! - \ swtich to private wordlist - private + \ swtich to public wordlist + external r> drop ; diff --git a/forth/device/tree.fs b/forth/device/tree.fs index b3510f9..b605661 100644 --- a/forth/device/tree.fs +++ b/forth/device/tree.fs @@ -13,7 +13,6 @@ new-device " OpenBiosTeam,OpenBIOS" device-name 1 encode-int " #address-cells" property - external : open true ; : close ; : decode-unit parse-hex ; @@ -23,7 +22,6 @@ new-device new-device " aliases" device-name - external : open true ; : close ; finish-device @@ -36,7 +34,6 @@ new-device 0 0 " supports-bootinfo" property 1 encode-int " boot-syntax" property - external : selftest ." OpenBIOS selftest... succeded" cr true @@ -58,7 +55,6 @@ new-device \ " -as" encode-string " bootargs" property 0 encode-int " memory" property 0 encode-int " mmu" property - external finish-device \ END diff --git a/forth/packages/deblocker.fs b/forth/packages/deblocker.fs index 3959f79..31a37d0 100644 --- a/forth/packages/deblocker.fs +++ b/forth/packages/deblocker.fs @@ -17,7 +17,6 @@ new-device " deblocker" device-name - external \ open ( -- flag ) \ Prepares the package for subsequent use, allocating the buffers used \ by the deblocking process based upon the values returned by the parent diff --git a/forth/packages/disklabel.fs b/forth/packages/disklabel.fs index 01f9517..39aa13e 100644 --- a/forth/packages/disklabel.fs +++ b/forth/packages/disklabel.fs @@ -14,7 +14,6 @@ new-device " disklabel" device-name - external \ now the methods... finish-device diff --git a/forth/packages/obp-tftp.fs b/forth/packages/obp-tftp.fs index 8a42eee..62f0e72 100644 --- a/forth/packages/obp-tftp.fs +++ b/forth/packages/obp-tftp.fs @@ -14,7 +14,6 @@ new-device " obp-tftp" device-name - external \ now the methods... finish-device diff --git a/forth/packages/packages.fs b/forth/packages/packages.fs index d1d15af..9f79f9e 100644 --- a/forth/packages/packages.fs +++ b/forth/packages/packages.fs @@ -10,7 +10,6 @@ new-device " packages" device-name - external : open true ; : close ; finish-device diff --git a/forth/packages/terminal-emulator.fs b/forth/packages/terminal-emulator.fs index b08b5bb..0ecd348 100644 --- a/forth/packages/terminal-emulator.fs +++ b/forth/packages/terminal-emulator.fs @@ -14,7 +14,6 @@ new-device " terminal-emulator" device-name - external \ now the methods... finish-device diff --git a/forth/system/ciface.fs b/forth/system/ciface.fs index 95d70c9..b2035bc 100644 --- a/forth/system/ciface.fs +++ b/forth/system/ciface.fs @@ -11,6 +11,8 @@ active-package to ciface-ph \ private stuff \ ------------------------------------------------------------- +private + variable callback-function : ?phandle ( phandle -- phandle ) |