diff options
| author | David Greene <greened@obbligato.org> | 2009-05-14 22:38:31 +0000 |
|---|---|---|
| committer | David Greene <greened@obbligato.org> | 2009-05-14 22:38:31 +0000 |
| commit | d571b3c94b087e8560a14a427d623d70b1a9011c (patch) | |
| tree | 3d92bb86774ee7720f0541312ba042b8c6b3f9b8 /llvm/utils/TableGen/TGLexer.cpp | |
| parent | e917fff30f9bb8c24a656492449d72d8262c7d7f (diff) | |
| download | bcm5719-llvm-d571b3c94b087e8560a14a427d623d70b1a9011c.tar.gz bcm5719-llvm-d571b3c94b087e8560a14a427d623d70b1a9011c.zip | |
Graduate LLVM to the big leagues by embedding a LISP processor into TableGen.
Ok, not really, but do support some common LISP functions:
* car
* cdr
* null
llvm-svn: 71805
Diffstat (limited to 'llvm/utils/TableGen/TGLexer.cpp')
| -rw-r--r-- | llvm/utils/TableGen/TGLexer.cpp | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/llvm/utils/TableGen/TGLexer.cpp b/llvm/utils/TableGen/TGLexer.cpp index 6215a7267fb..faf1e75a684 100644 --- a/llvm/utils/TableGen/TGLexer.cpp +++ b/llvm/utils/TableGen/TGLexer.cpp @@ -450,6 +450,9 @@ tgtok::TokKind TGLexer::LexExclaim() { if (Len == 5 && !memcmp(Start, "subst", 5)) return tgtok::XSubst; if (Len == 7 && !memcmp(Start, "foreach", 7)) return tgtok::XForEach; if (Len == 4 && !memcmp(Start, "cast", 4)) return tgtok::XCast; + if (Len == 3 && !memcmp(Start, "car", 3)) return tgtok::XCar; + if (Len == 3 && !memcmp(Start, "cdr", 3)) return tgtok::XCdr; + if (Len == 4 && !memcmp(Start, "null", 4)) return tgtok::XNull; return ReturnError(Start-1, "Unknown operator"); } |
