NotificationsYou must be signed in to change notification settings
Fork0
Star0

Commita50f4c5

authored

Debugger View for lists (dotnet#4399)

1 parent551613c commita50f4c5Copy full SHA for a50f4c5

File tree

1 file changed

+16

-11

lines changed

src/fsharp/FSharp.Core
- prim-types.fs

1 file changed

+16

-11

lines changed

`‎src/fsharp/FSharp.Core/prim-types.fs‎`

Lines changed: 16 additions & 11 deletions

Original file line number	Diff line number	Diff line change
`@@ -3043,30 +3043,35 @@ namespace Microsoft.FSharp.Collections`
`3043`	`3043`	`// List (debug view)`
`3044`	`3044`	`//-------------------------------------------------------------------------`
`3045`	`3045`
`3046`		`-and`
	`3046`	`+and`
`3047`	`3047`	`ListDebugView<'T>(l:list<'T>)=`
`3048`	`3048`
`3049`		`-letListDebugViewMaxLength=50`
`3050`		`-let reccount l n=`
`3051`		`-match lwith`
`3052`		`-\|[]-> n`
`3053`		`-\|_::t->if n> ListDebugViewMaxLengththen nelse count t(n+1)`
	`3049`	`+letListDebugViewMaxLength=50// default displayed Max Length`
	`3050`	`+letListDebugViewMaxFullLength=5000// display only when FullList opened (5000 is a super big display used to cut-off an infinite list or undebuggably huge one)`
	`3051`	`+let reccount l n max=`
	`3052`	`+match lwith`
	`3053`	`+\|[]-> n`
	`3054`	`+\|_::t->if n> maxthen nelse count t(n+1) max`
`3054`	`3055`
`3055`		`-[<DebuggerBrowsable(DebuggerBrowsableState.RootHidden)>]`
`3056`		`-memberx.Items=`
`3057`		`-letn= count l0`
`3058`		`-letitems= zeroCreate n`
	`3056`	`+letitems length=`
	`3057`	`+letitems= zeroCreate length`
`3059`	`3058`	`let reccopy(items:'T[])l i=`
`3060`	`3059`	`match lwith`
`3061`	`3060`	`\|[]->()`
`3062`	`3061`	`\| h::t->`
`3063`		`-if i<nthen`
	`3062`	`+if i<lengththen`
`3064`	`3063`	`SetArray items i h`
`3065`	`3064`	`copy items t(i+1)`
`3066`	`3065`
`3067`	`3066`	`copy items l0`
`3068`	`3067`	`items`
`3069`	`3068`
	`3069`	`+[<DebuggerBrowsable(DebuggerBrowsableState.RootHidden)>]`
	`3070`	`+memberx.Items= items(count l0 ListDebugViewMaxLength)`
	`3071`	`+`
	`3072`	`+[<DebuggerBrowsable(DebuggerBrowsableState.Collapsed)>]`
	`3073`	`+memberx._FullList= items(count l0 ListDebugViewMaxFullLength)`
	`3074`	`+`
`3070`	`3075`	`typeResizeArray<'T>= System.Collections.Generic.List<'T>`
`3071`	`3076`
`3072`	`3077`	`//-------------------------------------------------------------------------`

0 commit comments

Comments

(0)

Movatterモバイル変換

Navigation Menu

Search code, repositories, users, issues, pull requests...

Provide feedback

Saved searches

Use saved searches to filter your results more quickly

Uh oh!

Commita50f4c5

File tree

1 file changed

1 file changed

`‎src/fsharp/FSharp.Core/prim-types.fs‎`

0 commit comments