commit 7ed3209332455d85e38c95ddc1cad28a6a0dbd45
author Chris Lattner <sabre@nondot.org> Tue Sep 30 00:48:48 2008 +0000
committer Chris Lattner <sabre@nondot.org> Tue Sep 30 00:48:48 2008 +0000
tree efe1a37ddb84cef93022bf771840b888581bfa6f
parent 503313682553c6d8a909e089698ca38f1f4397fa

define __PASCAL_STRINGS__ whenever -fpascal-strings is enabled.

llvm-svn: 56824

clang/lib/Lex/Preprocessor.cpp

diff --git a/clang/lib/Lex/Preprocessor.cpp b/clang/lib/Lex/Preprocessor.cpp
index 3f477c2..458eca6 100644
--- a/clang/lib/Lex/Preprocessor.cpp
+++ b/clang/lib/Lex/Preprocessor.cpp
@@ -414,6 +414,10 @@
   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();