arm-hyp haskell: fix wrong register name in new vcpuSave

This commit is contained in:
Miki Tanaka 2017-04-28 00:09:58 +10:00 committed by Alejandro Gomez-Londono
parent a36043fec1
commit ce4d7ba056
1 changed files with 1 additions and 1 deletions

View File

@ -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]