Re: [OpenBIOS] SOLVED: the mystery of Solaris on SPARC32 and the missing Forth arguments

[Andreas Färber]

Am 24.10.2010 um 03:24 schrieb Mark Cave-Ayland:
> Index: arch/sparc32/romvec.c
>
> --- arch/sparc32/romvec.c	(revision 915)
> +++ arch/sparc32/romvec.c	(working copy)
> @@ -219,36 +211,43 @@
> }
>
> static const struct linux_nodeops nodeops0 = {
> obp_nextnode,	/* int (*no_nextnode)(int node); */
> obp_child,	        /* int (*no_child)(int node); */
> obp_proplen,	/* int (*no_proplen)(int node, char *name); */
> obp_getprop,	/* int (*no_getprop)(int node,char *name,char
>
> *val); */
> obp_setprop,	/* int (*no_setprop)(int node, char *name,
>                       char *val, int len); */
> obp_nextprop	/* char * (*no_nextprop)(int node, char *name); */
> obp_nextnode_handler,	/* int (*no_nextnode)(int node); */
> obp_child_handler,	        /* int (*no_child)(int node); */
> obp_proplen_handler,	/* int (*no_proplen)(int node, char
>
> *name); */
> obp_getprop_handler,	/* int (*no_getprop)(int node,char
>
> *name,char *val); */
> obp_setprop_handler,	/* int (*no_setprop)(int node, char *name,
>               	        char *val, int len); */
> obp_nextprop_handler	/* char * (*no_nextprop)(int node, char
>
> *name); */
> };
>
> -static int obp_nbgetchar(void)
> +int obp_nbgetchar(void)
> {
>     return getchar();
> }
>
> -static int obp_nbputchar(int ch)
> +int obp_nbputchar(int ch)
> {
>     putchar(ch);
> return 0;
>
> }
>
> -static void obp_reboot(char *str)
> +void obp_putstr(char *str, int len)
> {
> PUSH((ucell)str);

PUSH(pointer2cell(str));
> @@ -449,11 +448,16 @@
>   DPRINTF("obp_fortheval_v2(%s)\n", str);
>   push_str(str);
>   fword("eval");
>
> }

Whitespace intentional?

Andreas