Added fields offset to BBClass.

blitz.mod/blitz.bmx

@@ -569,6 +569,12 @@ returns: #True if @obj is an empty #String, or #False otherwise.
 End Rem
 Function IsEmptyString:Int(obj:Object)="int bbObjectIsEmptyString(BBOBJECT)!"
 
+Rem
+bbdoc: Determines whether the #Object @obj is a #String.
+returns: #True if @obj is a #String, or #False otherwise.
+End Rem
+Function ObjectIsString:Int(obj:Object)="int bbObjectIsString(BBOBJECT)!"
+
 Function DumpObjectCounts(buffer:Byte Ptr, size:Int, includeZeros:Int)="bbObjectDumpInstanceCounts"
 Global CountObjectInstances:Int="bbCountInstances"
 

blitz.mod/blitz_array.c

@@ -26,6 +26,7 @@ BBClass bbArrayClass={
 	0,          //extra
 	0,          //obj_size
 	0,          //instance_count
+	offsetof(BBArray, type), //fields_offset
 	
 	bbArraySort,
 	bbArrayDimensions

blitz.mod/blitz_object.c

@@ -27,7 +27,9 @@ BBClass bbObjectClass={
 	bbObjectSendMessage,
 	0,             //interface
 	0,             //extra
-	0              //obj_size
+	0,             //obj_size
+	0,             //instance_count
+	sizeof(void*)  //fields_offset
 };
 
 BBObject bbNullObject={
@@ -104,6 +106,10 @@ BBObject *bbObjectStringcast( BBObject *o ){
 	}
 }
 
+int bbObjectIsString( BBObject *o ){
+	return o->clas == &bbStringClass;
+}
+
 BBObject *bbObjectArraycast( BBObject *o ){
 	if (o->clas == &bbArrayClass) {
 		return o;
@@ -112,6 +118,10 @@ BBObject *bbObjectArraycast( BBObject *o ){
 	}
 }
 
+int bbObjectIsArray( BBObject *o ){
+	return o->clas == &bbArrayClass;
+}
+
 BBObject *bbObjectDowncast( BBObject *o,BBClass *t ){
 	BBClass *p=o->clas;
 	while( p && p!=t ) p=p->super;
@@ -299,4 +309,12 @@ BBDebugScope * bbObjectEnumInfo( char * name ) {
 	}
 	
 	return 0;
-}
+}
+
+#if __STDC_VERSION__ >= 199901L
+extern void * bbObjectToFieldOffset(BBOBJECT o);
+#else
+void * bbObjectToFieldOffset(BBOBJECT o) {
+	return (void*)(((unsigned char*)o) + o->clas->fields_offset);
+}
+#endif

blitz.mod/blitz_object.h

@@ -32,6 +32,7 @@ struct BBClass{
 	void*   extra;
 	unsigned int obj_size;
 	unsigned int instance_count;
+	unsigned int fields_offset;
 
 	void*	vfns[32];
 };
@@ -78,6 +79,8 @@ void		bbObjectReserved();
 BBObject*	bbObjectDowncast( BBObject *o,BBClass *t );
 BBObject*	bbObjectStringcast( BBObject *o );
 BBObject*	bbObjectArraycast( BBObject *o );
+int bbObjectIsString( BBObject *o );
+int bbObjectIsArray( BBObject *o );
 
 void		bbObjectRegisterType( BBClass *clas );
 BBClass**	bbObjectRegisteredTypes( int *count );
@@ -109,6 +112,14 @@ struct enum_node {
 void bbObjectRegisterEnum( BBDebugScope *p );
 BBDebugScope * bbObjectEnumInfo( char * name );
 
+#if __STDC_VERSION__ >= 199901L
+inline void * bbObjectToFieldOffset(BBOBJECT o) {
+	return (void*)(((unsigned char*)o) + o->clas->fields_offset);
+}
+#else
+void * bbObjectToFieldOffset(BBOBJECT o);
+#endif
+
 #ifdef __cplusplus
 }
 #endif

blitz.mod/blitz_string.c

@@ -28,6 +28,7 @@ BBClass bbStringClass={
 	0,              //extra
 	0,
 	0,          //instance_count
+	offsetof(BBString, length), //fields_offset
 	
 	bbStringFind,
 	bbStringFindLast,