> Readded the pio_(stdin|stdout|stderr) to make builds work again.
I moved "stdin/stdout/stderr" to be interp local so you can
use: interpreter->piodata->table[PIO_STDIN_FILENO], etc. now.
Those global pointers should go away because they are null
now anyway.
-Melvin
> Revision Changes Path
> 1.11 +5 -5 parrot/jit.c
>
> Index: jit.c
> ===================================================================
> RCS file: /home/perlcvs/parrot/jit.c,v
> retrieving revision 1.10
> retrieving revision 1.11
> diff -u -w -r1.10 -r1.11
> --- jit.c 20 Jan 2002 20:52:21 -0000 1.10
> +++ jit.c 28 Jan 2002 14:16:59 -0000 1.11
> @@ -1,7 +1,7 @@
> /*
> ** jit.c
> **
> -** $Id: jit.c,v 1.10 2002/01/20 20:52:21 grunblatt Exp $
> +** $Id: jit.c,v 1.11 2002/01/28 14:16:59 grunblatt Exp $
> */
>
> #include <parrot/parrot.h>
> @@ -33,7 +33,7 @@
> INTVAL *address,ivalue,size,i,k;
> INTVAL *op_address, prev_address, bytecode_position;
> #ifdef ALPHA
> - char *interpreter_registers = ((char
> *)&interpreter->int_reg->registers[0]) + 0x7fff;
> + char *interpreter_registers = ((char
> *)&interpreter->int_reg.registers[0]) + 0x7fff;
> INTVAL high,low;
> #endif
>
> @@ -107,7 +107,7 @@
> v = op_assembly[*pc].intval_register_address;
> for (i = 0; i < v.amount; i++)
> {
> - address =
> &interpreter->int_reg->registers[pc[v.info[i].number]];
> + address =
> &interpreter->int_reg.registers[pc[v.info[i].number]];
> #ifdef ALPHA
> address = (INTVAL*)(((char *)address) -
> interpreter_registers);
> #endif
> @@ -117,7 +117,7 @@
> v = op_assembly[*pc].floatval_register_address;
> for (i = 0; i < v.amount; i++)
> {
> - address = (INTVAL
> *)&interpreter->num_reg->registers[pc[v.info[i].number]];
> + address = (INTVAL
> *)&interpreter->num_reg.registers[pc[v.info[i].number]];
> #ifdef ALPHA
> address = (INTVAL*)(((char *)address) -
> interpreter_registers);
> #endif
> @@ -129,7 +129,7 @@
> v = op_assembly[*pc].string_register_address;
> for (i = 0; i < v.amount; i++)
> {
> - address = (INTVAL
> *)&interpreter->string_reg->registers[pc[v.info[i].number]];
> + address = (INTVAL
> *)&interpreter->string_reg.registers[pc[v.info[i].number]];
> #ifdef ALPHA
> address = (INTVAL*)(((char *)address) -
> interpreter_registers);
> #endif
>
>
>
> 1.12 +6 -1 parrot/io/io.c
>
> Index: io.c
> ===================================================================
> RCS file: /home/perlcvs/parrot/io/io.c,v
> retrieving revision 1.11
> retrieving revision 1.12
> diff -u -w -r1.11 -r1.12
> --- io.c 28 Jan 2002 04:27:17 -0000 1.11
> +++ io.c 28 Jan 2002 14:17:05 -0000 1.12
> @@ -1,7 +1,7 @@
> /* io.c
> * Copyright: (When this is determined...it will go here)
> * CVS Info
> - * $Id: io.c,v 1.11 2002/01/28 04:27:17 mrjoltcola Exp $
> + * $Id: io.c,v 1.12 2002/01/28 14:17:05 grunblatt Exp $
> * Overview:
> * This is the Parrot IO subsystem API. Generic IO stuff
> * goes here, each specific layer goes in its own file...
> @@ -29,6 +29,11 @@
> /*
> ParrotIOLayer * pio_default_stack;
> */
> +
> +/* The standard streams */
> +ParrotIO * pio_stdin;
> +ParrotIO * pio_stdout;
> +ParrotIO * pio_stderr;
>
>
> PIOOFF_T piooffsetzero;
>
>
>
