Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

three small camlp4o bugs #3970

Closed
vicuna opened this issue Oct 11, 2002 · 1 comment
Closed

three small camlp4o bugs #3970

vicuna opened this issue Oct 11, 2002 · 1 comment
Labels

Comments

@vicuna
Copy link

vicuna commented Oct 11, 2002

Original bug ID: 1425
Reporter: administrator
Status: closed
Resolution: fixed
Priority: normal
Severity: minor
Category: ~DO NOT USE (was: OCaml general)

Bug description

Full_Name: Chris Hecker
Version: 3.06
OS: Win2k
Submission from: node-d8e9cca2-sfo-onnet.worldcom.com (216.233.204.162)

This ml file works with ocamlc p4test.ml, but not with ocamlc -pp camlp4o
p4test.ml. There are three separate bugs.

Have fun,
Chris

------ p4test.ml -------
(* bug 1: reference to a class )
class bar = object method func () = () end
let barr = ref new bar
(
uncomment next line to work with -pp camlp4o: )
(
let barr = ref (new bar :> bar) *)
let _ = !barr#func ()

(* bug 2: negative 0 as float )
let a = [| 0.0; -0.0 |] (
breaks on -pp camlp4o )
let a = [| 0.0; -.0.0 |] (
works *)

(* bug 3: empty begin end block )
let _ = begin end (
breaks on -pp camlp4o *)

@vicuna
Copy link
Author

vicuna commented Oct 11, 2002

Comment author: administrator

Hi,

On Fri, Oct 11, 2002 at 05:03:22AM +0200, checker@d6.com wrote:

(* bug 1: reference to a class *)
let barr = ref new bar

For this bug, like you said in you next message, it was indeed a
precedence problem. Fixed.

The two other bugs are fixed also. Thanks for the report.

--
Daniel de RAUGLAUDRE
daniel.de_rauglaudre@inria.fr
http://cristal.inria.fr/~ddr/

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
Projects
None yet
Development

No branches or pull requests

1 participant