- dumpIfSet opt_D_dump_stix "Final stix code" stix_final >>
-
- dumpIfSet opt_D_dump_asm "Asm code" ncg_output_d >>
- doOutput opt_ProduceS ncg_output_w >>
+#ifndef OMIT_NATIVE_CODEGEN
+ let
+ (stix_final, ncg_output_d) = nativeCodeGen flat_absC_ncg ncg_uniqs
+ ncg_output_w = (\ f -> printForUser f ncg_output_d)
+ in
+ dumpIfSet opt_D_dump_stix "Final stix code" stix_final >>
+ dumpIfSet opt_D_dump_asm "Asm code" ncg_output_d >>
+ doOutput opt_ProduceS ncg_output_w >>
+#else
+#ifdef ILX
+ doOutput opt_ProduceS (\f -> printForUser f (ilxGen tycons stg_binds)) >>
+#endif
+#endif