Thomas Huth [off-list ref] writes:

On Thu, 11 Jun 2015 15:48:49 +0530
Nikunj A Dadhania [off-list ref] wrote:

quoted

+   block-size * to seek-pos
+   block gpt>part-entry-size l@-le to gpt-part-size
+   block gpt>num-part-entry l@-le dup 0= IF FALSE EXIT THEN
+   1+ 1 ?DO
+      seek-pos 0 seek drop
+      block gpt-part-size read drop

Can you be sure that gpt-part-size is only smaller than 4096 bytes
here? 

So the size is usually 128, so this should be fine.

https://en.wikipedia.org/wiki/GUID_Partition_Table

Section: GPT header format

"84 (0x54)	4 bytes	Size of a single partition entry (usually 128)"

If not, you might overflow the block array, don't you?

Regards
Nikunj