## 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 package pp = standard_prettyprinter; # standard_prettyprinter is from src/lib/prettyprint/big/src/standard-prettyprinter.pkg package cv = compiler_verbosity; # compiler_verbosity is from src/lib/compiler/front/basics/main/compiler-verbosity.pkg #
Npp = pp::Npp;
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 (npp:Npp, cv: cv::Compiler_Verbosity) epthunk
=
{ backend_lowhalf_sparc32::squash_jumps_and_write_all_machine_code_and_data_bytes_into_code_segment_buffer (npp,cv);
#
csb::harvest_code_segment_buffer (epthunk ());
};
);
end;
## COPYRIGHT (c) 1998 AT&T Bell Laboratories.
## Subsequent changes by Jeff Prothero Copyright (c) 2010-2015,
## released per terms of SMLNJ-COPYRIGHT.