[Vm-dev] [commit][3673] Provide VM hooks for testing Integer class in plugins

commits at squeakvm.org commits at squeakvm.org
Wed Apr 20 00:06:31 UTC 2016


Revision: 3673
Author:   nice
Date:     2016-04-19 17:06:30 -0700 (Tue, 19 Apr 2016)
Log Message:
-----------
Provide VM hooks for testing Integer class in plugins

Modified Paths:
--------------
    branches/Cog/platforms/Cross/vm/sqVirtualMachine.c
    branches/Cog/platforms/Cross/vm/sqVirtualMachine.h

Modified: branches/Cog/platforms/Cross/vm/sqVirtualMachine.c
===================================================================
--- branches/Cog/platforms/Cross/vm/sqVirtualMachine.c	2016-04-19 18:21:14 UTC (rev 3672)
+++ branches/Cog/platforms/Cross/vm/sqVirtualMachine.c	2016-04-20 00:06:30 UTC (rev 3673)
@@ -65,7 +65,11 @@
 sqInt isBytes(sqInt oop);
 sqInt isFloatObject(sqInt oop);
 sqInt isIndexable(sqInt oop);
-sqInt isIntegerObject(sqInt objectPointer);
+sqInt isKindOfInteger(sqInt oop);
+sqInt isLargeIntegerObject(sqInt oop);
+sqInt isLargePositiveIntegerObject(sqInt oop);
+sqInt isLargeNegativeIntegerObject(sqInt oop);
+sqInt isIntegerObject(sqInt oop);
 sqInt isIntegerValue(sqInt intValue);
 sqInt isPointers(sqInt oop);
 sqInt isWeak(sqInt oop);
@@ -329,6 +333,10 @@
 	VM->isBytes = isBytes;
 	VM->isFloatObject = isFloatObject;
 	VM->isIndexable = isIndexable;
+	VM->isKindOfInteger = isKindOfInteger;
+	VM->isLargeIntegerObject = isLargeIntegerObject;
+	VM->isLargePositiveIntegerObject = isLargePositiveIntegerObject;
+	VM->isLargeNegativeIntegerObject = isLargeNegativeIntegerObject;
 	VM->isIntegerObject = isIntegerObject;
 	VM->isIntegerValue = isIntegerValue;
 	VM->isPointers = isPointers;

Modified: branches/Cog/platforms/Cross/vm/sqVirtualMachine.h
===================================================================
--- branches/Cog/platforms/Cross/vm/sqVirtualMachine.h	2016-04-19 18:21:14 UTC (rev 3672)
+++ branches/Cog/platforms/Cross/vm/sqVirtualMachine.h	2016-04-20 00:06:30 UTC (rev 3673)
@@ -111,7 +111,11 @@
 	sqInt (*isBytes)(sqInt oop);
 	sqInt (*isFloatObject)(sqInt oop);
 	sqInt (*isIndexable)(sqInt oop);
-	sqInt (*isIntegerObject)(sqInt objectPointer);
+	sqInt (*isKindOfInteger)(sqInt oop);
+	sqInt (*isLargeIntegerObject)(sqInt oop);
+	sqInt (*isLargePositiveIntegerObject)(sqInt oop);
+	sqInt (*isLargeNegativeIntegerObject)(sqInt oop);
+	sqInt (*isIntegerObject)(sqInt oop);
 	sqInt (*isIntegerValue)(sqInt intValue);
 	sqInt (*isPointers)(sqInt oop);
 	sqInt (*isWeak)(sqInt oop);



More information about the Vm-dev mailing list