mirror of
https://github.com/c64scene-ar/llvm-6502.git
synced 2024-11-10 01:10:48 +00:00
a22657f457
In historical reason, tblgen is not strictly required to be free from memory leaks. For now, I mark them as XFAIL, they could be fixed, though. git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@194353 91177308-0d34-0410-b5e6-96231b3b80d8
38 lines
963 B
TableGen
38 lines
963 B
TableGen
// RUN: llvm-tblgen %s
|
|
// XFAIL: vg_leak
|
|
|
|
// CHECK: def One {
|
|
// CHECK-NEXT: list<string> names = ["Jeffrey Sinclair"];
|
|
// CHECK-NEXT: string element = "Jeffrey Sinclair";
|
|
// CHECK-NEXT: list<string> rest = [];
|
|
// CHECK-NEXT: int null = 1;
|
|
// CHECK-NEXT: string NAME = ?;
|
|
// CHECK-NEXT: }
|
|
// CHECK-NEXT: def Three {
|
|
// CHECK-NEXT: list<string> names = ["Tom", "Dick", "Harry"];
|
|
// CHECK-NEXT: string element = "Tom";
|
|
// CHECK-NEXT: list<string> rest = ["Dick", "Harry"];
|
|
// CHECK-NEXT: int null = 0;
|
|
// CHECK-NEXT: string NAME = ?;
|
|
// CHECK-NEXT: }
|
|
|
|
class List<list<string> n> {
|
|
list<string> names = n;
|
|
}
|
|
|
|
class CAR<string e> {
|
|
string element = e;
|
|
}
|
|
|
|
class CDR<list<string> r, int n> {
|
|
list<string> rest = r;
|
|
int null = n;
|
|
}
|
|
|
|
class NameList<list<string> Names> :
|
|
List<Names>, CAR<!head(Names)>, CDR<!tail(Names), !empty(!tail(Names))>;
|
|
|
|
def Three : NameList<["Tom", "Dick", "Harry"]>;
|
|
|
|
def One : NameList<["Jeffrey Sinclair"]>;
|