Skip to content

Instantly share code, notes, and snippets.

greg@clown:~/Downloads/IronScheme$ mono IronScheme.Console32-v4.exe
IronScheme 1.0.98-fd8c0b4 github.com/leppie/IronScheme © 2007-2016 Llewellyn Pritchard (.NET 4.0 64-bit)
> (ironscheme-test)
Stacktrace:
at <unknown> <0xffffffff>
at (wrapper managed-to-native) object.__icall_wrapper_mono_gc_alloc_vector (intptr,intptr,intptr) <0xffffffff>
at (wrapper alloc) object.AllocVector (intptr,intptr) <0xffffffff>
at System.Collections.Generic.List`1<T_REF>.set_Capacity (int) <0x00061>
at System.Collections.Generic.List`1<T_REF>.EnsureCapacity (int) <0x00085>
greg@clown:~/Downloads/IronScheme$ mono IronScheme.Console-v2.exe
WARNING: The runtime version supported by this application is unavailable.
Using default runtime: v4.0.30319
IronScheme 1.0.98-fd8c0b4 github.com/leppie/IronScheme © 2007-2016 Llewellyn Pritchard (.NET 4.0 64-bit)
> (ironscheme-test)
Stacktrace:
at <unknown> <0xffffffff>
at (wrapper managed-to-native) object.__icall_wrapper_mono_gc_alloc_vector (intptr,intptr,intptr) <0xffffffff>
at (wrapper alloc) object.AllocVector (intptr,intptr) <0xffffffff>
- let countryData =
- ["Africa", 345;
- "england", 128;
- "us", 543 ];;
val countryData : (string * int) list =
[("Africa", 345); ("england", 128); ("us", 543)]
> Chart.Bar countryData
- ;;
void
get_config (MonoProfiler *profiler, const char *desc) {
const char *p;
const char *opt;
p = desc;
if (strncmp (p, "peye", 4))
usage (1);
p += 4;
if (*p == ':')
> mostAllocatedTypes() |> Seq.head;;
val it : profilersession.TypeInformation =
Name: System.String
Allocs: 5760 Size : 940.89KB
Thrown: 0
Allocated By:
--------------------------------------------------------------------------------
| 2|System.Void EventStore.Core.Services.Monitoring.MonitoringService:OnTimerTick (object)|
| 4|System.Void EventStore.Core.Services.Monitoring.MonitoringService:CollectRegularStats ()|
> open PrivateEye.Bridge;;
> Profiler.StartListening();;
Starting TCP listening on TCP endpoint: 127.0.0.1:4444.
Segments count: 1, buffers count: 16, should be when full: 16
val it : unit = ()
> TCP connection accepted
MMMMMMMMMMMMMM
MMMMMMMMMMMMMMMMMMMM
MMMMMMMMN :MMMMMMMM.
MMMMMM. MMMMMM
> open PrivateEye.Bridge;;
> Profiler.StartListening();;
Starting TCP listening on TCP endpoint: 127.0.0.1:4444.
Segments count: 1, buffers count: 16, should be when full: 16
val it : unit = ()
> addFsiPrinters();;
val it : unit = ()
> TCP connection accepted
Received identification Process Id 9060, Mono PrivateEye v0.3.4
``
::`
::::
:::::` `
:::::::::::.
::::::::::::
::::::::::::::::::
::::: ::::::::::
::::: :::::::,
,:::: ,::::
[<AutoOpen>]
module PrivateEye
#r "PrivateEye.Bridge.dll"
open PrivateEye.Bridge
open PrivateEye.Bridge.profilersession
open System
open System.IO
mostAllocatingMethods() |> Seq.take 10;;
val it : seq<profilersession.MethodInformation> =
---------------------------------------------------------------------------------------------------------
|Name | Called| Total Time| Allocs| A. Size| AAlloc| AA. Size|Thrown|
---------------------------------------------------------------------------------------------------------
|IOBinaryReader,byte,long) | 72678| 7829.3623| 872244| 102962890| 0| 0| 0|
|Publish (EventStore.Core.Messagin| 145568| 7008.8858| 885081| 83584272| 0| 0| 0|
|Commit (System.Collections.Generi| 145527| 9900.2482| 873160| 59374792| 0| 0| 0|
|ReadFrom (System.IO.BinaryReader)| 72776| 9780.3894| 145553| 18629248| 0| 0| 0|