Permalink
Browse files

Fixed bug in deepFlatten with weak pointers

SVN r6191
  • Loading branch information...
MatthewFluet committed Nov 21, 2007
1 parent 8773dd9 commit 334f30da79feacb7b8ef9ca89760cbcf3e9b887d
Showing with 6 additions and 1 deletion.
  1. +4 −0 doc/changelog
  2. +2 −1 mlton/ssa/deep-flatten.fun
View
@@ -1,5 +1,9 @@
Here are the changes from version 20070826 to version YYYYMMDD.
* 2007-11-20
- Fixed bug in pass to flatten refs into containing data structure.
Thanks to Ruy LeyWild for the bug report.
* 2007-11-19
- Fixed bug in the handling of weak pointers by the mark-compact
garbage collector. Thanks to Sean McLaughlin for the bug report
@@ -701,7 +701,8 @@ fun flatten (program as Program.T {datatypes, functions, globals, main}) =
| Value.Weak {arg, ...} => arg
| _ => Error.bug "DeepFlatten.primApp: Value.deWeak")
| Weak_new =>
(case makeTypeValue resultType of
(Value.dontFlatten (arg 0);
case makeTypeValue resultType of
Const v => v
| Make _ => Value.weak (arg 0))
| _ => result ()

0 comments on commit 334f30d

Please sign in to comment.