Attachment #278453 for bug #373297

View | Details | Raw Unified | Return to bug 373297
Collapse All | Expand All




  emit_all true fundecl.fun_body;
  List.iter emit_call_gc !call_gc_sites;
  emit_call_bound_errors ();
  begin match Config.system with
    "linux" | "gnu" ->
      `	.type	{emit_symbol fundecl.fun_name},@function\n`;
      `	.size	{emit_symbol fundecl.fun_name},.-{emit_symbol fundecl.fun_name}\n`
    | _ -> ()
  end;
  if !float_constants <> [] then begin
    if macosx
    then `	.literal8\n`
    else `	.section	.rodata.cst8,\"a\",@progbits\n`;
    List.iter emit_float_constant !float_constants
  end
  match Config.system with
    "linux" | "gnu" ->
      `	.type	{emit_symbol fundecl.fun_name},@function\n`;
      `	.size	{emit_symbol fundecl.fun_name},.-{emit_symbol fundecl.fun_name}\n`
  | _ -> ()

(* Emission of data *)





  emit_all true fundecl.fun_body;
  List.iter emit_call_gc !call_gc_sites;
  emit_call_bound_errors ();
  begin match Config.system with
  match Config.system with
    "linux_elf" | "bsd_elf" | "gnu" ->
      `	.type	{emit_symbol fundecl.fun_name},@function\n`;
      `	.size	{emit_symbol fundecl.fun_name},.-{emit_symbol fundecl.fun_name}\n`
  | _ -> () end;
  List.iter emit_float_constant !float_constants


(* Emission of data *)
- 

Return to bug 373297

Lines 679-695 let fundecl fundecl = Link Here

(-)a/asmcomp/amd64/emit.mlp (-6 / +7 lines)
679	emit_all true fundecl.fun_body;	679	emit_all true fundecl.fun_body;
680	List.iter emit_call_gc !call_gc_sites;	680	List.iter emit_call_gc !call_gc_sites;
681	emit_call_bound_errors ();	681	emit_call_bound_errors ();
		682	begin match Config.system with
		683	"linux" \| "gnu" ->
		684	` .type {emit_symbol fundecl.fun_name},@function\n`;
		685	` .size {emit_symbol fundecl.fun_name},.-{emit_symbol fundecl.fun_name}\n`
		686	\| _ -> ()
		687	end;
682	if !float_constants <> [] then begin	688	if !float_constants <> [] then begin
683	if macosx	689	if macosx
684	then ` .literal8\n`	690	then ` .literal8\n`
685	else ` .section .rodata.cst8,\"a\",@progbits\n`;	691	else ` .section .rodata.cst8,\"a\",@progbits\n`;
686	List.iter emit_float_constant !float_constants	692	List.iter emit_float_constant !float_constants
687	end;	693	end
688	match Config.system with
689	"linux" \| "gnu" ->
690	` .type {emit_symbol fundecl.fun_name},@function\n`;
691	` .size {emit_symbol fundecl.fun_name},.-{emit_symbol fundecl.fun_name}\n`
692	\| _ -> ()
693		694
694	(* Emission of data *)	695	(* Emission of data *)
695		696

Lines 905-916 let fundecl fundecl = Link Here

(-)a/asmcomp/i386/emit.mlp (-4 / +3 lines)
905	emit_all true fundecl.fun_body;	905	emit_all true fundecl.fun_body;
906	List.iter emit_call_gc !call_gc_sites;	906	List.iter emit_call_gc !call_gc_sites;
907	emit_call_bound_errors ();	907	emit_call_bound_errors ();
908	List.iter emit_float_constant !float_constants;	908	begin match Config.system with
909	match Config.system with
910	"linux_elf" \| "bsd_elf" \| "gnu" ->	909	"linux_elf" \| "bsd_elf" \| "gnu" ->
911	` .type {emit_symbol fundecl.fun_name},@function\n`;	910	` .type {emit_symbol fundecl.fun_name},@function\n`;
912	` .size {emit_symbol fundecl.fun_name},.-{emit_symbol fundecl.fun_name}\n`	911	` .size {emit_symbol fundecl.fun_name},.-{emit_symbol fundecl.fun_name}\n`
913	\| _ -> ()	912	\| _ -> () end;
		913	List.iter emit_float_constant !float_constants
914		914
915		915
916	(* Emission of data *)	916	(* Emission of data *)
917	-