[PATCH] Fix test-method argument order
test-method for "instantiate-rtas" would fail on the /rtas node. According to CHRP 1.5 draft, the stack order seems reversed. Signed-off-by: Andreas Färber <andreas.faerber@web.de> --- forth/system/ciface.fs | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/forth/system/ciface.fs b/forth/system/ciface.fs index 27a1deb..ff87608 100644 --- a/forth/system/ciface.fs +++ b/forth/system/ciface.fs @@ -315,10 +315,10 @@ external \ PowerPC Microprocessor CHRP binding \ 10.5.2. Client Interface -( phandle cstring-method -- missing ) +( cstring-method phandle -- missing ) : test-method - dup cstrlen rot + swap dup cstrlen rot find-method 0= if -1 else drop 0 then ; [THEN] -- 1.7.3
Thanks, applied. On Fri, Oct 8, 2010 at 2:05 PM, Andreas Färber <andreas.faerber@web.de> wrote:
test-method for "instantiate-rtas" would fail on the /rtas node. According to CHRP 1.5 draft, the stack order seems reversed.
Signed-off-by: Andreas Färber <andreas.faerber@web.de> --- forth/system/ciface.fs | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/forth/system/ciface.fs b/forth/system/ciface.fs index 27a1deb..ff87608 100644 --- a/forth/system/ciface.fs +++ b/forth/system/ciface.fs @@ -315,10 +315,10 @@ external \ PowerPC Microprocessor CHRP binding \ 10.5.2. Client Interface
-( phandle cstring-method -- missing ) +( cstring-method phandle -- missing )
: test-method - dup cstrlen rot + swap dup cstrlen rot find-method 0= if -1 else drop 0 then ; [THEN] -- 1.7.3
-- OpenBIOS http://openbios.org/ Mailinglist: http://lists.openbios.org/mailman/listinfo Free your System - May the Forth be with you
participants (2)
-
Andreas Färber -
Blue Swirl