Add log header to assembly output

This adds a header before the assembly output from `np-generate-code`, which aids in processing this output with further tooling.
cisco · Nov 29, 2023 · ef32340 · ef32340
1 parent 8e2c1bb
commit ef32340
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/s/cpnanopass.ss b/s/cpnanopass.ss
@@ -8344,6 +8344,7 @@
              (let ([ptrace* (map CaseLambdaExpr le* func*)])
                (for-each resolve-funcrel! funcrel*)
                (when aop
+                 (fprintf aop "output of np-generate-code (assembly):\n")
                  (for-each (lambda (ptrace) (ptrace aop)) ptrace*)
                  (flush-output-port aop))
                (local-label-func l)))])