lang/ocaml/patches/patch-ac

   1 $NetBSD$
   2
   3 --- asmcomp/power/emit.mlp.orig 2007-05-10 18:41:12.000000000 +0200
   4 +++ asmcomp/power/emit.mlp
   5 @@ -825,6 +825,30 @@ let rec emit_all i =
   6        emit_instr i None;
   7        emit_all i.next
   8
   9 +(* Emission of the profiling prelude *)
  10 +
  11 +let emit_profile () =
  12 +  match Config.system with
  13 +    "bsd" ->
  14 +      `        stwu 1, -32(1)\n`;
  15 +      `        mflr 0\n`;
  16 +      `        stw 0, 4(1)\n`;
  17 +      `        stw 2, 8(1)\n`;
  18 +      `        stw 3, 12(1)\n`;
  19 +      `        stw 4, 16(1)\n`;
  20 +      `        stw 5, 20(1)\n`;
  21 +      `        stw 6, 24(1)\n`;
  22 +      `        stw 7, 28(1)\n`;
  23 +      `        bl {emit_symbol "_mcount"}\n`;
  24 +      `        lwz 2, 8(1)\n`;
  25 +      `        lwz 3, 12(1)\n`;
  26 +      `        lwz 4, 16(1)\n`;
  27 +      `        lwz 5, 20(1)\n`;
  28 +      `        lwz 6, 24(1)\n`;
  29 +      `        lwz 7, 28(1)\n`;
  30 +      `        addic 1, 1, 32\n`;
  31 +  | _ -> () (*unsupported yet*)
  32 +
  33  (* Emission of a function declaration *)
  34
  35  let fundecl fundecl =