diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2014-08-27 09:58:33 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2014-08-27 09:58:33 +0000 |
| commit | b868c05ec91a7ee193010a421de768a3b1a80952 (patch) | |
| tree | 4f015f16bcafefd46d221730599e94d22870d1f5 /byterun/fix_code.c | |
| parent | cbfe627f925ab2bab93bae7a7bc9f6ee6afb8637 (diff) | |
PR#6517: use ISO C99 types {,u}int{32,64}_t in preference to our homegrown
types {,u}int{32,64}.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@15131 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'byterun/fix_code.c')
| -rw-r--r-- | byterun/fix_code.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/byterun/fix_code.c b/byterun/fix_code.c index 3380dc919..4fa027502 100644 --- a/byterun/fix_code.c +++ b/byterun/fix_code.c @@ -134,12 +134,12 @@ void caml_thread_code (code_t code, asize_t len) } *p++ = (opcode_t)(caml_instr_table[instr] - caml_instr_base); if (instr == SWITCH) { - uint32 sizes = *p++; - uint32 const_size = sizes & 0xFFFF; - uint32 block_size = sizes >> 16; + uint32_t sizes = *p++; + uint32_t const_size = sizes & 0xFFFF; + uint32_t block_size = sizes >> 16; p += const_size + block_size; } else if (instr == CLOSUREREC) { - uint32 nfuncs = *p++; + uint32_t nfuncs = *p++; p++; /* skip nvars */ p += nfuncs; } else { |