You signed in with another tab or window. Reload to refresh your session.You signed out in another tab or window. Reload to refresh your session.You switched accounts on another tab or window. Reload to refresh your session.Dismiss alert
Original bug ID: 607 Reporter: administrator Status: closed Resolution: not a bug Priority: normal Severity: minor Category: ~DO NOT USE (was: OCaml general)
Original bug ID: 607
Reporter: administrator
Status: closed
Resolution: not a bug
Priority: normal
Severity: minor
Category: ~DO NOT USE (was: OCaml general)
Bug description
Full_Name: Fabrice Le Fessant
Version: 3.03
OS: alpha
Submission from: curie.noos.net (212.198.0.93)
Dans pervasives.ml, le calcul de min_int est:
let min_int = 1 lsl (if 1 lsl 31 = 0 then 30 else 62)
qui fait appel a un calcul qui pourrait clairement etre optimise dans le futur,
et donc provoquer un bug.
On peut le corriger par:
external get_config: unit -> string * int = "sys_get_config"
let (os_type, word_size) = get_config()
let min_int = 1 lsl (word_size - 2)
The text was updated successfully, but these errors were encountered: