[llvm-commits] [dragonegg] r129596 - /dragonegg/trunk/src/Debug.cpp
Duncan Sands
baldrick at free.fr
Fri Apr 15 13:00:28 PDT 2011
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)
More information about the llvm-commits
mailing list