[llvm-commits] [dragonegg] r129596 - /dragonegg/trunk/src/Debug.cpp

[Duncan Sands]

Author: baldrick
Date: Fri Apr 15 15:00:28 2011
New Revision: 129596

URL: http://llvm.org/viewvc/llvm-project?rev=129596&view=rev
Log:
Fix a crash producing debug info in the presence of a "Pascal style string",
actually produced by the Fortran front-end.  As of this commit, I don't know
of any Fortran dragonegg bugs (assuming you don't use a funky option like
-fplugin-arg-dragonegg-enable-gcc-opzns that is).

Modified:
    dragonegg/trunk/src/Debug.cpp

Modified: dragonegg/trunk/src/Debug.cpp
URL: http://llvm.org/viewvc/llvm-project/dragonegg/trunk/src/Debug.cpp?rev=129596&r1=129595&r2=129596&view=diff
==============================================================================
--- dragonegg/trunk/src/Debug.cpp (original)
+++ dragonegg/trunk/src/Debug.cpp Fri Apr 15 15:00:28 2011
@@ -385,7 +385,7 @@
   DIType Ty = getOrCreateType(type);
   if (!Ty && TREE_CODE(type) == OFFSET_TYPE)
     Ty = createPointerType(TREE_TYPE(type));
-  if (DECL_ARTIFICIAL (decl))
+  if (Ty && DECL_ARTIFICIAL (decl))
       Ty = DebugFactory.CreateArtificialType(Ty);
   // If type info is not available then do not emit debug info for this var.
   if (!Ty)