From a0b96fe66fcd991b407c1d67ca842921e477a6fd Mon Sep 17 00:00:00 2001 From: Thomas Huth Date: Tue, 15 Nov 2016 14:02:52 +0100 Subject: [PATCH] Provide "write" function in the disk-label package As with the "read" function, the disk-label package should forward the "write" function to its parent. Reviewed-by: Nikunj A Dadhania Signed-off-by: Thomas Huth Signed-off-by: Alexey Kardashevskiy --- slof/fs/packages/disk-label.fs | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/slof/fs/packages/disk-label.fs b/slof/fs/packages/disk-label.fs index e034d64..8859fb0 100644 --- a/slof/fs/packages/disk-label.fs +++ b/slof/fs/packages/disk-label.fs @@ -126,6 +126,11 @@ CONSTANT /gpt-part-entry debug-disk-label? IF dup ." actual=" .d cr THEN ; +: write ( addr len -- actual ) + debug-disk-label? IF 2dup swap ." write-parent: addr=0x" u. ." len=" .d THEN + s" write" $call-parent + debug-disk-label? IF dup ." actual=" .d cr THEN +; \ read sector to array "block" : read-sector ( sector-number -- )