arm-hyp haskell: fix wrong register name in new vcpuSave
This commit is contained in:
parent
a36043fec1
commit
ce4d7ba056
|
@ -404,7 +404,7 @@ For initialisation, see makeVCPUObject.
|
|||
> vgicUpdate vcpuPtr (\vgic -> vgic { vgicVMCR = vmcr })
|
||||
>
|
||||
> apr <- doMachineOp get_gic_vcpu_ctrl_apr
|
||||
> vgicUpdate vcpuPtr (\vgic -> vgic { vgicAPR = vmcr })
|
||||
> vgicUpdate vcpuPtr (\vgic -> vgic { vgicAPR = apr })
|
||||
>
|
||||
> numListRegs <- gets (armKSGICVCPUNumListRegs . ksArchState)
|
||||
> let gicIndices = init [0..numListRegs]
|
||||
|
|
Loading…
Reference in New Issue