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

Jump to bottom

ocamlc 3.07+beta 1 -dtypes -rectypes failure #8216

Closed
vicuna opened this issue Jul 22, 2003 · 2 comments
Closed

ocamlc 3.07+beta 1 -dtypes -rectypes failure #8216

vicuna opened this issue Jul 22, 2003 · 2 comments
Labels
bug

Comments

@vicuna
Copy link

vicuna commented Jul 22, 2003

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

Bug description

:; ocamlc -version
3.07+beta 1
:; cat test.ml
let inclus l1 l2 =
let rec mem x = function
[] -> false
| a::l -> (l=x) || (mem x a) (* an error on purpose: a and l inverted *)
in List.for_all (fun x -> mem x l2) l1 ;;
:; ocamlc -c -warn-error A -verbose -rectypes -g test.ml
:; ocamlc -c -warn-error A -verbose -rectypes -g -dtypes test.ml
Fatal error: exception Stack_overflow
@vicuna
Copy link
Author

vicuna commented Jul 23, 2003

Comment author: administrator

Fixed by JG 2003-07-23

@vicuna vicuna closed this as completed Jul 23, 2003
@vicuna
Copy link
Author

vicuna commented Jul 23, 2003

Comment author: administrator

From: johnm@artisan.com

:; ocamlc -c -warn-error A -verbose -rectypes -g test.ml
:; ocamlc -c -warn-error A -verbose -rectypes -g -dtypes test.ml
Fatal error: exception Stack_overflow

Indeed, the preprocessing needed for printing recursive types was not
done. A stack overflow would occur for any recurive type (including
objects and variants).

This is now fixed in CVS.

Jacques

@vicuna vicuna added the bug label Mar 19, 2019
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Assignees
No one assigned
Labels
bug
Projects
None yet
Milestone
No milestone
Development

No branches or pull requests
1 participant
@vicuna