diff options
| author | Xavier Leroy <xavierleroy@users.noreply.github.com> | 2018-02-19 13:59:37 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2018-02-19 13:59:37 +0100 |
| commit | 44942a6a6889e79e749e83b6efe9ba7464dde1e7 (patch) | |
| tree | 8895723b3b725cd7d06b6d7df70df1de1c28b580 /driver/Configuration.ml | |
| parent | 95395781f2cc8ae8cd4e9a167795f594e3b6dc23 (diff) | |
| parent | 4472f312e3d5ef93d1b89b326727a10d34d918ce (diff) | |
| download | compcert-44942a6a6889e79e749e83b6efe9ba7464dde1e7.tar.gz compcert-44942a6a6889e79e749e83b6efe9ba7464dde1e7.zip | |
Merge pull request #60 from AbsIntPrivate/struct-abi-internal
Move the struct-return / struct-passing platform aspects from compcert.ini to cparser/Machine.ml
Diffstat (limited to 'driver/Configuration.ml')
| -rw-r--r-- | driver/Configuration.ml | 28 |
1 files changed, 0 insertions, 28 deletions
diff --git a/driver/Configuration.ml b/driver/Configuration.ml index 48f8abde..972fd295 100644 --- a/driver/Configuration.ml +++ b/driver/Configuration.ml @@ -143,34 +143,6 @@ let stdlib_path = "" let asm_supports_cfi = get_bool_config "asm_supports_cfi" - -type struct_passing_style = - | SP_ref_callee (* by reference, callee takes copy *) - | SP_ref_caller (* by reference, caller takes copy *) - | SP_split_args (* by value, as a sequence of ints *) - -type struct_return_style = - | SR_int1248 (* return by content if size is 1, 2, 4 or 8 bytes *) - | SR_int1to4 (* return by content if size is <= 4 *) - | SR_int1to8 (* return by content if size is <= 8 *) - | SR_ref (* always return by assignment to a reference - given as extra argument *) - -let struct_passing_style = - match get_config_string "struct_passing_style" with - | "ref-callee" -> SP_ref_callee - | "ref-caller" -> SP_ref_caller - | "ints" -> SP_split_args - | v -> bad_config "struct_passing_style" [v] - -let struct_return_style = - match get_config_string "struct_return_style" with - | "int1248" -> SR_int1248 - | "int1-4" -> SR_int1to4 - | "int1-8" -> SR_int1to8 - | "ref" -> SR_ref - | v -> bad_config "struct_return_style" [v] - type response_file_style = | Gnu (* responsefiles in gnu compatible syntax *) | Diab (* responsefiles in diab compatible syntax *) |