mirror of
https://github.com/simplex-chat/simplex-chat.git
synced 2026-11-11 20:27:39 +00:00
Moritz Angermann
87ab2143cc
Run the existing failure-only native Linux trace through pinned GDB, following the compiler shell wrapper so package DB and -B flags remain intact. Fetch the debugger only from caches within the existing overall bound and preserve diagnostic exit failures. Capture bounded stacks, registers, PC disassembly and mappings without environment or core dumps. Validation: 41 generated-wrapper forwarding/status cases and three extracted workflow-shell cases pass; debugger cache-only fetch succeeds. The local Rosetta Linux VM cannot ptrace the child, and the bounded native ARM control stopped at metadata, so actual native fault capture remains a CI validation step.
39 lines
1.9 KiB
Nix
39 lines
1.9 KiB
Nix
# Compile-phase diagnostics for an existing, already-planned native component.
|
|
# This produces a different derivation; it does not change source, plan, compiler,
|
|
# dependency units or the original GHC arguments. Query output stays unchanged.
|
|
{ original, debugger ? null }:
|
|
let
|
|
needle = " printf '#!/bin/sh\\nexec %s \"$@\"\\n' \"$g\" > \"$wrapBin/$gName\"";
|
|
# The selected GHC is itself a shell wrapper. Start Bash under GDB and
|
|
# follow its exec, retaining the wrapper's package DB and -B arguments.
|
|
compileExec = if debugger == null
|
|
then " exec \"%s\" \"$@\" -v2 -ddump-timings\\n"
|
|
else " exec \"${debugger}/bin/gdb\" --nx --quiet --batch -x \"${./native-ghc.gdb}\" --args \"%s\" \"%s\" \"$@\" -v2 -ddump-timings\\n";
|
|
compileArguments = if debugger == null then "\"$g\"" else "\"$BASH\" \"$g\"";
|
|
replacement = " printf '#!/bin/sh\\n"
|
|
+ "ghcTraceCompile=\\n"
|
|
+ "for arg do\\n"
|
|
+ " case \"$arg\" in\\n"
|
|
+ " --numeric-version|--version|-V|--info|--print-*|--show-*|--supported-*|--abi-hash|-M)\\n"
|
|
+ " exec \"%s\" \"$@\"\\n"
|
|
+ " ;;\\n"
|
|
+ " @*|--make|-c) ghcTraceCompile=1 ;;\\n"
|
|
+ " esac\\n"
|
|
+ "done\\n"
|
|
+ "if [ -n \"$ghcTraceCompile\" ]; then\\n"
|
|
+ compileExec
|
|
+ "fi\\n"
|
|
+ "exec \"%s\" \"$@\"\\n"
|
|
+ "' \"$g\" ${compileArguments} \"$g\" > \"$wrapBin/$gName\"";
|
|
occurrences = phase: builtins.div
|
|
(builtins.stringLength phase - builtins.stringLength
|
|
(builtins.replaceStrings [ needle ] [ "" ] phase))
|
|
(builtins.stringLength needle);
|
|
in original.overrideAttrs (old:
|
|
# Fail visibly if the pinned v2 builder changes its wrapper-generation seam.
|
|
assert occurrences old.buildPhase == 1; {
|
|
buildPhase = builtins.replaceStrings [ needle ] [ replacement ] old.buildPhase;
|
|
} // (if debugger == null then {} else {
|
|
nativeBuildInputs = (old.nativeBuildInputs or []) ++ [ debugger ];
|
|
}))
|