Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Annotation of /branches/vis12/bugs/resolved/bug006.diderot
ViewVC logotype

Annotation of /branches/vis12/bugs/resolved/bug006.diderot

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2151 - (view) (download)

1 : jhr 2150 /****************
2 :     Compiling this program gives:
3 :     ...
4 :     mid-il DFA: cpu = 0.000 seconds, gc = 0.000 seconds, 4 nodes, 3 visits, 1 iterations
5 :     low-il DFA: cpu = 0.000 seconds, gc = 0.000 seconds, 3 nodes, 2 visits, 1 iterations
6 :     low-il DFA: cpu = 0.000 seconds, gc = 0.000 seconds, 3 nodes, 2 visits, 1 iterations
7 :     low-il DFA: cpu = 0.000 seconds, gc = 0.000 seconds, 18 nodes, 17 visits, 1 iterations
8 :     low-il DFA: cpu = 0.000 seconds, gc = 0.000 seconds, 4 nodes, 3 visits, 1 iterations
9 :     uncaught exception Fail [Fail: no output specified for strand sqroot]
10 :     raised at common/phase-timer.sml:76.50-76.52
11 :     raised at common/phase-timer.sml:76.50-76.52
12 :     raised at c-target/c-target.sml:151.37-151.83
13 :    
14 :     This should be caught as an error during typechecking.
15 :     ****************/
16 :    
17 :     real eps = 1.0;
18 :     strand sqroot(real val) {
19 :     real root = val;
20 :     update {
21 :     root = (root + val/root)/2;
22 :     if (|root^2 - val|/val < eps)
23 :     stabilize;
24 :     }
25 :     }
26 :     // Strand initialization
27 :     initially { sqroot(i) | i in 1..1000 };

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0