25def nativeMemoryCopyPayload =
26 (lambda unrestricted offset : Nat .
27 (lambda unrestricted bytes : Bytes .
28 (lambda unrestricted tail : (family NativePhysicalCommands) .
29 (nat-eliminate
30 (lambda unrestricted count : Nat . (family NativePhysicalCommands))
31 tail
32 (lambda unrestricted previous : Nat .
33 (lambda unrestricted ignored : (family NativePhysicalCommands) .
34 (nativeLaunchRecipeCommand
35 (constructor
36 NativePhysicalOperation
37 NativePhysicalCopyPayloadToState
38 (modelWord64FromNaturalTruncated offset)
39 (modelWord64FromNaturalTruncated (bytes-length bytes))
40 bytes)
41 b"memory-copy"
42 tail)))
43 (naturalNonzero (bytes-length bytes))))))The compiler supplied declaration spans and resolved links from this source snapshot. This page does not assert that this file belongs to a checked closure.