Add name to concrete type (#43)

This commit is contained in:
Patrick Stevens
2025-06-15 13:34:18 +01:00
committed by GitHub
parent cd293bfa22
commit 89e6e1b4e8
4 changed files with 23 additions and 4 deletions

View File

@@ -620,7 +620,7 @@ module IlMachineState =
)
// TypeDef won't have any generics; it would be a TypeSpec if it did
let ty = ConcreteType.make ty.Assembly typeDefinitionHandle []
let ty = ConcreteType.make ty.Assembly ty.Name typeDefinitionHandle []
match loadClass loggerFactory corelib ty currentThread state with
| FirstLoadThis state -> Error state
@@ -644,7 +644,7 @@ module IlMachineState =
targetType.Name
)
let ty = ConcreteType.make assy.Name targetType.TypeDefHandle []
let ty = ConcreteType.make assy.Name targetType.Name targetType.TypeDefHandle []
match loadClass loggerFactory corelib ty currentThread state with
| FirstLoadThis state -> Error state