Fix debugging of code using Anonymous records (#6608)

* fix debugging

* add testing

* add testing

Author: dsyme

src/fsharp/tast.fs

@@ -4060,7 +4060,7 @@ and [<RequireQualifiedAccess>] AnonRecdTypeInfo =
 
     /// Get the ILTypeRef for the generated type implied by the anonymous type
     member x.ILTypeRef = 
-        let ilTypeName = sprintf "<>f__AnonymousType%s%u`%d'" (match x.TupInfo with TupInfo.Const b -> if b then "1000" else "") (uint32 x.Stamp) x.SortedIds.Length
+        let ilTypeName = sprintf "<>f__AnonymousType%s%u`%d" (match x.TupInfo with TupInfo.Const b -> if b then "1000" else "") (uint32 x.Stamp) x.SortedIds.Length
         mkILTyRef(x.Assembly.ILScopeRef, ilTypeName)
 
     static member NewUnlinked() : AnonRecdTypeInfo = 

tests/fsharpqa/Source/CodeGen/EmittedIL/Misc/AnonRecd.fs

@@ -0,0 +1,10 @@
+
+
+let main argv =
+    let mutable x = 1
+    
+    let a = {| A = 1; B = 1 |}
+
+    x <- x + 1
+
+    0