Added unsigned primitives support.

appstub.mod/debugger.stdio.glue.c

@@ -90,6 +90,7 @@ void bmx_debugger_DebugDecl_ArrayDeclIndexedPart(struct BBDebugDecl * decl, BBAr
 		case 'b':size=1;break;
 		case 's':size=2;break;
 		case 'l':size=8;break;
+		case 'y':size=8;break;
 		case 'd':size=8;break;
 		case '*':size=sizeof(void*);break;
 		case ':':size=sizeof(void*);break;

appstub.mod/debugger_mt.stdio.bmx

@@ -130,8 +130,12 @@ Function TypeName$( tag$ Var )
 		Return "Short"
 	Case "i"
 		Return "Int"
+	Case "u"
+		Return "UInt"
 	Case "l"
 		Return "Long"
+	Case "y"
+		Return "ULong"
 	Case "f"
 		Return "Float"
 	Case "d"
@@ -240,8 +244,10 @@ Function DebugDeclSize:Int( decl:Int Ptr )
 	Case Asc("b") Return 1
 	Case Asc("s") Return 2
 	Case Asc("i") Return 4
+	Case Asc("u") Return 4
 	Case Asc("f") Return 4
 	Case Asc("l") Return 8
+	Case Asc("y") Return 8
 	Case Asc("d") Return 8
 	' size_t (t) fall-through to ptr64 size below
 	End Select
@@ -299,8 +305,12 @@ Function DebugDeclValue$( decl:Int Ptr,inst:Byte Ptr )
 		Return String.FromInt( (Short Ptr p)[0] )
 	Case Asc("i")
 		Return String.FromInt( (Int Ptr p)[0] )
+	Case Asc("u")
+		Return String.FromUInt( (Unt Ptr p)[0] )
 	Case Asc("l")
 		Return String.FromLong( (Long Ptr p)[0] )
+	Case Asc("y")
+		Return String.FromULong( (ULong Ptr p)[0] )
 	Case Asc("f")
 		Return String.FromFloat( (Float Ptr p)[0] )
 	Case Asc("d")

reflection.mod/reflection.bmx

@@ -6,12 +6,14 @@ bbdoc: BASIC/Reflection
 End Rem
 Module BRL.Reflection
 
-ModuleInfo "Version: 1.04"
+ModuleInfo "Version: 1.05"
 ModuleInfo "Author: Mark Sibly"
 ModuleInfo "License: zlib/libpng"
 ModuleInfo "Copyright: Blitz Research Ltd"
 ModuleInfo "Modserver: BRL"
 
+ModuleInfo "History: 1.05"
+ModuleInfo "History: Added size_t, UInt and ULong primitives."
 ModuleInfo "History: 1.04"
 ModuleInfo "History: Added support for interfaces."
 ModuleInfo "History: 1.03"
@@ -95,8 +97,12 @@ Function _Get:Object( p:Byte Ptr,typeId:TTypeId )
 		Return String.FromInt( (Short Ptr p)[0] )
 	Case IntTypeId
 		Return String.FromInt( (Int Ptr p)[0] )
+	Case UIntTypeId
+		Return String.FromUInt( (UInt Ptr p)[0] )
 	Case LongTypeId
 		Return String.FromLong( (Long Ptr p)[0] )
+	Case ULongTypeId
+		Return String.FromULong( (ULong Ptr p)[0] )
 	Case SizetTypeId
 		Return String.FromSizet( (size_t Ptr p)[0] )
 	Case FloatTypeId
@@ -120,9 +126,15 @@ Function _Push:Byte Ptr( sp:Byte Ptr,typeId:TTypeId,value:Object )
 	Case ByteTypeId,ShortTypeId,IntTypeId
 		(Int Ptr sp)[0]=value.ToString().ToInt()
 		Return sp+4
+	Case UIntTypeId
+		(UInt Ptr sp)[0]=value.ToString().ToUInt()
+		Return sp+4
 	Case LongTypeId
 		(Long Ptr sp)[0]=value.ToString().ToLong()
 		Return sp+8
+	Case ULongTypeId
+		(ULong Ptr sp)[0]=value.ToString().ToULong()
+		Return sp+8
 	Case SizetTypeId
 		(size_t Ptr sp)[0]=value.ToString().ToSizet()
 ?Not ptr64
@@ -172,8 +184,12 @@ Function _Assign( p:Byte Ptr,typeId:TTypeId,value:Object )
 		(Short Ptr p)[0]=value.ToString().ToInt()
 	Case IntTypeId
 		(Int Ptr p)[0]=value.ToString().ToInt()
+	Case UIntTypeId
+		(UInt Ptr p)[0]=value.ToString().ToUInt()
 	Case LongTypeId
 		(Long Ptr p)[0]=value.ToString().ToLong()
+	Case ULongTypeId
+		(ULong Ptr p)[0]=value.ToString().ToULong()
 	Case SizetTypeId
 		(size_t Ptr p)[0]=value.ToString().ToSizet()
 	Case FloatTypeId
@@ -218,11 +234,7 @@ Function _CallFunction:Object( p:Byte Ptr,typeId:TTypeId,args:Object[],argTypes:
 	End If
 
 	Select typeId
-?Not ptr64
-	Case ByteTypeId,ShortTypeId,IntTypeId,SizetTypeId
-?ptr64
 	Case ByteTypeId,ShortTypeId,IntTypeId
-?
 		Select argTypes.length
 			Case 0
 				Local f:Int()=p
@@ -256,10 +268,43 @@ Function _CallFunction:Object( p:Byte Ptr,typeId:TTypeId,args:Object[],argTypes:
 				Return String.FromInt( f( q[0],q[1],q[2],q[3],q[4],q[5],q[6],q[7] ) )
 		End Select
 ?Not ptr64
-	Case LongTypeId
+	Case UIntTypeId,SizetTypeId
 ?ptr64
-	Case LongTypeId,SizetTypeId
+	Case UIntTypeId
 ?
+		Select argTypes.length
+			Case 0
+				Local f:UInt()=p
+				Return String.FromUInt( f() )
+			Case 1
+				Local f:UInt(p0:Byte Ptr)=p
+				Return String.FromUInt( f(q[0]) )
+			Case 2
+				Local f:UInt(p0:Byte Ptr, p1:Byte Ptr)=p
+				Return String.FromUInt( f(q[0], q[1]) )
+			Case 3
+				Local f:UInt(p0:Byte Ptr, p1:Byte Ptr, p2:Byte Ptr)=p
+				Return String.FromUInt( f(q[0], q[1], q[2]) )
+			Case 4
+				Local f:UInt(p0:Byte Ptr, p1:Byte Ptr, p2:Byte Ptr, p3:Byte Ptr)=p
+				Return String.FromUInt( f(q[0], q[1], q[2], q[3]) )
+			Case 5
+				Local f:UInt(p0:Byte Ptr, p1:Byte Ptr, p2:Byte Ptr, p3:Byte Ptr, p4:Byte Ptr)=p
+				Return String.FromUInt( f(q[0], q[1], q[2], q[3], q[4]) )
+			Case 6
+				Local f:UInt(p0:Byte Ptr, p1:Byte Ptr, p2:Byte Ptr, p3:Byte Ptr, p4:Byte Ptr, p5:Byte Ptr)=p
+				Return String.FromUInt( f(q[0], q[1], q[2], q[3], q[4], q[5]) )
+			Case 7
+				Local f:UInt(p0:Byte Ptr, p1:Byte Ptr, p2:Byte Ptr, p3:Byte Ptr, p4:Byte Ptr, p5:Byte Ptr, p6:Byte Ptr)=p
+				Return String.FromUInt( f(q[0], q[1], q[2], q[3], q[4], q[5], q[6]) )
+			Case 8
+				Local f:UInt(p0:Byte Ptr, p1:Byte Ptr, p2:Byte Ptr, p3:Byte Ptr, p4:Byte Ptr, p5:Byte Ptr, p6:Byte Ptr, p7:Byte Ptr)=p
+				Return String.FromUInt( f(q[0], q[1], q[2], q[3], q[4], q[5], q[6], q[7]) )
+			Default
+				Local f:UInt(p0:Byte Ptr,p1:Byte Ptr,p2:Byte Ptr,p3:Byte Ptr,p4:Byte Ptr,p5:Byte Ptr,p6:Byte Ptr,p7:Byte Ptr)=p
+				Return String.FromUInt( f( q[0],q[1],q[2],q[3],q[4],q[5],q[6],q[7] ) )
+		End Select
+	Case LongTypeId
 		Select argTypes.length
 			Case 0
 				Local f:Long()=p
@@ -292,6 +337,43 @@ Function _CallFunction:Object( p:Byte Ptr,typeId:TTypeId,args:Object[],argTypes:
 				Local f:Long(p0:Byte Ptr,p1:Byte Ptr,p2:Byte Ptr,p3:Byte Ptr,p4:Byte Ptr,p5:Byte Ptr,p6:Byte Ptr,p7:Byte Ptr)=p
 				Return String.Fromlong( f( q[0],q[1],q[2],q[3],q[4],q[5],q[6],q[7] ) )
 		End Select
+?Not ptr64
+	Case ULongTypeId
+?ptr64
+	Case ULongTypeId,SizetTypeId
+?
+		Select argTypes.length
+			Case 0
+				Local f:ULong()=p
+				Return String.FromULong( f() )
+			Case 1
+				Local f:ULong(p0:Byte Ptr)=p
+				Return String.FromULong( f(q[0]) )
+			Case 2
+				Local f:ULong(p0:Byte Ptr, p1:Byte Ptr)=p
+				Return String.FromULong( f(q[0], q[1]) )
+			Case 3
+				Local f:ULong(p0:Byte Ptr, p1:Byte Ptr, p2:Byte Ptr)=p
+				Return String.FromULong( f(q[0], q[1], q[2]) )
+			Case 4
+				Local f:ULong(p0:Byte Ptr, p1:Byte Ptr, p2:Byte Ptr, p3:Byte Ptr)=p
+				Return String.FromULong( f(q[0], q[1], q[2], q[3]) )
+			Case 5
+				Local f:ULong(p0:Byte Ptr, p1:Byte Ptr, p2:Byte Ptr, p3:Byte Ptr, p4:Byte Ptr)=p
+				Return String.FromULong( f(q[0], q[1], q[2], q[3], q[4]) )
+			Case 6
+				Local f:ULong(p0:Byte Ptr, p1:Byte Ptr, p2:Byte Ptr, p3:Byte Ptr, p4:Byte Ptr, p5:Byte Ptr)=p
+				Return String.FromULong( f(q[0], q[1], q[2], q[3], q[4], q[5]) )
+			Case 7
+				Local f:ULong(p0:Byte Ptr, p1:Byte Ptr, p2:Byte Ptr, p3:Byte Ptr, p4:Byte Ptr, p5:Byte Ptr, p6:Byte Ptr)=p
+				Return String.FromULong( f(q[0], q[1], q[2], q[3], q[4], q[5], q[6]) )
+			Case 8
+				Local f:ULong(p0:Byte Ptr, p1:Byte Ptr, p2:Byte Ptr, p3:Byte Ptr, p4:Byte Ptr, p5:Byte Ptr, p6:Byte Ptr, p7:Byte Ptr)=p
+				Return String.FromULong( f(q[0], q[1], q[2], q[3], q[4], q[5], q[6], q[7]) )
+			Default
+				Local f:ULong(p0:Byte Ptr,p1:Byte Ptr,p2:Byte Ptr,p3:Byte Ptr,p4:Byte Ptr,p5:Byte Ptr,p6:Byte Ptr,p7:Byte Ptr)=p
+				Return String.FromULong( f( q[0],q[1],q[2],q[3],q[4],q[5],q[6],q[7] ) )
+		End Select
 	Case FloatTypeId
 		Select argTypes.length
 			Case 0
@@ -510,11 +592,7 @@ Function _CallMethod:Object( p:Byte Ptr,typeId:TTypeId,obj:Object,args:Object[],
 	End If
 	'If Int Ptr(sp)>Int Ptr(q)+8 Throw "ERROR"
 	Select typeId
-?Not ptr64
-	Case ByteTypeId,ShortTypeId,IntTypeId,SizetTypeId
-?ptr64
 	Case ByteTypeId,ShortTypeId,IntTypeId
-?
 		Select argTypes.length
 			Case 0
 				Local f:Int(m:Object)=p
@@ -548,10 +626,43 @@ Function _CallMethod:Object( p:Byte Ptr,typeId:TTypeId,obj:Object,args:Object[],
 				Return String.FromInt( f( q[0],q[1],q[2],q[3],q[4],q[5],q[6],q[7] ) )
 		End Select
 ?Not ptr64
-	Case LongTypeId
+	Case UIntTypeId,SizetTypeId
 ?ptr64
-	Case LongTypeId,SizetTypeId
+	Case UIntTypeId
 ?
+		Select argTypes.length
+			Case 0
+				Local f:UInt(m:Object)=p
+				Return String.FromUInt( f(obj) )
+			Case 1
+				Local f:UInt(m:Object, p0:Byte Ptr)=p
+				Return String.FromUInt( f(obj, q[0]) )
+			Case 2
+				Local f:UInt(m:Object, p0:Byte Ptr, p1:Byte Ptr)=p
+				Return String.FromUInt( f(obj, q[0], q[1]) )
+			Case 3
+				Local f:UInt(m:Object, p0:Byte Ptr, p1:Byte Ptr, p2:Byte Ptr)=p
+				Return String.FromUInt( f(obj, q[0], q[1], q[2]) )
+			Case 4
+				Local f:UInt(m:Object, p0:Byte Ptr, p1:Byte Ptr, p2:Byte Ptr, p3:Byte Ptr)=p
+				Return String.FromUInt( f(obj, q[0], q[1], q[2], q[3]) )
+			Case 5
+				Local f:UInt(m:Object, p0:Byte Ptr, p1:Byte Ptr, p2:Byte Ptr, p3:Byte Ptr, p4:Byte Ptr)=p
+				Return String.FromUInt( f(obj, q[0], q[1], q[2], q[3], q[4]) )
+			Case 6
+				Local f:UInt(m:Object, p0:Byte Ptr, p1:Byte Ptr, p2:Byte Ptr, p3:Byte Ptr, p4:Byte Ptr, p5:Byte Ptr)=p
+				Return String.FromUInt( f(obj, q[0], q[1], q[2], q[3], q[4], q[5]) )
+			Case 7
+				Local f:UInt(m:Object, p0:Byte Ptr, p1:Byte Ptr, p2:Byte Ptr, p3:Byte Ptr, p4:Byte Ptr, p5:Byte Ptr, p6:Byte Ptr)=p
+				Return String.FromUInt( f(obj, q[0], q[1], q[2], q[3], q[4], q[5], q[6]) )
+			Case 8
+				Local f:UInt(m:Object, p0:Byte Ptr, p1:Byte Ptr, p2:Byte Ptr, p3:Byte Ptr, p4:Byte Ptr, p5:Byte Ptr, p6:Byte Ptr, p7:Byte Ptr)=p
+				Return String.FromUInt( f(obj, q[0], q[1], q[2], q[3], q[4], q[5], q[6], q[7]) )
+			Default
+				Local f:UInt(p0:Byte Ptr,p1:Byte Ptr,p2:Byte Ptr,p3:Byte Ptr,p4:Byte Ptr,p5:Byte Ptr,p6:Byte Ptr,p7:Byte Ptr)=p
+				Return String.FromUInt( f( q[0],q[1],q[2],q[3],q[4],q[5],q[6],q[7] ) )
+		End Select
+	Case LongTypeId
 		Select argTypes.length
 			Case 0
 				Local f:Long(m:Object)=p
@@ -584,6 +695,43 @@ Function _CallMethod:Object( p:Byte Ptr,typeId:TTypeId,obj:Object,args:Object[],
 				Local f:Long(p0:Byte Ptr,p1:Byte Ptr,p2:Byte Ptr,p3:Byte Ptr,p4:Byte Ptr,p5:Byte Ptr,p6:Byte Ptr,p7:Byte Ptr)=p
 				Return String.Fromlong( f( q[0],q[1],q[2],q[3],q[4],q[5],q[6],q[7] ) )
 		End Select
+?Not ptr64
+	Case ULongTypeId
+?ptr64
+	Case ULongTypeId,SizetTypeId
+?
+		Select argTypes.length
+			Case 0
+				Local f:ULong(m:Object)=p
+				Return String.FromULong( f(obj) )
+			Case 1
+				Local f:ULong(m:Object, p0:Byte Ptr)=p
+				Return String.FromULong( f(obj, q[0]) )
+			Case 2
+				Local f:ULong(m:Object, p0:Byte Ptr, p1:Byte Ptr)=p
+				Return String.FromULong( f(obj, q[0], q[1]) )
+			Case 3
+				Local f:ULong(m:Object, p0:Byte Ptr, p1:Byte Ptr, p2:Byte Ptr)=p
+				Return String.FromULong( f(obj, q[0], q[1], q[2]) )
+			Case 4
+				Local f:ULong(m:Object, p0:Byte Ptr, p1:Byte Ptr, p2:Byte Ptr, p3:Byte Ptr)=p
+				Return String.FromULong( f(obj, q[0], q[1], q[2], q[3]) )
+			Case 5
+				Local f:ULong(m:Object, p0:Byte Ptr, p1:Byte Ptr, p2:Byte Ptr, p3:Byte Ptr, p4:Byte Ptr)=p
+				Return String.FromULong( f(obj, q[0], q[1], q[2], q[3], q[4]) )
+			Case 6
+				Local f:ULong(m:Object, p0:Byte Ptr, p1:Byte Ptr, p2:Byte Ptr, p3:Byte Ptr, p4:Byte Ptr, p5:Byte Ptr)=p
+				Return String.FromULong( f(obj, q[0], q[1], q[2], q[3], q[4], q[5]) )
+			Case 7
+				Local f:ULong(m:Object, p0:Byte Ptr, p1:Byte Ptr, p2:Byte Ptr, p3:Byte Ptr, p4:Byte Ptr, p5:Byte Ptr, p6:Byte Ptr)=p
+				Return String.FromULong( f(obj, q[0], q[1], q[2], q[3], q[4], q[5], q[6]) )
+			Case 8
+				Local f:ULong(m:Object, p0:Byte Ptr, p1:Byte Ptr, p2:Byte Ptr, p3:Byte Ptr, p4:Byte Ptr, p5:Byte Ptr, p6:Byte Ptr, p7:Byte Ptr)=p
+				Return String.FromULong( f(obj, q[0], q[1], q[2], q[3], q[4], q[5], q[6], q[7]) )
+			Default
+				Local f:ULong(p0:Byte Ptr,p1:Byte Ptr,p2:Byte Ptr,p3:Byte Ptr,p4:Byte Ptr,p5:Byte Ptr,p6:Byte Ptr,p7:Byte Ptr)=p
+				Return String.FromULong( f( q[0],q[1],q[2],q[3],q[4],q[5],q[6],q[7] ) )
+		End Select
 	Case FloatTypeId
 		Select argTypes.length
 			Case 0
@@ -810,7 +958,9 @@ Function TypeTagForId$( id:TTypeId )
 	Case ByteTypeId Return "b"
 	Case ShortTypeId Return "s"
 	Case IntTypeId Return "i"
+	Case UIntTypeId Return "u"
 	Case LongTypeId Return "l"
+	Case ULongTypeId Return "y"
 	Case SizetTypeId Return "t"
 	Case FloatTypeId Return "f"
 	Case DoubleTypeId Return "d"
@@ -910,7 +1060,9 @@ Function TypeIdForTag:TTypeId( ty$ )
 	Case "b" Return ByteTypeId
 	Case "s" Return ShortTypeId
 	Case "i" Return IntTypeId
+	Case "u" Return UIntTypeId
 	Case "l" Return LongTypeId
+	Case "y" Return ULongTypeId
 	Case "t" Return SizetTypeId
 	Case "f" Return FloatTypeId
 	Case "d" Return DoubleTypeId
@@ -963,11 +1115,21 @@ bbdoc: Primitive int type
 End Rem
 Global IntTypeId:TTypeId=New TTypeId.Init( "Int",4 )
 
+Rem
+bbdoc: Primitive unsigned int type
+End Rem
+Global UIntTypeId:TTypeId=New TTypeId.Init( "UInt",4 )
+
 Rem
 bbdoc: Primitive long type
 End Rem
 Global LongTypeId:TTypeId=New TTypeId.Init( "Long",8 )
 
+Rem
+bbdoc: Primitive unsigned long type
+End Rem
+Global ULongTypeId:TTypeId=New TTypeId.Init( "ULong",8 )
+
 Rem
 bbdoc: Primitive size_t type
 End Rem