Merge pull request #2593 from ludovic-henry/coop-fix-native-to-managed

[mono.git] / mcs / tools / pdb2mdb / BitAccess.cs

diff --git a/mcs/tools/pdb2mdb/BitAccess.cs b/mcs/tools/pdb2mdb/BitAccess.cs
index 852f797939ccfff99dcdc91b86c68021235c568f..479f0c125b578ac2df1faafbf280ef0292559978 100644 (file)
--- a/mcs/tools/pdb2mdb/BitAccess.cs
+++ b/mcs/tools/pdb2mdb/BitAccess.cs
@@ -158,8 +158,14 @@ namespace Microsoft.Cci.Pdb {
 
     internal decimal ReadDecimal() {
       int[] bits = new int[4];
-      this.ReadInt32(bits);
-      return new decimal(bits);
+      this.ReadInt32 (bits);
+      try {
+        bool sign = (bits[3] & 0x80000000) != 0;
+        byte scale = (byte)((bits[3] >> 16) & 0x7F);
+        return new decimal (bits[0], bits[1], bits[2], sign, scale);
+      } catch (ArgumentException) {
+        return new decimal ();
+      }
     }
 
     internal void ReadBString(out string value) {