build-image ( -- image )

Vocabulary

bootstrap.image.private

Inputs

None

Outputs

image

an object

Definition

USING: assocs hashtables io namespaces prettyprint sequences
vectors words ;

IN: bootstrap.image.private

: build-image ( -- image )
    600000 <vector> bootstrapping-image set
    60000 <hashtable> objects set
    emit-image-header "Building generic words..." print
    flush build-generics "Serializing words..." print
    flush emit-words "Serializing locals..." print
    flush emit-locals "Serializing JIT data..." print
    flush emit-jit-data "Serializing global namespace..." print
    flush emit-global "Serializing singletons..." print
    flush emit-singletons "Serializing special object table..."
    print
    flush emit-special-objects "Performing word fixups..." print
    flush fixup-words "Performing header fixups..." print
    flush fixup-header "Image length: " write
    bootstrapping-image get length . "Object cache size: " write
    objects get assoc-size . \ last-word global delete-at
    bootstrapping-image get ;