From 3b113f74eab4b947873570feb5dc99b62b2f5e1d Mon Sep 17 00:00:00 2001
From: Matthias Dittrich <matthi.d@googlemail.com>
Date: Thu, 2 Oct 2014 03:32:25 +0200
Subject: [PATCH] handle possible exceptions while processing members.

---
 src/FSharp.MetadataFormat/Main.fs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/FSharp.MetadataFormat/Main.fs b/src/FSharp.MetadataFormat/Main.fs
index 88be2f7bd..a84c7b924 100644
--- a/src/FSharp.MetadataFormat/Main.fs
+++ b/src/FSharp.MetadataFormat/Main.fs
@@ -565,6 +565,7 @@ module Reader =
 
   let getXmlDocSigForMember (memb:FSharpMemberFunctionOrValue) =
     let memberName = 
+      try
         let name = memb.CompiledName.Replace(".ctor", "#ctor")
         let typeGenericParameters =
             memb.EnclosingEntity.GenericParameters |> Seq.mapi (fun num par -> par.Name, sprintf "`%d" num)
@@ -599,6 +600,9 @@ module Reader =
                 "(" + System.String.Join(",", paramTypeList) + ")"
             else ""
         sprintf "%s%s%s" name typeargs paramList
+      with exn ->
+        Log.logf  "Error while building member-name for %s because: %s" memb.FullName exn.Message
+        memb.CompiledName
     match (memb.XmlDocSig, memb.EnclosingEntity.TryFullName) with
     | "",  None    -> ""
     | "", Some(n)  -> sprintf "%s:%s.%s" (getMemberXmlDocsSigPrefix memb)  n memberName