aboutsummaryrefslogtreecommitdiff
path: root/forth/system
diff options
context:
space:
mode:
authorMark Cave-Ayland <mark.cave-ayland@ilande.co.uk>2017-09-13 19:24:43 +0100
committerMark Cave-Ayland <mark.cave-ayland@ilande.co.uk>2017-09-22 14:45:35 +0100
commit9b82260c122cdb41a86c1c5130cde9684369e430 (patch)
tree6eb10ed7c3420f1e5fde9c6754d2f13a5940b4ec /forth/system
parent314d4f8263972604b1c17e8de460de6b45483bd6 (diff)
downloadopenbios-9b82260c122cdb41a86c1c5130cde9684369e430.zip
openbios-9b82260c122cdb41a86c1c5130cde9684369e430.tar.gz
openbios-9b82260c122cdb41a86c1c5130cde9684369e430.tar.bz2
package.fs: don't reveal interposed packages
The IEEE-1275 interpose specification suggests that interposed packages should not be visible unless an interpose-aware Forth word is used. Commit 247c6169 "Fix for interpose problem" realised this by converting the romvec obp_inst2pkg() function over to use ihandle>non-interposed-phandle but didn't make the same change to the equivalent CIF call instance-to-path (which is presumably correct since the interpose specification also states that interposed packages are only visible to a new instance-to-interposed-path CIF call). Here we add a new instance-to-package word as a wrapper to ihandle>non-interposed-phandle and update obp_inst2pkg() and instance-to-path to use it accordingly. Signed-off-by: Mark Cave-Ayland <mark.cave-ayland@ilande.co.uk>
Diffstat (limited to 'forth/system')
-rw-r--r--forth/system/ciface.fs2
1 files changed, 1 insertions, 1 deletions
diff --git a/forth/system/ciface.fs b/forth/system/ciface.fs
index 85a6076..9dc433c 100644
--- a/forth/system/ciface.fs
+++ b/forth/system/ciface.fs
@@ -159,7 +159,7 @@ external
;
: instance-to-package ( ihandle -- phandle )
- ?ihandle ihandle>phandle
+ ?ihandle instance-to-package
;
: package-to-path ( buflen buf phandle -- length )