diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2018-03-13 14:04:49 +0100 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2018-03-13 14:04:49 +0100 |
| commit | 4d7a6709946a0c30e932c00405252b42e348eb64 (patch) | |
| tree | aca0e5450b17c0c5443800c30a9e0919fde856d1 /exportclight | |
| parent | 1c477f375f20e882b429175c737ad013ff202c0b (diff) | |
| download | compcert-kvx-4d7a6709946a0c30e932c00405252b42e348eb64.tar.gz compcert-kvx-4d7a6709946a0c30e932c00405252b42e348eb64.zip | |
Print size argument of Init_space as Z not as int32
Init_space has an argument of type Z and it can exceed the range of a 32-bit integer.
Reported by Frédéric Besson.
Diffstat (limited to 'exportclight')
| -rw-r--r-- | exportclight/ExportClight.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/exportclight/ExportClight.ml b/exportclight/ExportClight.ml index 1b1402c3..1ae78c15 100644 --- a/exportclight/ExportClight.ml +++ b/exportclight/ExportClight.ml @@ -398,7 +398,7 @@ let init_data p = function | Init_int64 n -> fprintf p "Init_int64 %a" coqint64 n | Init_float32 n -> fprintf p "Init_float32 %a" coqsingle n | Init_float64 n -> fprintf p "Init_float64 %a" coqfloat n - | Init_space n -> fprintf p "Init_space %ld" (Z.to_int32 n) + | Init_space n -> fprintf p "Init_space %a" coqZ n | Init_addrof(id,ofs) -> fprintf p "Init_addrof %a %a" ident id coqptrofs ofs let print_variable p (id, v) = |