diff --git a/ghc/compiler/nativeGen/MachCode.lhs b/ghc/compiler/nativeGen/MachCode.lhs index a7ed64ec7e0afc049bbed27b803ab67c3694900d..0af2745cd8d2175b238cc21dbab1d23a8702104d 100644 --- a/ghc/compiler/nativeGen/MachCode.lhs +++ b/ghc/compiler/nativeGen/MachCode.lhs @@ -49,6 +49,8 @@ stmt2Instrs stmt = case stmt of StFunBegin lab -> returnInstr (IF_ARCH_alpha(FUNBEGIN lab,LABEL lab)) #else -- StFunBegin, special tracing code for x86-Linux only + -- requires you to supply + -- void native_trace ( char* str ) StFunBegin lab -> getUniqLabelNCG `thenUs` \ str_lbl -> returnUs (mkSeqInstrs [ LABEL lab,