Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 1 | //===--- Builtins.cpp - Builtin function implementation -------------------===// |
| 2 | // |
| 3 | // The LLVM Compiler Infrastructure |
| 4 | // |
Chris Lattner | 0bc735f | 2007-12-29 19:59:25 +0000 | [diff] [blame] | 5 | // This file is distributed under the University of Illinois Open Source |
| 6 | // License. See LICENSE.TXT for details. |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 7 | // |
| 8 | //===----------------------------------------------------------------------===// |
| 9 | // |
| 10 | // This file implements various things for builtin functions. |
| 11 | // |
| 12 | //===----------------------------------------------------------------------===// |
| 13 | |
Chris Lattner | 6b15cdc | 2009-06-14 01:05:48 +0000 | [diff] [blame] | 14 | #include "clang/Basic/Builtins.h" |
Chris Lattner | c7229c3 | 2007-10-07 08:58:51 +0000 | [diff] [blame] | 15 | #include "clang/Basic/IdentifierTable.h" |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 16 | #include "clang/Basic/TargetInfo.h" |
| 17 | using namespace clang; |
| 18 | |
| 19 | static const Builtin::Info BuiltinInfo[] = { |
Douglas Gregor | b1152d8 | 2009-02-16 21:58:21 +0000 | [diff] [blame] | 20 | { "not a builtin function", 0, 0, 0, false }, |
| 21 | #define BUILTIN(ID, TYPE, ATTRS) { #ID, TYPE, ATTRS, 0, false }, |
| 22 | #define LIBBUILTIN(ID, TYPE, ATTRS, HEADER) { #ID, TYPE, ATTRS, HEADER, false }, |
Chris Lattner | 6b15cdc | 2009-06-14 01:05:48 +0000 | [diff] [blame] | 23 | #include "clang/Basic/Builtins.def" |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 24 | }; |
| 25 | |
| 26 | const Builtin::Info &Builtin::Context::GetRecord(unsigned ID) const { |
| 27 | if (ID < Builtin::FirstTSBuiltin) |
| 28 | return BuiltinInfo[ID]; |
| 29 | assert(ID - Builtin::FirstTSBuiltin < NumTSRecords && "Invalid builtin ID!"); |
| 30 | return TSRecords[ID - Builtin::FirstTSBuiltin]; |
| 31 | } |
| 32 | |
Chris Lattner | 030e8fe | 2009-06-16 16:18:48 +0000 | [diff] [blame] | 33 | Builtin::Context::Context(const TargetInfo &Target) { |
| 34 | // Get the target specific builtins from the target. |
Chris Lattner | ff1d4d9 | 2009-06-16 17:27:50 +0000 | [diff] [blame] | 35 | TSRecords = 0; |
| 36 | NumTSRecords = 0; |
Chris Lattner | 030e8fe | 2009-06-16 16:18:48 +0000 | [diff] [blame] | 37 | Target.getTargetBuiltins(TSRecords, NumTSRecords); |
| 38 | } |
| 39 | |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 40 | /// InitializeBuiltins - Mark the identifiers for all the builtins with their |
| 41 | /// appropriate builtin ID # and mark any non-portable builtin identifiers as |
| 42 | /// such. |
| 43 | void Builtin::Context::InitializeBuiltins(IdentifierTable &Table, |
Chris Lattner | 7644f07 | 2009-03-13 22:38:49 +0000 | [diff] [blame] | 44 | bool NoBuiltins) { |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 45 | // Step #1: mark all target-independent builtins with their ID's. |
| 46 | for (unsigned i = Builtin::NotBuiltin+1; i != Builtin::FirstTSBuiltin; ++i) |
Douglas Gregor | 3573c0c | 2009-02-14 20:49:29 +0000 | [diff] [blame] | 47 | if (!BuiltinInfo[i].Suppressed && |
Chris Lattner | 7644f07 | 2009-03-13 22:38:49 +0000 | [diff] [blame] | 48 | (!NoBuiltins || !strchr(BuiltinInfo[i].Attributes, 'f'))) |
Douglas Gregor | 3573c0c | 2009-02-14 20:49:29 +0000 | [diff] [blame] | 49 | Table.get(BuiltinInfo[i].Name).setBuiltinID(i); |
Chris Lattner | 1b63e4f | 2009-06-14 01:54:56 +0000 | [diff] [blame] | 50 | |
Douglas Gregor | 71dfdb9 | 2009-04-22 04:56:28 +0000 | [diff] [blame] | 51 | // Step #2: Register target-specific builtins. |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 52 | for (unsigned i = 0, e = NumTSRecords; i != e; ++i) |
Douglas Gregor | 3573c0c | 2009-02-14 20:49:29 +0000 | [diff] [blame] | 53 | if (!TSRecords[i].Suppressed && |
Chris Lattner | 7644f07 | 2009-03-13 22:38:49 +0000 | [diff] [blame] | 54 | (!NoBuiltins || |
Daniel Dunbar | e869990 | 2009-02-15 18:23:07 +0000 | [diff] [blame] | 55 | (TSRecords[i].Attributes && |
| 56 | !strchr(TSRecords[i].Attributes, 'f')))) |
Douglas Gregor | 3573c0c | 2009-02-14 20:49:29 +0000 | [diff] [blame] | 57 | Table.get(TSRecords[i].Name).setBuiltinID(i+Builtin::FirstTSBuiltin); |
Reid Spencer | 5f016e2 | 2007-07-11 17:01:13 +0000 | [diff] [blame] | 58 | } |
| 59 | |
Douglas Gregor | 2deaea3 | 2009-04-22 18:49:13 +0000 | [diff] [blame] | 60 | void |
| 61 | Builtin::Context::GetBuiltinNames(llvm::SmallVectorImpl<const char *> &Names, |
| 62 | bool NoBuiltins) { |
| 63 | // Final all target-independent names |
| 64 | for (unsigned i = Builtin::NotBuiltin+1; i != Builtin::FirstTSBuiltin; ++i) |
| 65 | if (!BuiltinInfo[i].Suppressed && |
| 66 | (!NoBuiltins || !strchr(BuiltinInfo[i].Attributes, 'f'))) |
| 67 | Names.push_back(BuiltinInfo[i].Name); |
| 68 | |
| 69 | // Find target-specific names. |
| 70 | for (unsigned i = 0, e = NumTSRecords; i != e; ++i) |
| 71 | if (!TSRecords[i].Suppressed && |
| 72 | (!NoBuiltins || |
| 73 | (TSRecords[i].Attributes && |
| 74 | !strchr(TSRecords[i].Attributes, 'f')))) |
| 75 | Names.push_back(TSRecords[i].Name); |
| 76 | } |
| 77 | |
Douglas Gregor | a316e7b | 2009-02-14 00:32:47 +0000 | [diff] [blame] | 78 | bool |
| 79 | Builtin::Context::isPrintfLike(unsigned ID, unsigned &FormatIdx, |
| 80 | bool &HasVAListArg) { |
Cedric Venet | ea684e6 | 2009-02-14 16:15:20 +0000 | [diff] [blame] | 81 | const char *Printf = strpbrk(GetRecord(ID).Attributes, "pP"); |
Douglas Gregor | a316e7b | 2009-02-14 00:32:47 +0000 | [diff] [blame] | 82 | if (!Printf) |
| 83 | return false; |
| 84 | |
| 85 | HasVAListArg = (*Printf == 'P'); |
| 86 | |
| 87 | ++Printf; |
| 88 | assert(*Printf == ':' && "p or P specifier must have be followed by a ':'"); |
| 89 | ++Printf; |
| 90 | |
Chris Lattner | 8a778d6 | 2009-02-19 06:41:13 +0000 | [diff] [blame] | 91 | assert(strchr(Printf, ':') && "printf specifier must end with a ':'"); |
Douglas Gregor | a316e7b | 2009-02-14 00:32:47 +0000 | [diff] [blame] | 92 | FormatIdx = strtol(Printf, 0, 10); |
| 93 | return true; |
| 94 | } |
| 95 | |