sub :init implementation

[Kevin Tew]

The attached patch is broken because of lack of flag space.

I coded it up this morning. It wasn't too bad except that we have run
out of PObj flags in which to store sub attributes.
Ideas?

Also how do I get flex and bison to regen the grammar?
I made real clean
perl Configure.pl --maintainer

But I'm still getting this error because then new token type INIT hasn't
been generated by lex and bison.

Compiling with:
xx.c
cc -I./include -D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBIAN
-pipe -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -I
/usr/include -g -W -Wall -Wstrict-prototypes -Wmissing-prototypes
-Winline -Wshadow -Wpointer-arith -Wcast-qual -Wwrite-strings
-Waggregate-return -Winline -Wno-unused -Wlarger-than-4096
-Wsign-compare -falign-functions=16 -Wformat-nonliteral
-Wformat-security -Wpacked -Wdisabled-optimization
-mno-accumulate-outgoing-args -Wno-shadow -DHAS_JIT -DI386
-DHAVE_COMPUTED_GOTO -fPIC -I. -o xx.o -c xx.c
compilers/imcc/main.c
compilers/imcc/main.c: In function ‘do_pre_process’:
compilers/imcc/main.c:476: error: ‘INIT’ undeclared (first use in this
function)
compilers/imcc/main.c:476: error: (Each undeclared identifier is
reported only once
compilers/imcc/main.c:476: error: for each function it appears in.)
make: *** [compilers/imcc/main.o] Error 1

Kevin