optimizing-compiler

Vocabulary

compiler

Word description

Singleton class implementing recompile to call the optimizing compiler.

Notes

This is an internal word, and user code should call compile instead.

Definition

IN: compiler

SINGLETON: optimizing-compiler

Methods

USING: compiler compiler.crossref compiler.units sequences ;

M: optimizing-compiler process-forgotten-words
    [ delete-compiled-xref ] each ;


USING: assocs combinators compiler compiler.units
compiler.utilities kernel namespaces sequences ;

M: optimizing-compiler recompile
    H{ } clone compiled [
        [ compile? ] filter
        [ compile-word yield-hook get ( -- ) call-effect ] each
        compiled get >alist
    ] with-variable "--- compile done" compiler-message ;


USING: assocs compiler compiler.crossref compiler.units
definitions kernel make namespaces sets ;

M: optimizing-compiler to-recompile
    [
        changed-effects get new-words get diff
        outdated-effect-usages %
        changed-definitions get new-words get diff
        outdated-definition-usages %
        maybe-changed get new-words get diff
        outdated-conditional-usages %
        changed-definitions get filter-word-defs dup zip ,
    ] { } make assoc-union-all keys ;


USING: assocs classes classes.algebra compiler compiler.crossref
compiler.units kernel sequences ;

M: optimizing-compiler update-call-sites
    generic-call-sites-of keys swap [
        [ [ classoid? ] both? ] 2check
        [ classes-intersect? ] [ 2drop f ] if
    ] curry filter ;