[Gm2] Solaris GM2 problem

[john o goyo]

Greetings:

The CVS source dated 2004-12-22 made without incident
on Solaris 9 (SPARC-based, IP32L64) but make gm2.paranoid
had the following problem (apparently compiling FifoQueue.mod).

gm2/boot-bin/mklink -s -exit -main gccgm2front 
../../gcc-3.3.2-gm2/gcc/gm2/init/gm2-gccinit
mv mod_init.c gm2/gm2-compiler-paranoid
gcc -c -g gm2/gm2-compiler-paranoid/mod_init.c -o 
gm2/gm2-compiler-paranoid/mod_init.o
./xgm2 -Wnil -Wcase -Wbounds -Wreturn -g -gdwarf-2  -funbounded-by-reference 
-Wverbose-unbounded -Wpim -Wpedantic-param-names -c -B./stage2/gm2 
-I../../gcc-3.3.2-gm2/gcc/gm2/gm2-compiler 
-I../../gcc-3.3.2-gm2/gcc/gm2/gm2-libs 
-I../../gcc-3.3.2-gm2/gcc/gm2/gm2-libiberty 
../../gcc-3.3.2-gm2/gcc/gm2/gm2-compiler/FifoQueue.mod -o 
gm2/gm2-compiler-paranoid/FifoQueue.o
../../gcc-3.3.2-gm2/gcc/gm2/gm2-compiler/FifoQueue.mod:43:coersion expecting a 
type
../../gcc-3.3.2-gm2/gcc/gm2/gm2-compiler/FifoQueue.mod:43:only one parameter 
expected in a TYPE coersion
../../gcc-3.3.2-gm2/gcc/gm2/gm2-compiler/FifoQueue.mod:45:too many errors in 
pass 3
make: *** [gm2/gm2-compiler-paranoid/FifoQueue.o] Error 1


This really confuses me as the offending code is the folowing:

41: PROCEDURE GetFromFifoQueue (VAR c: CARDINAL) ;
42: BEGIN
43:    INC(Out) ;
44:    c := GetItemFromList(Queue, Out)
45: END GetFromFifoQueue ;

The variable "Out" is defined as follows:

24:    Out  : CARDINAL ;


Sincerely,
john