define-renaming ( NAME DEF-QUOT USE-QUOT TEMP-QUOT -- )

Vocabulary

compiler.cfg.renaming.functor

Inputs

NAME	an object
DEF-QUOT	an object
USE-QUOT	an object
TEMP-QUOT	an object

Outputs

None

Definition

USING: accessors compiler.cfg.instructions functors.backend
functors.private generic generic.parser io io.streams.string
kernel namespaces parser present sequences ;

IN: compiler.cfg.renaming.functor

:: define-renaming ( NAME DEF-QUOT USE-QUOT TEMP-QUOT -- )
    [ NAME present write "-insn-defs" write ] with-string-writer
    create-word-in :> rename-insn-defs
    [ NAME present write "-insn-uses" write ] with-string-writer
    create-word-in :> rename-insn-uses
    [ NAME present write "-insn-temps" write ]
    with-string-writer create-word-in :> rename-insn-temps
    rename-insn-defs ( insn -- ) define-simple-generic*
    rename-insn-uses ( insn -- ) define-simple-generic*
    rename-insn-temps ( insn -- ) define-simple-generic*
    \ insn rename-insn-defs create-method-in dup \ method set
    T{ fake-quotation { seq { drop } } } fake-quotations> first
    define* \ insn rename-insn-uses create-method-in
    dup \ method set
    T{ fake-quotation { seq { drop } } } fake-quotations> first
    define* \ insn rename-insn-temps create-method-in
    dup \ method set
    T{ fake-quotation { seq { drop } } } fake-quotations> first
    define* \ ##parallel-copy rename-insn-defs create-method-in
    dup \ method set T{ fake-quotation
        { seq
            {
                T{ fake-quotation { seq ~array~ } }
                change-values
                drop
            }
        }
    } fake-quotations> first define*
    \ ##phi rename-insn-defs create-method-in dup \ method set
    T{ fake-quotation { seq { DEF-QUOT change-dst drop } } }
    fake-quotations> first define*
    \ alien-call-insn rename-insn-defs create-method-in
    dup \ method set T{ fake-quotation
        { seq
            {
                T{ fake-quotation { seq ~array~ } }
                change-reg-outputs
                drop
            }
        }
    } fake-quotations> first define*
    \ ##callback-inputs rename-insn-defs create-method-in
    dup \ method set T{ fake-quotation
        { seq
            {
                T{ fake-quotation { seq ~array~ } }
                change-reg-outputs
                T{ fake-quotation { seq ~array~ } }
                change-stack-outputs
                drop
            }
        }
    } fake-quotations> first define*
    \ ##parallel-copy rename-insn-uses create-method-in
    dup \ method set T{ fake-quotation
        { seq
            {
                T{ fake-quotation { seq ~array~ } }
                change-values
                drop
            }
        }
    } fake-quotations> ~64 more~ ;