15.4.317  src/lib/compiler/back/low/main/sparc32/backend-sparc32.pkg

## backend-sparc32.pkg

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

# This package gets passed as arg 'backend'
# to generic mythryl_compiler_g in
#     src/lib/compiler/toplevel/compiler/mythryl-compiler-for-sparc32.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_sparc32
        = 
        backend_tophalf_g (                                     # backend_tophalf_g             is from   src/lib/compiler/back/top/main/backend-tophalf-g.pkg
            #
            package blh = backend_lowhalf_sparc32;              # backend_lowhalf_sparc32       is from   src/lib/compiler/back/low/main/sparc32/backend-lowhalf-sparc32.pkg
            #                                                   # "blh" == "backend_lowhalf".
            fun harvest_code_segment  epthunk
                =
                {   backend_lowhalf_sparc32::squash_jumps_and_write_all_machine_code_and_data_bytes_into_code_segment_buffer ();
                    #
                    csb::harvest_code_segment_buffer (epthunk ());
                };
        );
end;



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