seekReadCustomAttributeRow as a struct 3-tuple

dotnet · May 17, 2020 · da6df7f · da6df7f
1 parent 08b3405
commit da6df7f
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/absil/ilread.fs b/src/absil/ilread.fs
@@ -1064,7 +1064,7 @@ let seekReadCustomAttributeRow (ctxt: ILMetadataReader) idx =
     let parentIdx = seekReadHasCustomAttributeIdx ctxt mdv &addr
     let typeIdx = seekReadCustomAttributeTypeIdx ctxt mdv &addr
     let valIdx = seekReadBlobIdx ctxt mdv &addr
-    (parentIdx, typeIdx, valIdx)  
+    struct (parentIdx, typeIdx, valIdx)  
 
 /// Read Table FieldMarshal.
 let seekReadFieldMarshalRow (ctxt: ILMetadataReader) mdv idx = 
@@ -2349,10 +2349,10 @@ and customAttrsReader ctxtH tag: ILAttributesStored =
       (fun idx -> 
           let (ctxt: ILMetadataReader) = getHole ctxtH
           seekReadIndexedRows (ctxt.getNumRows TableNames.CustomAttribute, 
-                                  seekReadCustomAttributeRow ctxt, (fun (a, _, _) -> a), 
+                                  seekReadCustomAttributeRow ctxt, (fun struct (a, _, _) -> a), 
                                   hcaCompare (TaggedIndex(tag,idx)), 
                                   isSorted ctxt TableNames.CustomAttribute, 
-                                  (fun (_, b, c) -> seekReadCustomAttr ctxt (b, c)))
+                                  (fun struct (_, b, c) -> seekReadCustomAttr ctxt (b, c)))
           |> List.toArray)
 
 and seekReadCustomAttr ctxt (TaggedIndex(cat, idx), b) =