aboutsummaryrefslogtreecommitdiff
path: root/board-qemu/slof/vtpm-sml.fs
diff options
context:
space:
mode:
Diffstat (limited to 'board-qemu/slof/vtpm-sml.fs')
-rw-r--r--board-qemu/slof/vtpm-sml.fs8
1 files changed, 8 insertions, 0 deletions
diff --git a/board-qemu/slof/vtpm-sml.fs b/board-qemu/slof/vtpm-sml.fs
index fd888fb..865db06 100644
--- a/board-qemu/slof/vtpm-sml.fs
+++ b/board-qemu/slof/vtpm-sml.fs
@@ -42,6 +42,14 @@ s" ibm,vtpm" 2dup device-name device-type
THEN
;
+: measure-gpt ( )
+ 0 7 separator-event
+ tpm-measure-gpt
+ ?dup IF
+ ." VTPM: Error code from tpm-measure-gpt: " . cr
+ THEN
+;
+
: leave-firmware ( -- )
tpm-leave-firmware ( errcode )
?dup IF