C++ generation crashes on bug1202

[pippijn]

Without -Wcheck, it's a segmentation fault (null pointer dereference).

Instructions

aldor -Fc++ -Wcheck bug1202.as

Output

 Basic types correspondence:
 [SingleInteger] and [int]
 [String] and [char*]
 [Character] and [char]
 [SingleFloat] and [float]
 [DoubleFloat] and [double*]
 [Pointer] and [void*]
 [()] and [void]
 [Word] and [FiWord]
 [Ptr] and [FiPtr]
 [Bool] and [FiBool]
 [Byte] and [FiByte]
 [SInt] and [FiSInt]
 [Char] and [FiChar]
 [Arr] and [FiArr]
 [Rec] and [FiRec]
 [BInt] and [FiBInt]
 [DFlo] and [FiDFlo]


    IMPORT/EXPORT GENERATION

Category Class generation
Assertion failed, file "gencpp.c" line 3975: tf != NULL
Program fault (abort process).#3 (Error) Program fault (abort process).