diff options
| author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-04-16 12:49:28 +0200 |
|---|---|---|
| committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-04-16 12:49:28 +0200 |
| commit | 25dc0bb621f6ad3ee2d923ce9118c289ea547812 (patch) | |
| tree | 7cad2b00d443cbfff2cb8e05453bdd06e3701627 | |
| parent | 1150b687acf225e0f6063de45379c3d5fbc54524 (diff) | |
| download | compcert-25dc0bb621f6ad3ee2d923ce9118c289ea547812.tar.gz compcert-25dc0bb621f6ad3ee2d923ce9118c289ea547812.zip | |
Added missing dummy functions.
| -rw-r--r-- | arm/TargetPrinter.ml | 4 | ||||
| -rw-r--r-- | ia32/TargetPrinter.ml | 8 |
2 files changed, 12 insertions, 0 deletions
diff --git a/arm/TargetPrinter.ml b/arm/TargetPrinter.ml index b37683d3..a7e4e50c 100644 --- a/arm/TargetPrinter.ml +++ b/arm/TargetPrinter.ml @@ -152,6 +152,8 @@ module Target (Opt: PRINTER_OPTIONS) : TARGET = | Section_user(s, wr, ex) -> sprintf ".section \"%s\",\"a%s%s\",%%progbits" s (if wr then "w" else "") (if ex then "x" else "") + | Section_debug_info + | Section_debug_abbrev -> "" (* Dummy value *) let section oc sec = fprintf oc " %s\n" (name_of_section sec) @@ -1139,6 +1141,8 @@ module Target (Opt: PRINTER_OPTIONS) : TARGET = let label = print_label let new_label = new_label + + let print_file_loc _ _ = () (* Dummy function *) end let sel_target () = diff --git a/ia32/TargetPrinter.ml b/ia32/TargetPrinter.ml index 92be0ff3..58b7aa37 100644 --- a/ia32/TargetPrinter.ml +++ b/ia32/TargetPrinter.ml @@ -101,6 +101,8 @@ module Cygwin_System : SYSTEM = | Section_user(s, wr, ex) -> sprintf ".section \"%s\", \"%s\"\n" s (if ex then "xr" else if wr then "d" else "dr") + | Section_debug_info + | Section_debug_abbrev -> "" (* Dummy value *) let stack_alignment = 8 (* minimum is 4, 8 is better for perfs *) @@ -148,6 +150,8 @@ module ELF_System : SYSTEM = | Section_user(s, wr, ex) -> sprintf ".section \"%s\",\"a%s%s\",@progbits" s (if wr then "w" else "") (if ex then "x" else "") + | Section_debug_info + | Section_debug_abbrev -> "" (* Dummy value *) let stack_alignment = 8 (* minimum is 4, 8 is better for perfs *) @@ -198,6 +202,8 @@ module MacOS_System : SYSTEM = sprintf ".section \"%s\", %s, %s" (if wr then "__DATA" else "__TEXT") s (if ex then "regular, pure_instructions" else "regular") + | Section_debug_info + | Section_debug_abbrev -> "" (* Dummy value *) let stack_alignment = 16 (* mandatory *) @@ -995,6 +1001,8 @@ module Target(System: SYSTEM):TARGET = let label = label let new_label = new_label + + let print_file_loc _ _ = () (* Dummy function *) end |