Browse Source

Fixed debugger issue with valid objects showing as null.

Mark Sibly 9 years ago
parent
commit
a706ac4142
1 changed files with 13 additions and 7 deletions
  1. 13 7
      src/ted2/debugview.monkey2

+ 13 - 7
src/ted2/debugview.monkey2

@@ -339,15 +339,21 @@ Class DebugView Extends DockingView
 						
 						If value.Contains( ":" )
 							scope=True
-						Else If FromHex( value.Slice( 1 ) )
-							label+="="+value
-							scope=True
 						Else
-							label+=" (null)"
-						Endif
-
+							Local p:ULong
+							If value.StartsWith( "@0x" )
+								p=StringToULong( value.Slice( 3 ),16 )
+							Else
+								p=StringToULong( value.Slice( 1 ),16 )
+							Endif
+							If p
+								label+="="+value
+								scope=True
+							Else
+								label+="={null}"
+							Endif
+						endif
 					Endif
-
 				Endif
 			Endif