patrick/WoofWare.PawPrint
1
0
Fork 0
mirror of https://github.com/Smaug123/WoofWare.PawPrint synced 2025-10-12 09:08:39 +00:00
Code Issues Packages Projects Releases Wiki Activity

Allocate statics when they're not allocated (#31)

Browse Source
This commit is contained in:
Patrick Stevens
2025-06-01 15:49:37 +01:00
committed by GitHub
parent 4c55bbe5e7
commit 3fb76e148f
1 changed files with 21 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
WoofWare.PawPrint/UnaryMetadataIlOp.fs
View File

@@ -351,6 +351,7 @@ module internal UnaryMetadataIlOp =
state
|> IlMachineState.advanceProgramCounter thread
|> Tuple.withRight WhatWeDid.Executed
| Stsfld ->
let fieldHandle =
match metadataToken with
@@ -542,7 +543,23 @@ module internal UnaryMetadataIlOp =
| NothingToDo state ->
if TypeDefn.isManaged field.Signature then
match state.Statics.TryGetValue ((field.DeclaringType, activeAssy.Name)) with
let typeId = field.DeclaringType, activeAssy.Name
let allocateStatic () =
// TODO: generics
let state, zero =
IlMachineState.cliTypeZeroOf
loggerFactory
activeAssy
field.Signature
ImmutableArray.Empty
state
state.SetStatic typeId field.Name zero
|> IlMachineState.pushToEvalStack (CliType.ObjectRef None) thread
|> Tuple.withRight WhatWeDid.Executed
match state.Statics.TryGetValue typeId with
| true, v ->
match v.TryGetValue field.Name with
| true, v ->
@@ -550,19 +567,9 @@ module internal UnaryMetadataIlOp =
|> IlMachineState.advanceProgramCounter thread
|> Tuple.withRight WhatWeDid.Executed
| false, _ ->
let allocation, state =
state |> (failwith "TODO: Ldsflda static field allocation unimplemented")
state
|> IlMachineState.pushToEvalStack (CliType.ObjectRef (Some allocation)) thread
|> Tuple.withRight WhatWeDid.Executed
| false, _ ->
let allocation, state =
state |> (failwith "TODO: Ldsflda static field allocation unimplemented")
state
|> IlMachineState.pushToEvalStack (CliType.ObjectRef (Some allocation)) thread
|> Tuple.withRight WhatWeDid.Executed
// Field has not yet been initialised.
allocateStatic ()
| false, _ -> allocateStatic ()
else
failwith "TODO: Ldsflda - push unmanaged pointer"
| Ldftn -> failwith "TODO: Ldftn unimplemented"