[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