浏览代码

Added Float64 and Double128 support.

woollybah 9 年之前
父节点
当前提交
f969d761f4
共有 1 个文件被更改,包括 11 次插入1 次删除
  1. 11 1
      appstub.mod/debugger_mt.stdio.bmx

+ 11 - 1
appstub.mod/debugger_mt.stdio.bmx

@@ -140,8 +140,12 @@ Function TypeName$( tag$ Var )
 		Return "Float"
 		Return "Float"
 	Case "d"
 	Case "d"
 		Return "Double"
 		Return "Double"
+	Case "h"
+		Return "Float64"
 	Case "k"
 	Case "k"
 		Return "Float128"
 		Return "Float128"
+	Case "m"
+		Return "Double128"
 	Case "$"
 	Case "$"
 		Return "String"
 		Return "String"
 	Case "z"
 	Case "z"
@@ -251,8 +255,10 @@ Function DebugDeclSize:Int( decl:Int Ptr )
 	Case Asc("l") Return 8
 	Case Asc("l") Return 8
 	Case Asc("y") Return 8
 	Case Asc("y") Return 8
 	Case Asc("d") Return 8
 	Case Asc("d") Return 8
+	Case Asc("h") Return 8
 	Case Asc("j") Return 16
 	Case Asc("j") Return 16
 	Case Asc("k") Return 16
 	Case Asc("k") Return 16
+	Case Asc("m") Return 16
 	' size_t (t) fall-through to ptr64 size below
 	' size_t (t) fall-through to ptr64 size below
 	End Select
 	End Select
 
 
@@ -320,7 +326,7 @@ Function DebugDeclValue$( decl:Int Ptr,inst:Byte Ptr )
 	Case Asc("d")
 	Case Asc("d")
 		Return String.FromDouble( (Double Ptr p)[0] )
 		Return String.FromDouble( (Double Ptr p)[0] )
 	Case Asc("t")
 	Case Asc("t")
-		Return String.FromSizet( (size_t Ptr p)[0] )
+		Return String.FromSizet( (Size_T Ptr p)[0] )
 	Case Asc("$")
 	Case Asc("$")
 		p=(Byte Ptr Ptr p)[0]
 		p=(Byte Ptr Ptr p)[0]
 		Return DebugEscapeString( bmx_debugger_DebugDecl_StringFromAddress(p) )
 		Return DebugEscapeString( bmx_debugger_DebugDecl_StringFromAddress(p) )
@@ -354,10 +360,14 @@ Function DebugDeclValue$( decl:Int Ptr,inst:Byte Ptr )
 		If Not bmx_debugger_DebugDecl_ArraySize(p) Return "Null"
 		If Not bmx_debugger_DebugDecl_ArraySize(p) Return "Null"
 	Case Asc("@")
 	Case Asc("@")
 		Return "{}"
 		Return "{}"
+	Case Asc("h")
+		Return "{}"
 	Case Asc("j")
 	Case Asc("j")
 		Return "{}"
 		Return "{}"
 	Case Asc("k")
 	Case Asc("k")
 		Return "{}"
 		Return "{}"
+	Case Asc("m")
+		Return "{}"
 	Default
 	Default
 		DebugError "Invalid decl typetag:"+Chr(tag)
 		DebugError "Invalid decl typetag:"+Chr(tag)
 	End Select
 	End Select