From 32f24ddfd9549010dd345733c6f46f67196cacf6 Mon Sep 17 00:00:00 2001 From: Johan Tibell Date: Wed, 27 Apr 2011 14:43:51 +0200 Subject: [PATCH] Output ELF .size directives for functions This allows tools like Linux's perf events to display symbol names for CMM primops. --- compiler/nativeGen/X86/Ppr.hs | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/compiler/nativeGen/X86/Ppr.hs b/compiler/nativeGen/X86/Ppr.hs index 0f0f9d2..4c3454d 100644 --- a/compiler/nativeGen/X86/Ppr.hs +++ b/compiler/nativeGen/X86/Ppr.hs @@ -87,7 +87,17 @@ pprNatCmmTop (CmmProc info lbl (ListGraph blocks)) = <+> pprCLabel_asm (mkDeadStripPreventer $ entryLblToInfoLbl lbl) else empty #endif + $$ pprSizeDecl (if null info then lbl else entryLblToInfoLbl lbl) +-- | Output the ELF .size directive. +pprSizeDecl :: CLabel -> Doc +#if elf_OBJ_FORMAT +pprSizeDecl lbl = + ptext (sLit "\t.size") <+> pprCLabel_asm lbl + <> ptext (sLit ", .-") <> pprCLabel_asm lbl +#else +pprSizeDecl _ = empty +#endif pprBasicBlock :: NatBasicBlock Instr -> Doc pprBasicBlock (BasicBlock blockid instrs) = -- 1.7.10.4