diff options
| author | Bernhard Schommer <bernhardschommer@gmail.com> | 2020-09-08 13:56:01 +0200 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@college-de-france.fr> | 2020-12-25 18:34:24 +0100 |
| commit | 9ab3738ae87a554fb742420b8c81ced4cd3c66c7 (patch) | |
| tree | cc17ce961dfc2f8dd13f4428b0814c8fe66be254 /exportclight | |
| parent | a138b43ccb391be63bed2fea26cd36dab96b091f (diff) | |
| download | compcert-kvx-9ab3738ae87a554fb742420b8c81ced4cd3c66c7.tar.gz compcert-kvx-9ab3738ae87a554fb742420b8c81ced4cd3c66c7.zip | |
Changed cc_varargs to an option type
Instead of being a simple boolean we now use an option type to record
the number of fixed (non-vararg) arguments. Hence, `None` means
not vararg, and `Some n` means `n` fixed arguments followed with varargs.
Diffstat (limited to 'exportclight')
| -rw-r--r-- | exportclight/ExportClight.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/exportclight/ExportClight.ml b/exportclight/ExportClight.ml index 4ff901eb..7604175e 100644 --- a/exportclight/ExportClight.ml +++ b/exportclight/ExportClight.ml @@ -216,8 +216,8 @@ and typlist p = function and callconv p cc = if cc = cc_default then fprintf p "cc_default" - else fprintf p "{|cc_vararg:=%b; cc_unproto:=%b; cc_structret:=%b|}" - cc.cc_vararg cc.cc_unproto cc.cc_structret + else fprintf p "{|cc_vararg:=%a; cc_unproto:=%b; cc_structret:=%b|}" + (print_option coqZ) cc.cc_vararg cc.cc_unproto cc.cc_structret (* External functions *) |