[PATCH] Fix test-method argument order

[Andreas Färber]

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 
---
 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]

[Blue Swirl]

Thanks, applied.

On Fri, Oct 8, 2010 at 2:05 PM, Andreas Färber  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
>
> 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