mirror of
https://github.com/Stichting-MINIX-Research-Foundation/pkgsrc-ng.git
synced 2025-09-11 13:30:02 -04:00
37 lines
1.1 KiB
Plaintext
37 lines
1.1 KiB
Plaintext
$NetBSD: patch-asmcomp_power_emit.mlp,v 1.1 2012/10/08 15:05:32 jaapb Exp $
|
|
|
|
Add profiling to power architecture
|
|
--- asmcomp/power/emit.mlp.orig 2012-09-11 13:17:13.000000000 +0000
|
|
+++ asmcomp/power/emit.mlp
|
|
@@ -828,6 +828,30 @@ let rec emit_all i =
|
|
emit_instr i None;
|
|
emit_all i.next
|
|
|
|
+(* Emission of the profiling prelude *)
|
|
+
|
|
+let emit_profile () =
|
|
+ match Config.system with
|
|
+ "bsd" ->
|
|
+ ` stwu 1, -32(1)\n`;
|
|
+ ` mflr 0\n`;
|
|
+ ` stw 0, 4(1)\n`;
|
|
+ ` stw 2, 8(1)\n`;
|
|
+ ` stw 3, 12(1)\n`;
|
|
+ ` stw 4, 16(1)\n`;
|
|
+ ` stw 5, 20(1)\n`;
|
|
+ ` stw 6, 24(1)\n`;
|
|
+ ` stw 7, 28(1)\n`;
|
|
+ ` bl {emit_symbol "_mcount"}\n`;
|
|
+ ` lwz 2, 8(1)\n`;
|
|
+ ` lwz 3, 12(1)\n`;
|
|
+ ` lwz 4, 16(1)\n`;
|
|
+ ` lwz 5, 20(1)\n`;
|
|
+ ` lwz 6, 24(1)\n`;
|
|
+ ` lwz 7, 28(1)\n`;
|
|
+ ` addic 1, 1, 32\n`;
|
|
+ | _ -> () (*unsupported yet*)
|
|
+
|
|
(* Emission of a function declaration *)
|
|
|
|
let fundecl fundecl =
|