Remove weird duplicate ConcreteType thing (#93)

This commit is contained in:
Patrick Stevens
2025-07-04 19:43:45 +01:00
committed by GitHub
parent de1eefb436
commit 56d1cf63d6
6 changed files with 43 additions and 100 deletions

View File

@@ -9,6 +9,12 @@ type ConcreteTypeHandle =
| Byref of ConcreteTypeHandle
| Pointer of ConcreteTypeHandle
override this.ToString () =
match this with
| ConcreteTypeHandle.Byref b -> "&" + b.ToString ()
| ConcreteTypeHandle.Concrete i -> i.ToString ()
| ConcreteTypeHandle.Pointer i -> "*" + i.ToString ()
type AllConcreteTypes =
{
Mapping : Map<int, ConcreteType<ConcreteTypeHandle>>