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: 478 Reporter: administrator Status: closed Resolution: fixed Priority: normal Severity: minor Category: ~DO NOT USE (was: OCaml general)
Bug description
Bonjour,
un petit problème de confusion de nom de types assez surprenant:
si une structure porte le même nom qu'une classe dans un module M,
on peut utiliser l'un pour l'autre à l'extérieur du module:
beige[100]% uname -a
Linux beige 2.4.4 #1 Mon Jul 2 15:47:59 CEST 2001 i686 unknown
beige[101]% ocaml
Objective Caml version 3.02
module M = struct
type t = { x : int }
class t = object method x = 1 end
end;;
module M : sig type t = { x : int; } class t : object method x : int end end
open M;;
let s (y : t) = y.x;;
val s : M.t -> int =
s (new t);;
: int = 537745108
let o (y : t) = y#x;;
val o : M.t -> int =
o { x = 666 };;
Segmentation fault
Étonnant, non ?
--Pascal
The text was updated successfully, but these errors were encountered:
un petit problème de confusion de nom de types assez surprenant:
si une structure porte le même nom qu'une classe dans un module M,
on peut utiliser l'un pour l'autre à l'extérieur du module:
En effet, il manquait une vérification d'unicité comparable à celle
que l'on fait pour les noms de types, de modules, et de types de
modules. C'est corrigé. Merci pour le rapport d'erreur.
Original bug ID: 478
Reporter: administrator
Status: closed
Resolution: fixed
Priority: normal
Severity: minor
Category: ~DO NOT USE (was: OCaml general)
Bug description
Bonjour,
un petit problème de confusion de nom de types assez surprenant:
si une structure porte le même nom qu'une classe dans un module M,
on peut utiliser l'un pour l'autre à l'extérieur du module:
beige[100]% uname -a
Linux beige 2.4.4 #1 Mon Jul 2 15:47:59 CEST 2001 i686 unknown
beige[101]% ocaml
Objective Caml version 3.02
module M = struct
type t = { x : int }
class t = object method x = 1 end
end;;
module M : sig type t = { x : int; } class t : object method x : int end end
open M;;
let s (y : t) = y.x;;
val s : M.t -> int =
s (new t);;
let o (y : t) = y#x;;
val o : M.t -> int =
o { x = 666 };;
Segmentation fault
Étonnant, non ?
--Pascal
The text was updated successfully, but these errors were encountered: