Quellcode durchsuchen

Fixed debugger issue with valid objects showing as null.

Mark Sibly vor 9 Jahren
Ursprung
Commit
a706ac4142
1 geänderte Dateien mit 13 neuen und 7 gelöschten Zeilen
  1. 13 7
      src/ted2/debugview.monkey2

+ 13 - 7
src/ted2/debugview.monkey2

@@ -339,15 +339,21 @@ Class DebugView Extends DockingView
 						
 						
 						If value.Contains( ":" )
 						If value.Contains( ":" )
 							scope=True
 							scope=True
-						Else If FromHex( value.Slice( 1 ) )
-							label+="="+value
-							scope=True
 						Else
 						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
 				Endif
 			Endif
 			Endif