PreviousUpNext

15.4.313  src/lib/compiler/back/low/main/pwrpc32/backend-pwrpc32.pkg

## backend-pwrpc32.pkg

# Compiled by:
#     src/lib/compiler/mythryl-compiler-support-for-pwrpc32.lib

# This package gets passed as arg 'backend'
# to generic mythryl_compiler_g in
#     src/lib/compiler/toplevel/compiler/mythryl-compiler-for-pwrpc32.pkg
#
stipulate
    package csb =  code_segment_buffer;                                 # code_segment_buffer           is from   src/lib/compiler/execution/code-segments/code-segment-buffer.pkg
herein

    package backend_pwrpc32
        = 
        backend_tophalf_g (                                             # backend_tophalf_g             is from   src/lib/compiler/back/top/main/backend-tophalf-g.pkg
            #
            package blh =  backend_lowhalf_pwrpc32;                     # backend_lowhalf_pwrpc32       is from   src/lib/compiler/back/low/main/pwrpc32/backend-lowhalf-pwrpc32.pkg
            #                                                           # "blh" == "backend_lowhalf".
            fun harvest_code_segment  epthunk
                =
                {   backend_lowhalf_pwrpc32::squash_jumps_and_write_all_machine_code_and_data_bytes_into_code_segment_buffer ();
                    #
                    csb::harvest_code_segment_buffer (epthunk ());
                };
        );
end;

## COPYRIGHT (c) 1999 Bell Laboratories.
## Subsequent changes by Jeff Prothero Copyright (c) 2010-2013,
## released per terms of SMLNJ-COPYRIGHT.


Comments and suggestions to: bugs@mythryl.org

PreviousUpNext