Hi John & Co,

I have recently been helping to introduce a couple of Blackbox CP
users to Gardens Point CP. In the process of their porting code a
number of issues have been raised that I have been unable to answer
for them. This is the first (I'll report one per message to try to
keep ensuing discussions simple)

MODULE Panic1;

TYPE
p = PROCEDURE (i: INTEGER);

VAR
pa: ARRAY 9 OF p;

END Panic1.

Compiler raised an internal exception
Panic1.cp(1,1) : error : Compiler raised an internal exception
Panic1.cp(1,255) : error : Exception: System.Exception: WITH else-
trap: type = TypeDesc.Procedure
at MsilUtil.MsilUtil.typeName(Type typ, MsilFile os)
at MsilUtil.MsilUtil.MkArrName(Array typ, MsilFile os)
at MsilUtil.MsilUtil.MkTypeName(Type typ, MsilFile fil)
at IlasmUtil.IlasmFile.TypeTag(Type typ)
at IlasmUtil.IlasmFile.TtypeTag(Type typ)
at IlasmUtil.IlasmFile.EmitField(AbVar id, Int32 att)
at MsilMaker.MsilEmitter.EmitModBody(MsilFile out, BlkId mod)
at MsilMaker.MsilEmitter.Emit()
at Target.Target.Emit()
at CPascal.CPascal.Compile(Char[] nam, Int32& retVal)

Regards,
Chris

Chris Burrows
CFB Software
http://www.cfbsoftware.com/gpcp