Re: Maybe a newbie question..

On Mar 3, 12:07 pm, sb...@[EMAIL PROTECTED]
 wrote:
> Hi all, maybe it's a very newbie question.
> What is the difference (if there is any) in performance between these
> solutions?
>
> I've to choose 2 words and I'm comparing the IF ELSE cases or a table;
> here an example:
>
> CREATE MYTABLE
> ' WORD1 , ' WORD2 ,
>
> SEL_WORD VAR1 @[EMAIL PROTECTED]
 2* MYTABLE + @[EMAIL PROTECTED]
 EXECUTE ;
>
> or
>
> SEL_WORD VAR1 @[EMAIL PROTECTED]
 0= IF WORD1 ELSE WORD2 THEN ;
>
> I'm working on swiftX forth for an HC12B32 microcontroller; I've seen
> that the first solution (the one using a table) uses 3 bytes more than
> the second solution.
> But the question is: what is the fastest solution? Is there any
> difference? Because the table is very useful and I like a lot using a
> table.
>
> Thanks
>
> --
> Ciao da Stefano

Do you need VAR1 at all?

let us assume that the words writing to VAR1 are only
: set-var1 1 var1 ! ;
: reset-var1 0 var1 ! ;
and all write access to VAR1 is done via only these two.

Then you can use

DEFER the-right-word
: set-var1 ['] wordd2 is the-right-word ;
: reset-var1 ['] word1 is the-right-word ;

and instead of
>  VAR1 @[EMAIL PROTECTED]
 2* MYTABLE + @[EMAIL PROTECTED]
 EXECUTE ;
you can use just
THE-RIGHT-WORD

PS
multiple selecting words are also no problem:

DEFER the-right-word
DEFER the-left-word
: set-var1 ['] word2 is the-right-word ['] word4 is the-left-word  ;
: reset-var1 ['] word1 is the-right-word ['] word3 is the-left-word  ;