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 /cparser/Parse.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 'cparser/Parse.ml')
| -rw-r--r-- | cparser/Parse.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/cparser/Parse.ml b/cparser/Parse.ml index 8665e158..8143954b 100644 --- a/cparser/Parse.ml +++ b/cparser/Parse.ml @@ -19,7 +19,7 @@ module CharSet = Set.Make(struct type t = char let compare = compare end) let transform_program t p name = let run_pass pass flag p = if CharSet.mem flag t then pass p else p in - let p1 = (run_pass StructReturn.program 's' + let p1 = (run_pass StructPassing.program 's' (run_pass PackedStructs.program 'p' (run_pass Unblock.program 'b' (run_pass Bitfields.program 'f' |