Bladeren bron

Fixed crash with null pointers. Fixes regression with #31.

woollybah 9 jaren geleden
bovenliggende
commit
43d04fdbef
1 gewijzigde bestanden met toevoegingen van 7 en 2 verwijderingen
  1. 7 2
      appstub.mod/debugger_mt.stdio.bmx

+ 7 - 2
appstub.mod/debugger_mt.stdio.bmx

@@ -406,7 +406,7 @@ Function DebugDerefPointer$(decl:Int Ptr, pointer:Int Ptr)
 		If start = -1 Exit
 		count :+ 1
 	Forever
-	
+
 	For Local i:Int = 0 Until count
 ?ptr64
 		pointer = Long Ptr (Varptr pointer)[0]
@@ -415,6 +415,11 @@ Function DebugDerefPointer$(decl:Int Ptr, pointer:Int Ptr)
 ?
 	Next
 
+	' Null
+	If pointer = 0 Then
+		Return " {-}"
+	End If
+
 	Local value:String
 	Select datatype
 	Case "Byte"
@@ -426,7 +431,7 @@ Function DebugDerefPointer$(decl:Int Ptr, pointer:Int Ptr)
 		Return " {"+value+"}"
 
 	Case "Int"
-		value = Int Ptr (Varptr pointer)[0]
+		value =  Int Ptr (Varptr pointer)[0]
 		Return " {"+value+"}"
 
 	Case "Long"