define __PASCAL_STRINGS__ whenever -fpascal-strings is enabled.

llvm-svn: 56824
This commit is contained in:
Chris Lattner 2008-09-30 00:48:48 +00:00
parent 5033136825
commit 7ed3209332
2 changed files with 5 additions and 4 deletions

View File

@ -42,10 +42,7 @@ static void getSolarisDefines(std::vector<char> &Defs) {
static void getDarwinDefines(std::vector<char> &Defs) {
Define(Defs, "__APPLE__");
Define(Defs, "__MACH__");
Define(Defs, "__ENVIRONMENT_MAC_OS_X_VERSION_MIN_REQUIRED__=1050");
if (0) // darwin_pascal_strings
Define(Defs, "__PASCAL_STRINGS__");
Define(Defs, "__ENVIRONMENT_MAC_OS_X_VERSION_MIN_REQUIRED__", "1050");
}
static void getDragonFlyDefines(std::vector<char> &Defs) {

View File

@ -414,6 +414,10 @@ static void InitializePredefinedMacros(Preprocessor &PP,
if (PP.getLangOptions().ObjC2)
DefineBuiltinMacro(Buf, "OBJC_NEW_PROPERTIES");
if (PP.getLangOptions().PascalStrings)
DefineBuiltinMacro(Buf, "__PASCAL_STRINGS__");
// Add __builtin_va_list typedef.
{
const char *VAList = PP.getTargetInfo().getVAListDeclaration();