update the testsuite

This commit is contained in:
krasimir
2010-01-29 11:13:31 +00:00
parent 53a081bf0b
commit ed446a4295
2 changed files with 36 additions and 14 deletions
+2 -2
View File
@@ -1,2 +1,2 @@
i -src -erasing=on testsuite/compiler/check/lins/linsCnc.gf i -src testsuite/compiler/check/lins/linsCnc.gf
pg -printer=pmcfg_pretty pg -printer=pgf_pretty
+31 -9
View File
@@ -1,15 +1,37 @@
checking module linsCnc␍ checking module linsCnc␍
Warning: no linearization type for C, inserting default {s : Str}␍ Warning: no linearization type for C, inserting default {s : Str}␍
Warning: no linearization of test␍ Warning: no linearization of test␍
language linsCnc abstract lins {
cat C Nat␍
cat Float␍
cat Int␍
cat Nat␍
cat String␍
fun test : C zero␍
fun zero : Nat␍
}␍
concrete linsCnc {␍
productions␍ productions␍
C1 -> F0[]␍ C0 -> F0[CVar]␍
C1 -> F1[CVar]␍
C1 -> F2[]␍
functions␍ functions␍
F0 := () [zero]␍ F0 := (S0) [__gfV]␍
F1 := () [__gfV]␍
F2 := () [zero]␍
sequences␍ sequences␍
startcats S0 := <0,0>
C := [C0] categories
Float := [CFloat]␍ C := range [C0 .. C0]␍
Int := [CInt]␍ labels ["s"]␍
Nat := [C1]␍ Float := range [CFloat .. CFloat]␍
String := [CString]␍ labels ["s"]␍
Int := range [CInt .. CInt]␍
labels ["s"]␍
Nat := range [C1 .. C1]␍
labels []␍
String := range [CString .. CString]␍
labels ["s"]␍
__gfVar := range [CVar .. CVar]␍
labels ["s"]␍
}␍