540def nativePhysicalGenerateNativeELFBytesDirect =
541 (lambda unrestricted program : (family NativePhysicalProgram) .
542 (let unrestricted container =
543 (compiler-native-encode
544 (family NativePhysicalPackedImage)
545 (constructor NativePhysicalPackedImage NativePhysicalPackedImageOf program))
546 in
547 (wrapMachineCodeSparseLargeReserving
548 (nativePhysicalPackedImageReserve container)
549 (bytes-append
550 (compiler-native-encode (family X86NativeAssembly) nativePhysicalNativeAssembly)
551 container))))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.