26 lines
408 B
Nim
26 lines
408 B
Nim
discard """
|
|
errormsg: "internal error: cannot generate C type for: PA"
|
|
"""
|
|
# Test recursive type descriptions
|
|
# (mainly for the C code generator)
|
|
|
|
type
|
|
PA = ref TA
|
|
TA = array [0..2, PA]
|
|
|
|
PRec = ref TRec
|
|
TRec {.final.} = object
|
|
a, b: TA
|
|
|
|
P1 = ref T1
|
|
PB = ref TB
|
|
TB = array [0..3, P1]
|
|
T1 = array [0..6, PB]
|
|
|
|
var
|
|
x: PA
|
|
new(x)
|
|
#ERROR_MSG internal error: cannot generate C type for: PA
|
|
|
|
|
|
|