[MLton-devel] experimental release of source-level profiling

[Matthew Fluet]

> > > >      function       cur    raw    stack   raw     GC    raw
> > > > ------------------ ----- -------- ----- -------- ---- -------
> > > > doit                0.0%   (0.0s) 97.4% (50.03s) 2.6% (1.31s)
> > > > <GC_arrayAllocate>  0.3%  (0.15s) 97.4% (50.03s) 2.6% (1.31s)
> > >
> > > The 97.4% stack for GC_arrayAllocate looks like a bug to me.  I'll
> > > look into it.
> >
> > I just grabbed that from some stuff I had lying around.
>
> Ahh.  So did the problem happen with the experimental release?  I
> assume not, since I am not able to reproduce the problem.

It's not the experimental release as is currently on the web, but it does
correspond to the CVS repository as of earlier this morning.

[fluet@localhost stable.time]$ mlton-stable -profile time -profile-basis true -profile-il source -profile-stack true -keep ssa ../wc-scanStream.sml
[fluet@localhost stable.time]$ ./wc-scanStream 3000
[fluet@localhost stable.time]$ mlprof -thresh 5 -raw true wc-scanStream mlmon.out
78.78 seconds of CPU time (2.03 seconds GC)
     function       cur    raw    stack   raw     GC    raw
------------------ ----- -------- ----- -------- ---- -------
doit                0.0%   (0.0s) 97.5% (78.79s) 2.5% (2.03s)
<GC_arrayAllocate>  0.2%  (0.19s) 97.5% (78.78s) 2.5% (2.03s)
<main>              0.0%   (0.0s) 97.5% (78.78s) 2.5% (2.03s)
wc                  0.0%   (0.0s) 97.0% (78.42s) 2.1% (1.70s)
loop                0.0%   (0.0s) 97.0% (78.42s) 2.1% (1.70s)
scanStream         29.9% (24.20s) 96.9% (78.31s) 2.0% (1.63s)
loop               27.8% (22.43s) 66.9% (54.10s) 2.0% (1.63s)
input1              4.3%  (3.44s) 39.2% (31.65s) 2.0% (1.63s)
next                0.0%  (0.03s) 17.7% (14.28s) 2.0% (1.63s)
<Posix_IO_read>    17.4% (14.05s) 17.4% (14.05s) 0.0%  (0.0s)
readArr             0.0%   (0.0s) 17.4% (14.05s) 0.0%  (0.0s)
sub                17.2% (13.92s) 17.2% (13.92s) 0.0%  (0.0s)
sub                 0.0%   (0.0s) 17.2% (13.92s) 0.0%  (0.0s)

[fluet@localhost stable.time]$ diff ../wc-scanStream.sml ~/mlton/mlton.cvs.HEAD/benchmark/tests/wc-scanStream.sml
38c38
<           val _ = loop (valOf (Int.fromString (hd (CommandLine.arguments ()))))
---
>           val _ = loop 3000
43,45d42
<
< val _ = Main.doit ()




-------------------------------------------------------
This SF.NET email is sponsored by: Thawte.com - A 128-bit supercerts will
allow you to extend the highest allowed 128 bit encryption to all your 
clients even if they use browsers that are limited to 40 bit encryption. 
Get a guide here:http://ads.sourceforge.net/cgi-bin/redirect.pl?thaw0030en
_______________________________________________
MLton-devel mailing list
MLton-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mlton-devel