diff options
| author | Cyril SIX <cyril.six@kalray.eu> | 2019-10-14 15:49:35 +0200 |
|---|---|---|
| committer | Cyril SIX <cyril.six@kalray.eu> | 2019-10-14 15:49:35 +0200 |
| commit | ccfd145a139c2ac6af522b2c259cbfbf60573740 (patch) | |
| tree | 6a0d839f876483310896f4dbe29976159873d384 /cparser/StructPassing.ml | |
| parent | 64a80f81297fb20c4f952d4b36cd0ae5d5da8f1e (diff) | |
| download | compcert-kvx-ccfd145a139c2ac6af522b2c259cbfbf60573740.tar.gz compcert-kvx-ccfd145a139c2ac6af522b2c259cbfbf60573740.zip | |
Fix for test/regression/struct2.c
Diffstat (limited to 'cparser/StructPassing.ml')
| -rw-r--r-- | cparser/StructPassing.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/cparser/StructPassing.ml b/cparser/StructPassing.ml index 7bd72808..3aff090e 100644 --- a/cparser/StructPassing.ml +++ b/cparser/StructPassing.ml @@ -75,7 +75,8 @@ let classify_param env ty = Param_flattened ((sz+3)/4, sz, al) (* FIXME - why (sz+3)/4 ? *) else Param_unchanged - | _, _ -> failwith "StructPassing.classify_param SP_split_args32_ref_callee") + | _, _ -> Param_unchanged (* when parsing prototype with incomplete structure definition *) + ) | SP_split_args -> match sizeof env ty, alignof env ty with | Some sz, Some al -> |