Vm-dev March 2014

vm-dev@lists.squeakfoundation.org

23 participants
104 discussions

CentOS6.5 Build along with list of packages to install
by phil＠highoctane.be 04 Mar '14

04 Mar '14

Here is a package that can be used on CentOS6.5 https://github.com/philippeback/pharo-vm/tree/master/dist/centos65 The tgz file contains the VM and Pharo30 The PharoScreenshot.png shows the result of executing the tests. And the yumpackages.md contains the list of packages that I had to put into the system to get things to work (some i686 packages may be unnecessary since I do other stuff on the box but most of them are). Tell me how well it works on your side. Phil

1 0

VM Maker: VMMaker-dtl.343.mcz
by commits＠source.squeak.org 02 Mar '14

02 Mar '14

David T. Lewis uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker-dtl.343.mcz ==================== Summary ==================== Name: VMMaker-dtl.343 Author: dtl Time: 2 March 2014, 10:42:12.883 am UUID: 7749056b-e9ad-442f-ba10-457f2eb8c0f4 Ancestors: VMMaker-dtl.342 VMMaker 4.13.3 Fix an obscure bug in generating type declarations caused by unreferenced type declarations remaining after their associated variables have been inlined away. See TMethod>>removeUnreferencedDeclarations. Document the bug in SlangTest>>testRemoveTypeDeclartionForRemovedIntermediate. Fix SlangTest>>testSetInstanceVariableWithAnAccessorMethod which contained an error that was masked because the test is an expected failure. Fix code generator initialization for MemoryAccess. Note - there is no change to generated C code unless MemoryAccess methods are added to the code generator, therefore regeneration of sources for SVN is not required. =============== Diff against VMMaker-dtl.342 =============== Item was changed: ----- Method: Interpreter class>>initializeCodeGenerator: (in category 'translation') ----- initializeCodeGenerator: cg "Load a code generator with classes in a manner suitable for generating code for this class." super initializeCodeGenerator: cg. + self initializeClassicObjectMemoryInCodeGenerator: cg. + VMMaker addMemoryAccessTo: cg. + ^cg - ^ self initializeClassicObjectMemoryInCodeGenerator: cg "^ self initializeNewObjectMemoryInCodeGenerator: cg" ! Item was added: + ----- Method: InterpreterPlugin class>>initializeCodeGenerator: (in category 'translation') ----- + initializeCodeGenerator: cg + "Load a code generator with classes in a manner suitable for generating + code for this class." + + super initializeCodeGenerator: cg. + VMMaker addMemoryAccessTo: cg. + ^cg + ! Item was added: + ----- Method: SlangTest>>testRemoveTypeDeclarationForRemovedIntermediate (in category 'testing var decl requires memoryaccess') ----- + testRemoveTypeDeclarationForRemovedIntermediate + "Document a bug in variable declaration. This is hard to reproduce, so the test uses + the actual failure. Necessary conditions are to use MemoryAccess (requires deep + inlining), then generate the entire interpreter. The error condition appears in the + reverseDisplayFrom:to: method. Generating that method alone is not sufficient to + reproduce the bug, the entire interpreter must first be generated, after which the + method may be individually generated to inspect for the error condition. Symptoms + are that #ptr, which is used as a sqInt, is incorrectly declared as (char *) due to a + left over unreferenced declaration in one of the inlined methods. + The bug exists as of VMMaker-dtl.342 and is corrected in VMMaker-dtl.343." + + | ma maState | + ma := Smalltalk classNamed: #MemoryAccess. + ma ifNil: [^ self + "requires these accessors in combination with object memory / interpreter refactoring in order to reproduce bug"]. + maState := ma isEnabled. + [ | s cg strm meth | + ma enable. + cg := CCodeGenerator new initialize. + cg declareMethodsStatic: false. + Interpreter initializeCodeGenerator: cg. + cg vmClass: Interpreter. + strm := ReadWriteStream on: ''. + cg emitCCodeOn: strm doInlining: true doAssertions: false. + meth := cg methodNamed: 'reverseDisplayFrom:to:' . + strm := ReadWriteStream on: ''. + meth emitCCodeOn: strm generator: cg. + s := strm contents. + self shouldnt: ('*char #ptr;*' match: s). + self should: ('*sqInt ptr;*' match: s) + ] ensure: [maState + ifTrue: [ma enable] + ifFalse: [ma disable]] + ! Item was changed: ----- Method: SlangTest>>testSetInstanceVariableWithAnAccessorMethod (in category 'testing intermediate variable removal') ----- testSetInstanceVariableWithAnAccessorMethod "Intermediate variable from parameter of accessor method should be removed. This is an existing limitation of the inliner, and could be improved for better code generation. It is not a bug." | stssi s | + stssi := SlangTestSupportInterpreter inline: true. + s := (stssi asCString: #setInstanceVariableWithAnAccessorMethod) - stssi := SlangTestSupportInterpreter inline: false. - s := (stssi asInlinedCString: #setInstanceVariableWithAnAccessorMethod) copyReplaceAll: 'setInstanceVariableWithAnAccessorMethod' with: 'methodName'. + self deny: (s includesSubString: 'sqInt oop'). + self assert: (s includesSubString: 'aVariable = remap('). - self assert: (s includesSubString: 'aVariable = remap(objectMemory, nilObj);'). + "Should be translated to something similar to this: - "Should be translated like this: aVariable = remap(objectMemory, nilObj); Not like this: oop = remap(objectMemory, nilObj); aVariable = oop;" ! Item was added: + ----- Method: TMethod>>removeUnreferencedDeclarations (in category 'inlining') ----- + removeUnreferencedDeclarations + "Variables may have been eliminated during inlining. Remove declarations for those variables." + declarations keys copy + do: [:key | (args , locals includes: key) + ifFalse: [declarations removeKey: key]]! Item was changed: ----- Method: TMethod>>tryToInlineMethodsIn: (in category 'inlining') ----- tryToInlineMethodsIn: aCodeGen "Expand any (complete) inline methods called by this method. Set the complete bit when all inlining has been done. Return true if something was inlined." | stmtLists didSomething newStatements sendsToInline | self definedAsMacro ifTrue: [complete := true. ^false]. didSomething := false. sendsToInline := Dictionary new: 100. parseTree nodesDo: [:node| (self inlineableFunctionCall: node in: aCodeGen) ifTrue: [sendsToInline at: node put: (self inlineFunctionCall: node in: aCodeGen)]] unless: "Don't inline the arguments to asserts to keep the asserts readable" [:node| node isSend and: [node selector == #cCode:inSmalltalk: or: [aCodeGen isAssertSelector: node selector]]]. sendsToInline isEmpty ifFalse: [didSomething := true. + self removeUnreferencedDeclarations. parseTree := parseTree replaceNodesIn: sendsToInline]. didSomething ifTrue: [writtenToGlobalVarsCache := nil. ^didSomething]. stmtLists := self statementsListsForInliningIn: aCodeGen. stmtLists do: [:stmtList| newStatements := OrderedCollection new: 100. stmtList statements do: [:stmt| (self inlineCodeOrNilForStatement: stmt in: aCodeGen) ifNil: [newStatements addLast: stmt] ifNotNil: [:inlinedStmts| didSomething := true. newStatements addAllLast: inlinedStmts]]. stmtList setStatements: newStatements asArray]. didSomething ifTrue: [writtenToGlobalVarsCache := nil. ^didSomething]. complete ifFalse: [self checkForCompleteness: stmtLists in: aCodeGen. complete ifTrue: [ didSomething := true ]]. "marking a method complete is progress" ^didSomething! Item was removed: - ----- Method: VMClass class>>initializeCodeGenerator: (in category 'translation') ----- - initializeCodeGenerator: cg - "Load a code generator with classes in a manner suitable for generating - code for this class." - - super initializeCodeGenerator: cg. - VMMaker addMemoryAccessTo: cg. - ^cg - !

1 0

[commit][2871] CogVM source as per VMMaker.oscog-eem.624
by commits＠squeakvm.org 01 Mar '14

01 Mar '14

Revision: 2871 Author: eliot Date: 2014-03-01 07:54:53 -0800 (Sat, 01 Mar 2014) Log Message: ----------- CogVM source as per VMMaker.oscog-eem.624 Comment and coordinate the various examplePlugins.int/ext files. Spur: Instance printing should not print free chunks ;-) Remember to invoke markAndTraceOrFreeMachineCode: in the mark phase of full GC. Add classOrNilAtIndex: and use it in places where a nil return is unacceptable (fetchClassOf:, especially for isKindOfClass: when given garbage in printOop:). Improve spread in Spur's identity hash from 64% to 75%. Make primitiveSizeInBytesOfInstance accept 2 args in Newspeak for VMMirror. Use followForward: when accessing the elements of the array(s) in become, since there's nothing that ensures uniqueness and/or disjointness in the elements. Hence explicitly filter-out an object becomming itself. Modified Paths: -------------- branches/Cog/nscogsrc/examplePlugins.ext branches/Cog/nscogsrc/examplePlugins.int branches/Cog/nscogsrc/vm/cogit.c branches/Cog/nscogsrc/vm/cogit.h branches/Cog/nscogsrc/vm/cogmethod.h branches/Cog/nscogsrc/vm/cointerp.c branches/Cog/nscogsrc/vm/cointerp.h branches/Cog/nscogsrc/vm/gcc3x-cointerp.c branches/Cog/nscogsrc/vm/interp.h branches/Cog/nscogsrc/vm/vmCallback.h branches/Cog/nsspurstacksrc/examplePlugins.ext branches/Cog/nsspurstacksrc/examplePlugins.int branches/Cog/nsspurstacksrc/vm/gcc3x-interp.c branches/Cog/nsspurstacksrc/vm/interp.c branches/Cog/nsspurstacksrc/vm/interp.h branches/Cog/nsspurstacksrc/vm/vmCallback.h branches/Cog/nssrc/examplePlugins.ext branches/Cog/nssrc/examplePlugins.int branches/Cog/spursrc/examplePlugins.ext branches/Cog/spursrc/examplePlugins.int branches/Cog/spursrc/vm/cogit.c branches/Cog/spursrc/vm/cogit.h branches/Cog/spursrc/vm/cogmethod.h branches/Cog/spursrc/vm/cointerp.c branches/Cog/spursrc/vm/cointerp.h branches/Cog/spursrc/vm/gcc3x-cointerp.c branches/Cog/spursrc/vm/interp.h branches/Cog/spursrc/vm/vmCallback.h branches/Cog/spurstacksrc/examplePlugins.ext branches/Cog/spurstacksrc/examplePlugins.int branches/Cog/spurstacksrc/vm/gcc3x-interp.c branches/Cog/spurstacksrc/vm/interp.c branches/Cog/spurstacksrc/vm/interp.h branches/Cog/spurstacksrc/vm/vmCallback.h branches/Cog/src/examplePlugins.ext branches/Cog/src/examplePlugins.int branches/Cog/src/vm/cogit.c branches/Cog/src/vm/cogit.h branches/Cog/src/vm/cogmethod.h branches/Cog/src/vm/cointerp.c branches/Cog/src/vm/cointerp.h branches/Cog/src/vm/cointerpmt.c branches/Cog/src/vm/cointerpmt.h branches/Cog/src/vm/gcc3x-cointerp.c branches/Cog/src/vm/gcc3x-cointerpmt.c branches/Cog/src/vm/interp.h branches/Cog/src/vm/vmCallback.h branches/Cog/stacksrc/examplePlugins.ext branches/Cog/stacksrc/examplePlugins.int branches/Cog/stacksrc/vm/gcc3x-interp.c branches/Cog/stacksrc/vm/interp.c branches/Cog/stacksrc/vm/interp.h branches/Cog/stacksrc/vm/vmCallback.h Added Paths: ----------- branches/Cog/nsspursrc/ branches/Cog/nsspursrc/examplePlugins.ext branches/Cog/nsspursrc/examplePlugins.int branches/Cog/nsspursrc/vm/ branches/Cog/nsspursrc/vm/cogit.c branches/Cog/nsspursrc/vm/cogit.h branches/Cog/nsspursrc/vm/cogmethod.h branches/Cog/nsspursrc/vm/cointerp.c branches/Cog/nsspursrc/vm/cointerp.h branches/Cog/nsspursrc/vm/exampleSqNamedPrims.h branches/Cog/nsspursrc/vm/gcc3x-cointerp.c branches/Cog/nsspursrc/vm/interp.h branches/Cog/nsspursrc/vm/vmCallback.h Property Changed: ---------------- branches/Cog/platforms/Cross/vm/sqSCCSVersion.h Modified: branches/Cog/nscogsrc/examplePlugins.ext =================================================================== --- branches/Cog/nscogsrc/examplePlugins.ext 2014-02-23 15:51:51 UTC (rev 2870) +++ branches/Cog/nscogsrc/examplePlugins.ext 2014-03-01 15:54:53 UTC (rev 2871) @@ -1,31 +1,4 @@ -# Automatically generated makefile include for external plugins +# This is an example external plugin list. +# Edit plugins.ext in vm build dir to specify the external plugins to be built. EXTERNAL_PLUGINS = \ -AsynchFilePlugin \ -BMPReadWriterPlugin \ -B2DPlugin \ -BitBltPlugin \ -DSAPrims \ -ZipPlugin \ -DropPlugin \ -FileCopyPlugin \ -FilePlugin \ -FloatArrayPlugin \ -FloatMathPlugin \ -JPEGReadWriter2Plugin \ -JPEGReaderPlugin \ -LargeIntegers \ -Matrix2x3Plugin \ -MiscPrimitivePlugin \ -IA32ABI \ -RePlugin \ -SecurityPlugin \ -SocketPlugin \ -SoundPlugin \ -SqueakSSL \ -SurfacePlugin \ -SqueakFFIPrims \ -UUIDPlugin \ -UnixOSProcessPlugin \ -VMProfileLinuxSupportPlugin \ -VMProfileMacSupportPlugin \ -Win32OSProcessPlugin +SqueakSSL Modified: branches/Cog/nscogsrc/examplePlugins.int =================================================================== --- branches/Cog/nscogsrc/examplePlugins.int 2014-02-23 15:51:51 UTC (rev 2870) +++ branches/Cog/nscogsrc/examplePlugins.int 2014-03-01 15:54:53 UTC (rev 2871) @@ -1,2 +1,28 @@ -# Automatically generated makefile include for internal plugins -INTERNAL_PLUGINS = +# This is an example internal plugin list. +# Edit plugins.int in vm build dir to specify internal plugins to be built and +# linked into the vm. +INTERNAL_PLUGINS = \ +AsynchFilePlugin \ +BMPReadWriterPlugin \ +B2DPlugin \ +BitBltPlugin \ +DSAPrims \ +DropPlugin \ +FileCopyPlugin \ +FilePlugin \ +FloatArrayPlugin \ +FloatMathPlugin \ +ZipPlugin \ +JPEGReadWriter2Plugin \ +JPEGReaderPlugin \ +LargeIntegers \ +Matrix2x3Plugin \ +MiscPrimitivePlugin \ +IA32ABI \ +RePlugin \ +SecurityPlugin \ +SocketPlugin \ +SurfacePlugin \ +UUIDPlugin \ +UnixOSProcessPlugin \ +VMProfileMacSupportPlugin Modified: branches/Cog/nscogsrc/vm/cogit.c =================================================================== --- branches/Cog/nscogsrc/vm/cogit.c 2014-02-23 15:51:51 UTC (rev 2870) +++ branches/Cog/nscogsrc/vm/cogit.c 2014-03-01 15:54:53 UTC (rev 2871) @@ -1,9 +1,9 @@ /* Automatically generated by - CCodeGenerator VMMaker.oscog-eem.600 uuid: 48f5953c-233c-4026-96a0-ffef9cea1c72 + CCodeGenerator VMMaker.oscog-eem.624 uuid: 7671143a-d3d3-45cb-b481-210d4d0c4073 from - StackToRegisterMappingCogit VMMaker.oscog-eem.600 uuid: 48f5953c-233c-4026-96a0-ffef9cea1c72 + StackToRegisterMappingCogit VMMaker.oscog-eem.624 uuid: 7671143a-d3d3-45cb-b481-210d4d0c4073 */ -static char __buildInfo[] = "StackToRegisterMappingCogit VMMaker.oscog-eem.600 uuid: 48f5953c-233c-4026-96a0-ffef9cea1c72 " __DATE__ ; +static char __buildInfo[] = "StackToRegisterMappingCogit VMMaker.oscog-eem.624 uuid: 7671143a-d3d3-45cb-b481-210d4d0c4073 " __DATE__ ; char *__cogitBuildInfo = __buildInfo; Modified: branches/Cog/nscogsrc/vm/cogit.h =================================================================== --- branches/Cog/nscogsrc/vm/cogit.h 2014-02-23 15:51:51 UTC (rev 2870) +++ branches/Cog/nscogsrc/vm/cogit.h 2014-03-01 15:54:53 UTC (rev 2871) @@ -1,5 +1,5 @@ /* Automatically generated by - CCodeGenerator VMMaker.oscog-eem.600 uuid: 48f5953c-233c-4026-96a0-ffef9cea1c72 + CCodeGenerator VMMaker.oscog-eem.624 uuid: 7671143a-d3d3-45cb-b481-210d4d0c4073 */ Modified: branches/Cog/nscogsrc/vm/cogmethod.h =================================================================== --- branches/Cog/nscogsrc/vm/cogmethod.h 2014-02-23 15:51:51 UTC (rev 2870) +++ branches/Cog/nscogsrc/vm/cogmethod.h 2014-03-01 15:54:53 UTC (rev 2871) @@ -1,5 +1,5 @@ /* Automatically generated by - CCodeGenerator VMMaker.oscog-eem.600 uuid: 48f5953c-233c-4026-96a0-ffef9cea1c72 + CCodeGenerator VMMaker.oscog-eem.624 uuid: 7671143a-d3d3-45cb-b481-210d4d0c4073 */ typedef struct { Modified: branches/Cog/nscogsrc/vm/cointerp.c =================================================================== --- branches/Cog/nscogsrc/vm/cointerp.c 2014-02-23 15:51:51 UTC (rev 2870) +++ branches/Cog/nscogsrc/vm/cointerp.c 2014-03-01 15:54:53 UTC (rev 2871) @@ -1,9 +1,9 @@ /* Automatically generated by - CCodeGeneratorGlobalStructure VMMaker.oscog-eem.620 uuid: 0c6991e0-acb5-4250-84d8-cdeebfac41e9 + CCodeGeneratorGlobalStructure VMMaker.oscog-eem.624 uuid: 7671143a-d3d3-45cb-b481-210d4d0c4073 from - CoInterpreter VMMaker.oscog-eem.620 uuid: 0c6991e0-acb5-4250-84d8-cdeebfac41e9 + CoInterpreter VMMaker.oscog-eem.624 uuid: 7671143a-d3d3-45cb-b481-210d4d0c4073 */ -static char __buildInfo[] = "CoInterpreter VMMaker.oscog-eem.620 uuid: 0c6991e0-acb5-4250-84d8-cdeebfac41e9 " __DATE__ ; +static char __buildInfo[] = "CoInterpreter VMMaker.oscog-eem.624 uuid: 7671143a-d3d3-45cb-b481-210d4d0c4073 " __DATE__ ; char *__interpBuildInfo = __buildInfo; @@ -1145,7 +1145,7 @@ static void rewriteMethodCacheEntryForExternalPrimitiveToFunction(void (*localPrimAddress)(void)); static sqInt roomToPushNArgs(sqInt n); static void runLeakCheckerForFullGC(sqInt fullGCFlag); -static sqInt safeObjectAfter(sqInt oop); +static usqInt safeObjectAfter(sqInt oop); static sqInt safePrintStringOf(sqInt oop); usqInt scavengeThresholdAddress(void); EXPORT(sqInt) sendInvokeCallbackContext(VMCallbackContext *vmCallbackContext); @@ -2032,7 +2032,7 @@ /* 574 */ (void (*)(void))0, /* 575 */ (void (*)(void))0, 0 }; -const char *interpreterVersion = "Newspeak Virtual Machine CoInterpreter_VMMaker.oscog-eem.620"; +const char *interpreterVersion = "Newspeak Virtual Machine CoInterpreter_VMMaker.oscog-eem.624"; sqInt minBackwardJumpCountForCompile = MinBackwardJumpCountForCompile /* 10 */; volatile int sendTrace; @@ -4826,7 +4826,6 @@ GIV(framePointer) = localFP; ceEnterCogCodePopReceiverReg(); - null; goto l307; } localIP = pointerForOop(longAt(localFP + FoxIFSavedIP)); @@ -4844,7 +4843,7 @@ /* begin fetchNextBytecode */ currentBytecode = (byteAtPointer(++localIP)) + GIV(bytecodeSetSelector); - null; + /* return self */ l307: /* end baseFrameReturn */; goto l304; } @@ -23661,17 +23660,15 @@ sqInt header1; sqInt header2; sqInt header3; - sqInt header4; usqInt lastWord; sqInt newFreeChunk; sqInt newOop; - sqInt next; + usqInt next; sqInt oop; sqInt realHeader; sqInt sz; sqInt sz1; sqInt sz2; - sqInt sz3; sqInt target; usqInt w; @@ -23682,21 +23679,7 @@ /* begin objectAfterWhileForwarding: */ header2 = longAt(oop); if ((header2 & MarkBit) == 0) { - /* begin objectAfter: */ - if (!(asserta(oopisLessThan(oop, GIV(freeStart))))) { - error("no objects after the end of memory"); - } - if (((longAt(oop)) & TypeMask) == HeaderTypeFree) { - sz2 = (longAt(oop)) & AllButTypeMask; - } - else { - /* begin sizeBitsOf: */ - header3 = longAt(oop); - sz2 = ((header3 & TypeMask) == HeaderTypeSizeAndClass - ? (longAt(oop - (BytesPerWord * 2))) & LongSizeMask - : header3 & SizeMask); - } - next = (oop + sz2) + (headerTypeBytes[(longAt(oop + sz2)) & TypeMask]); + next = ((sqInt) (objectAfter(oop))); goto l1; } fwdBlock1 = (header2 & AllButMarkBitAndTypeMask) << 1; @@ -23711,7 +23694,7 @@ else { sz1 = realHeader & SizeMask; } - next = (oop + sz1) + (headerTypeBytes[(longAt(oop + sz1)) & TypeMask]); + next = ((sqInt) ((oop + sz1) + (headerTypeBytes[(longAt(oop + sz1)) & TypeMask]))); l1: /* end objectAfterWhileForwarding: */; if (!(((longAt(oop)) & TypeMask) == HeaderTypeFree)) { @@ -23765,18 +23748,18 @@ } /* begin safeObjectAfter: */ if (((longAt(newFreeChunk)) & TypeMask) == HeaderTypeFree) { - sz3 = (longAt(newFreeChunk)) & AllButTypeMask; + sz2 = (longAt(newFreeChunk)) & AllButTypeMask; } else { /* begin sizeBitsOf: */ - header4 = longAt(newFreeChunk); - sz3 = ((header4 & TypeMask) == HeaderTypeSizeAndClass + header3 = longAt(newFreeChunk); + sz2 = ((header3 & TypeMask) == HeaderTypeSizeAndClass ? (longAt(newFreeChunk - (BytesPerWord * 2))) & LongSizeMask - : header4 & SizeMask); + : header3 & SizeMask); } - next = ((newFreeChunk + sz3) >= GIV(freeStart) + next = ((newFreeChunk + sz2) >= GIV(freeStart) ? GIV(freeStart) - : (newFreeChunk + sz3) + (headerTypeBytes[(longAt(newFreeChunk + sz3)) & TypeMask])); + : (newFreeChunk + sz2) + (headerTypeBytes[(longAt(newFreeChunk + sz2)) & TypeMask])); assert((next == GIV(freeStart)) || (next == (oopFromChunk(GIV(compEnd))))); if (next == GIV(freeStart)) { @@ -50175,7 +50158,7 @@ given object or free chunk in memory. Return freeStart when enumeration is complete. This is for assertion checking only. */ -static sqInt +static usqInt safeObjectAfter(sqInt oop) { DECL_MAYBE_SQ_GLOBAL_STRUCT sqInt header; Modified: branches/Cog/nscogsrc/vm/cointerp.h =================================================================== --- branches/Cog/nscogsrc/vm/cointerp.h 2014-02-23 15:51:51 UTC (rev 2870) +++ branches/Cog/nscogsrc/vm/cointerp.h 2014-03-01 15:54:53 UTC (rev 2871) @@ -1,5 +1,5 @@ /* Automatically generated by - CCodeGeneratorGlobalStructure VMMaker.oscog-eem.620 uuid: 0c6991e0-acb5-4250-84d8-cdeebfac41e9 + CCodeGeneratorGlobalStructure VMMaker.oscog-eem.624 uuid: 7671143a-d3d3-45cb-b481-210d4d0c4073 */ Modified: branches/Cog/nscogsrc/vm/gcc3x-cointerp.c =================================================================== --- branches/Cog/nscogsrc/vm/gcc3x-cointerp.c 2014-02-23 15:51:51 UTC (rev 2870) +++ branches/Cog/nscogsrc/vm/gcc3x-cointerp.c 2014-03-01 15:54:53 UTC (rev 2871) @@ -2,11 +2,11 @@ /* Automatically generated by - CCodeGeneratorGlobalStructure VMMaker.oscog-eem.620 uuid: 0c6991e0-acb5-4250-84d8-cdeebfac41e9 + CCodeGeneratorGlobalStructure VMMaker.oscog-eem.624 uuid: 7671143a-d3d3-45cb-b481-210d4d0c4073 from - CoInterpreter VMMaker.oscog-eem.620 uuid: 0c6991e0-acb5-4250-84d8-cdeebfac41e9 + CoInterpreter VMMaker.oscog-eem.624 uuid: 7671143a-d3d3-45cb-b481-210d4d0c4073 */ -static char __buildInfo[] = "CoInterpreter VMMaker.oscog-eem.620 uuid: 0c6991e0-acb5-4250-84d8-cdeebfac41e9 " __DATE__ ; +static char __buildInfo[] = "CoInterpreter VMMaker.oscog-eem.624 uuid: 7671143a-d3d3-45cb-b481-210d4d0c4073 " __DATE__ ; char *__interpBuildInfo = __buildInfo; @@ -1148,7 +1148,7 @@ static void rewriteMethodCacheEntryForExternalPrimitiveToFunction(void (*localPrimAddress)(void)); static sqInt roomToPushNArgs(sqInt n); static void runLeakCheckerForFullGC(sqInt fullGCFlag); -static sqInt safeObjectAfter(sqInt oop); +static usqInt safeObjectAfter(sqInt oop); static sqInt safePrintStringOf(sqInt oop); usqInt scavengeThresholdAddress(void); EXPORT(sqInt) sendInvokeCallbackContext(VMCallbackContext *vmCallbackContext); @@ -2035,7 +2035,7 @@ /* 574 */ (void (*)(void))0, /* 575 */ (void (*)(void))0, 0 }; -const char *interpreterVersion = "Newspeak Virtual Machine CoInterpreter_VMMaker.oscog-eem.620"; +const char *interpreterVersion = "Newspeak Virtual Machine CoInterpreter_VMMaker.oscog-eem.624"; sqInt minBackwardJumpCountForCompile = MinBackwardJumpCountForCompile /* 10 */; volatile int sendTrace; @@ -4835,7 +4835,6 @@ GIV(framePointer) = localFP; ceEnterCogCodePopReceiverReg(); - null; goto l307; } localIP = pointerForOop(longAt(localFP + FoxIFSavedIP)); @@ -4853,7 +4852,7 @@ /* begin fetchNextBytecode */ currentBytecode = (byteAtPointer(++localIP)) + GIV(bytecodeSetSelector); - null; + /* return self */ l307: /* end baseFrameReturn */; goto l304; } @@ -23670,17 +23669,15 @@ sqInt header1; sqInt header2; sqInt header3; - sqInt header4; usqInt lastWord; sqInt newFreeChunk; sqInt newOop; - sqInt next; + usqInt next; sqInt oop; sqInt realHeader; sqInt sz; sqInt sz1; sqInt sz2; - sqInt sz3; sqInt target; usqInt w; @@ -23691,21 +23688,7 @@ /* begin objectAfterWhileForwarding: */ header2 = longAt(oop); if ((header2 & MarkBit) == 0) { - /* begin objectAfter: */ - if (!(asserta(oopisLessThan(oop, GIV(freeStart))))) { - error("no objects after the end of memory"); - } - if (((longAt(oop)) & TypeMask) == HeaderTypeFree) { - sz2 = (longAt(oop)) & AllButTypeMask; - } - else { - /* begin sizeBitsOf: */ - header3 = longAt(oop); - sz2 = ((header3 & TypeMask) == HeaderTypeSizeAndClass - ? (longAt(oop - (BytesPerWord * 2))) & LongSizeMask - : header3 & SizeMask); - } - next = (oop + sz2) + (headerTypeBytes[(longAt(oop + sz2)) & TypeMask]); + next = ((sqInt) (objectAfter(oop))); goto l1; } fwdBlock1 = (header2 & AllButMarkBitAndTypeMask) << 1; @@ -23720,7 +23703,7 @@ else { sz1 = realHeader & SizeMask; } - next = (oop + sz1) + (headerTypeBytes[(longAt(oop + sz1)) & TypeMask]); + next = ((sqInt) ((oop + sz1) + (headerTypeBytes[(longAt(oop + sz1)) & TypeMask]))); l1: /* end objectAfterWhileForwarding: */; if (!(((longAt(oop)) & TypeMask) == HeaderTypeFree)) { @@ -23774,18 +23757,18 @@ } /* begin safeObjectAfter: */ if (((longAt(newFreeChunk)) & TypeMask) == HeaderTypeFree) { - sz3 = (longAt(newFreeChunk)) & AllButTypeMask; + sz2 = (longAt(newFreeChunk)) & AllButTypeMask; } else { /* begin sizeBitsOf: */ - header4 = longAt(newFreeChunk); - sz3 = ((header4 & TypeMask) == HeaderTypeSizeAndClass + header3 = longAt(newFreeChunk); + sz2 = ((header3 & TypeMask) == HeaderTypeSizeAndClass ? (longAt(newFreeChunk - (BytesPerWord * 2))) & LongSizeMask - : header4 & SizeMask); + : header3 & SizeMask); } - next = ((newFreeChunk + sz3) >= GIV(freeStart) + next = ((newFreeChunk + sz2) >= GIV(freeStart) ? GIV(freeStart) - : (newFreeChunk + sz3) + (headerTypeBytes[(longAt(newFreeChunk + sz3)) & TypeMask])); + : (newFreeChunk + sz2) + (headerTypeBytes[(longAt(newFreeChunk + sz2)) & TypeMask])); assert((next == GIV(freeStart)) || (next == (oopFromChunk(GIV(compEnd))))); if (next == GIV(freeStart)) { @@ -50184,7 +50167,7 @@ given object or free chunk in memory. Return freeStart when enumeration is complete. This is for assertion checking only. */ -static sqInt +static usqInt safeObjectAfter(sqInt oop) { DECL_MAYBE_SQ_GLOBAL_STRUCT sqInt header; Modified: branches/Cog/nscogsrc/vm/interp.h =================================================================== --- branches/Cog/nscogsrc/vm/interp.h 2014-02-23 15:51:51 UTC (rev 2870) +++ branches/Cog/nscogsrc/vm/interp.h 2014-03-01 15:54:53 UTC (rev 2871) @@ -1,5 +1,5 @@ /* Automatically generated by - CCodeGeneratorGlobalStructure VMMaker.oscog-eem.620 uuid: 0c6991e0-acb5-4250-84d8-cdeebfac41e9 + CCodeGeneratorGlobalStructure VMMaker.oscog-eem.624 uuid: 7671143a-d3d3-45cb-b481-210d4d0c4073 */ #define VM_PROXY_MAJOR 1 Modified: branches/Cog/nscogsrc/vm/vmCallback.h =================================================================== --- branches/Cog/nscogsrc/vm/vmCallback.h 2014-02-23 15:51:51 UTC (rev 2870) +++ branches/Cog/nscogsrc/vm/vmCallback.h 2014-03-01 15:54:53 UTC (rev 2871) @@ -1,5 +1,5 @@ /* Automatically generated by - CCodeGeneratorGlobalStructure VMMaker.oscog-eem.620 uuid: 0c6991e0-acb5-4250-84d8-cdeebfac41e9 + CCodeGeneratorGlobalStructure VMMaker.oscog-eem.624 uuid: 7671143a-d3d3-45cb-b481-210d4d0c4073 */ #define VM_CALLBACK_INC 1 Added: branches/Cog/nsspursrc/examplePlugins.ext =================================================================== --- branches/Cog/nsspursrc/examplePlugins.ext (rev 0) +++ branches/Cog/nsspursrc/examplePlugins.ext 2014-03-01 15:54:53 UTC (rev 2871) @@ -0,0 +1,4 @@ +# This is an example external plugin list. +# Edit plugins.ext in vm build dir to specify the external plugins to be built. +EXTERNAL_PLUGINS = \ +SqueakSSL Added: branches/Cog/nsspursrc/examplePlugins.int =================================================================== --- branches/Cog/nsspursrc/examplePlugins.int (rev 0) +++ branches/Cog/nsspursrc/examplePlugins.int 2014-03-01 15:54:53 UTC (rev 2871) @@ -0,0 +1,28 @@ +# This is an example internal plugin list. +# Edit plugins.int in vm build dir to specify internal plugins to be built and +# linked into the vm. +INTERNAL_PLUGINS = \ +AsynchFilePlugin \ +BMPReadWriterPlugin \ +B2DPlugin \ +BitBltPlugin \ +DSAPrims \ +DropPlugin \ +FileCopyPlugin \ +FilePlugin \ +FloatArrayPlugin \ +FloatMathPlugin \ +ZipPlugin \ +JPEGReadWriter2Plugin \ +JPEGReaderPlugin \ +LargeIntegers \ +Matrix2x3Plugin \ +MiscPrimitivePlugin \ +IA32ABI \ +RePlugin \ +SecurityPlugin \ +SocketPlugin \ +SurfacePlugin \ +UUIDPlugin \ +UnixOSProcessPlugin \ +VMProfileMacSupportPlugin Added: branches/Cog/nsspursrc/vm/cogit.c =================================================================== --- branches/Cog/nsspursrc/vm/cogit.c (rev 0) +++ branches/Cog/nsspursrc/vm/cogit.c 2014-03-01 15:54:53 UTC (rev 2871) @@ -0,0 +1,22420 @@ +/* Automatically generated by + CCodeGenerator VMMaker.oscog-eem.622 uuid: 7a33af68-b347-4a24-b960-e8755f7c49f3 + from + StackToRegisterMappingCogit VMMaker.oscog-eem.622 uuid: 7a33af68-b347-4a24-b960-e8755f7c49f3 + */ +static char __buildInfo[] = "StackToRegisterMappingCogit VMMaker.oscog-eem.622 uuid: 7a33af68-b347-4a24-b960-e8755f7c49f3 " __DATE__ ; +char *__cogitBuildInfo = __buildInfo; + + + +#include <stddef.h> +#include "sq.h" +#include "sqCogStackAlignment.h" +#include "cogmethod.h" +#if COGMTVM +#include "cointerpmt.h" +#else +#include "cointerp.h" +#endif +#include "cogit.h" +#include "dispdbg.h" + +typedef struct _AbstractInstruction { + char opcode; + char machineCodeSize; + char maxSize; + unsigned long operands [3]; + unsigned long address; + struct _AbstractInstruction *dependent; + unsigned char machineCode [10]; + } AbstractInstruction; + +#define CogIA32Compiler AbstractInstruction + + +typedef struct { + AbstractInstruction *fakeHeader; + AbstractInstruction *fillInstruction; + sqInt numArgs; + sqInt numCopied; + sqInt numInitialNils; + sqInt startpc; + AbstractInstruction *entryLabel; + AbstractInstruction *stackCheckLabel; + sqInt span; + } BlockStart; + +#define CogBlockStart BlockStart + + +typedef struct _BytecodeDescriptor { + sqInt (*generator )(void); + sqInt (*spanFunction )(struct _BytecodeDescriptor *,sqInt,sqInt,sqInt); + sqInt (*needsFrameFunction )(sqInt); + signed char stackDelta; + unsigned char opcode; + unsigned char numBytes; + unsigned isBranchTrue : 1; + unsigned isBranchFalse : 1; + unsigned isReturn : 1; + unsigned isBlockCreation : 1; + unsigned isMapped : 1; + unsigned isMappedInBlock : 1; + unsigned isExtension : 1; + } BytecodeDescriptor; + +#define CogBytecodeDescriptor BytecodeDescriptor + + +typedef struct { + sqInt annotation; + AbstractInstruction *instruction; + } InstructionAnnotation; + +#define CogInstructionAnnotation InstructionAnnotation + + +typedef struct { + sqInt (*primitiveGenerator )(void); + sqInt primNumArgs; + sqInt (*enabled )(sqInt); + } PrimitiveDescriptor; + +#define CogPrimitiveDescriptor PrimitiveDescriptor + + +typedef struct { + AbstractInstruction *targetInstruction; + sqInt instructionIndex; + sqInt simStackPtr; + } BytecodeFixup; + +#define CogSSBytecodeFixup BytecodeFixup + + +typedef struct { + char type; + char spilled; + char annotateUse; + sqInt registerr; + sqInt offset; + sqInt constant; + sqInt bcptr; + } CogSimStackEntry; + + +typedef struct { + sqInt isReceiverResultRegLive; + CogSimStackEntry *ssEntry; + } CogSSOptStatus; + + + +/*** Constants ***/ +#define AddCqR 85 +#define AddCwR 92 +#define AddRdRd 99 +#define AddRR 78 +#define AlignmentNops 2 +#define AltBlockCreationBytecodeSize 3 +#define AltNSSendIsPCAnnotated 0 +#define AndCqR 87 +#define AndCwR 94 +#define AndRR 80 +#define AnnotationShift 5 +#define Arg0Reg -7 +#define Arg1Reg -8 +#define ArithmeticShiftRightCqR 71 +#define ArithmeticShiftRightRR 72 +#define BadRegisterSet 1 +#define BlockCreationBytecodeSize 4 +#define Call 9 +#define CDQ 105 +#define ClassMethodContextCompactIndex 36 +#define ClassReg -5 +#define ClosureFirstCopiedValueIndex 3 +#define ClosureNumArgsIndex 2 +#define ClosureOuterContextIndex 0 +#define ClosureStartPCIndex 1 +#define CMBlock 3 +#define CMClosedPIC 4 +#define CMFree 1 +#define CMMaxUsageCount 7 +#define CMMethod 2 +#define CMOpenPIC 5 +#define CMPXCHGAwR 113 +#define CMPXCHGMwrR 114 +#define CmpCqR 84 +#define CmpCwR 91 +#define CmpRdRd 98 +#define CmpRR 77 +#define ConstZero 1 +#define ConvertRRd 104 +#define CPUID 108 +#define Debug DEBUGVM +#define DisplacementMask 0x1F +#define DisplacementX2N 32 +#define DivRdRd 102 +#define DPFPReg0 -9 +#define DPFPReg1 -10 +#define DPFPReg2 -11 +#define DPFPReg3 -12 +#define DPFPReg4 -13 +#define DPFPReg5 -14 +#define DPFPReg6 -15 +#define DPFPReg7 -16 +#define EAX 0 +#define EBP 5 +#define EBX 3 +#define ECX 1 +#define EDI 7 +#define EDX 2 +#define EncounteredUnknownBytecode -6 +#define ESI 6 +#define ESP 4 +#define Fill16 5 +#define Fill32 6 +#define FillFromWord 7 +#define FirstAnnotation 64 +#define FirstJump 12 +#define FirstShortJump 15 +#define FoxCallerSavedIP 4 +#define FoxMethod -4 +#define FoxMFReceiver -12 +#define FoxThisContext -8 +#define FPReg -1 +#define GCModeBecome 4 +#define GCModeFull 1 +#define GCModeIncr 2 +#define GCModeScavenge 3 +#define GPRegMax -3 +#define GPRegMin -8 +#define HasBytecodePC 5 +#define HeaderIndex 0 +#define IDIVR 106 +#define IMULRR 107 +#define InstanceSpecificationIndex 2 +#define InstructionPointerIndex 1 +#define InsufficientCodeSpace -2 +#define IsAbsPCReference 4 +#define IsDisplacementX2N 1 +#define IsNSSendCall 2 +#define IsObjectReference 3 +#define IsRelativeCall 6 +#define IsSendCall 7 +#define Jump 15 +#define JumpAbove 30 +#define JumpAboveOrEqual 29 +#define JumpBelow 28 +#define JumpBelowOrEqual 31 +#define JumpCarry 22 +#define JumpFPEqual 32 +#define JumpFPGreater 36 +#define JumpFPGreaterOrEqual 37 +#define JumpFPLess 34 +#define JumpFPLessOrEqual 35 +#define JumpFPNotEqual 33 +#define JumpFPOrdered 38 +#define JumpFPUnordered 39 +#define JumpGreater 26 +#define JumpGreaterOrEqual 25 +#define JumpLess 24 +#define JumpLessOrEqual 27 +#define JumpLong 12 +#define JumpLongNonZero 14 +#define JumpLongZero 13 +#define JumpNegative 18 +#define JumpNoCarry 23 +#define JumpNonNegative 19 +#define JumpNonZero 17 +#define JumpNoOverflow 21 +#define JumpOverflow 20 +#define JumpR 11 +#define JumpZero 16 +#define Label 1 +#define LastJump 39 +#define LFENCE 109 +#define LinkReg -17 +#define LOCK 112 +#define LoadEffectiveAddressMwrR 69 +#define LogicalShiftLeftCqR 75 +#define LogicalShiftLeftRR 76 +#define LogicalShiftRightCqR 73 +#define LogicalShiftRightRR 74 +#define MapEnd 0 +#define MaxCompiledPrimitiveIndex 222 +#define MaxMethodSize 65535 +#define MaxNegativeErrorCode -7 +#define MaxNumArgs 15 +#define MaxStackAllocSize 1572864 +#define MaxStackCheckOffset 0xFFF +#define MaxUnitDisplacement 31 +#define MaxX2NDisplacement 992 +#define MethodCacheClass 2 +#define MethodCacheMask 0xFFC +#define MethodCacheMethod 3 +#define MethodCacheSelector 1 +#define MethodIndex 3 +#define MethodTooBig -4 +#define MFENCE 110 +#define MFMethodFlagHasContextFlag 1 +#define MFMethodFlagIsBlockFlag 2 +#define ModReg 3 +#define ModRegInd 0 +#define ModRegRegDisp32 2 +#define ModRegRegDisp8 1 +#define MoveAwR 41 +#define MoveCqR 58 +#define MoveCwR 59 +#define MoveM16rR 50 +#define MoveM64rRd 63 +#define MoveMbrR 54 +#define MoveMwrR 44 +#define MoveRAw 42 +#define MoveRdM64r 64 +#define MoveRdRd 62 +#define MoveRMbr 55 +#define MoveRMwr 45 +#define MoveRR 40 +#define MoveRXbrR 57 +#define MoveRXwrR 47 +#define MoveXbrRR 56 +#define MoveXwrRR 46 +#define MULTIPLEBYTECODESETS 1 +#define MulRdRd 101 +#define NegateR 70 +#define NewspeakVM 1 +#define Nop 8 +#define NotFullyInitialized -1 +#define NSSendIsPCAnnotated 1 +#define NumObjRefsInRuntime 2 +#define NumSendTrampolines 4 +#define NumTrampolines 58 +#define OrCqR 88 +#define OrCwR 95 +#define OrRR 81 +#define PopR 65 +#define PrefetchAw 68 +#define PrimCallCollectsProfileSamples 8 +#define PrimCallMayCallBack 4 +#define PrimCallNeedsNewMethod 1 +#define PrimCallNeedsPrimitiveFunction 2 +#define PushCw 67 +#define PushR 66 +#define ReceiverIndex 5 +#define ReceiverResultReg -3 +#define RetN 10 +#define SelectorCannotInterpret 34 +#define SelectorDoesNotUnderstand 20 +#define SenderIndex 0 +#define SendNumArgsReg -6 +#define SFENCE 111 +#define ShiftForWord 2 +#define SIB1 0 +#define SIB4 2 +#define SPReg -2 +#define SqrtRd 103 +#define SSBaseOffset 1 +#define SSConstant 2 +#define SSRegister 3 +#define SSSpill 4 +#define SubCqR 86 +#define SubCwR 93 +#define SubRdRd 100 +#define SubRR 79 +#define TempReg -4 +#define UnimplementedPrimitive -7 +#define ValueIndex 1 +#define XCHGAwR 115 +#define XCHGMwrR 116 +#define XCHGRR 117 +#define XMM0L 0 +#define XMM1L 2 +#define XMM2L 4 +#define XMM3L 6 +#define XMM4L 8 +#define XMM5L 10 +#define XMM6L 12 +#define XMM7L 14 +#define XorCwR 96 +#define XorRR 82 +#define YoungSelectorInPIC -5 + + +/*** Function Prototypes ***/ +static AbstractInstruction * gAndCqR(sqInt quickConstant, sqInt reg); +static AbstractInstruction * gArithmeticShiftRightRR(sqInt reg1, sqInt reg2); +sqInt abortOffset(void); +static sqInt abstractInstructionfollows(AbstractInstruction *theAbstractInstruction, AbstractInstruction *anAbstractInstruction); +static sqInt abstractRegisterForConcreteRegister(AbstractInstruction * self_in_abstractRegisterForConcreteRegister, sqInt reg); +static BlockStart * addBlockStartAtnumArgsnumCopiedspan(sqInt bytecodepc, sqInt numArgs, sqInt numCopied, sqInt span); +static void addCleanBlockStarts(void); +void addCogMethodsToHeapMap(void); +static AbstractInstruction * addDependent(AbstractInstruction * self_in_addDependent, AbstractInstruction *anInstruction); +static sqInt addressIsInFixups(AbstractInstruction *address); +static sqInt addressIsInInstructions(AbstractInstruction *address); +static sqInt addressOfEndOfCaseinCPIC(sqInt n, CogMethod *cPIC); +static void addToOpenPICList(CogMethod *anOpenPIC); +static void addToUnpairedMethodList(CogMethod *aCogMethod); +static void addToYoungReferrers(CogMethod *cogMethod); +static sqInt alignUptoRoutineBoundary(sqInt anAddress); +static sqInt allMachineCodeObjectReferencesValid(void); +static sqInt allMethodsHaveCorrectHeader(void); +static sqInt allocate(sqInt numBytes); +static sqInt allYoungObjectsAgeInFullGC(void); +static AbstractInstruction * annotateAbsolutePCRef(AbstractInstruction *abstractInstruction); +static void annotateBytecodeIfAnnotated(CogSimStackEntry *aSimStackEntry); +static AbstractInstruction * annotateBytecode(AbstractInstruction *abstractInstruction); +static AbstractInstruction * annotateobjRef(AbstractInstruction *abstractInstruction, sqInt anOop); +static AbstractInstruction * annotatewith(AbstractInstruction *abstractInstruction, sqInt annotationFlag); +static sqInt anyReferencesToRegisterinTopNItems(sqInt reg, sqInt n); +static void assertSaneJumpTarget(AbstractInstruction *jumpTarget); +static sqInt availableRegisterOrNil(void); +static sqInt blockCreationBytecodeSizeForHeader(sqInt methodHeader); +static sqInt blockDispatchTargetsForperformarg(CogMethod *cogMethod, usqInt (*binaryFunction)(sqInt mcpc, sqInt arg), sqInt arg); +sqInt bytecodePCForstartBcpcin(sqInt mcpc, sqInt startbcpc, CogBlockMethod *cogMethod); +static AbstractInstruction * CallNewspeakSend(sqInt callTarget); +static AbstractInstruction * CallRT(sqInt callTarget); +static AbstractInstruction * CallSend(sqInt callTarget); +static AbstractInstruction * gCmpCqR(sqInt quickConstant, sqInt reg); +static AbstractInstruction * gCmpCwR(sqInt wordConstant, sqInt reg); +static AbstractInstruction * gCmpRR(sqInt reg1, sqInt reg2); +static sqInt cacheTagIsMarked(sqInt cacheTag); +static sqInt callerSavedRegisterMask(AbstractInstruction * self_in_callerSavedRegisterMask); +static sqInt callInstructionByteSize(AbstractInstruction * self_in_callInstructionByteSize); +static sqInt callPrimitiveBytecode(void); +static sqInt callsAreRelative(AbstractInstruction * self_in_callsAreRelative); +static sqInt callTargetFromReturnAddress(AbstractInstruction * self_in_callTargetFromReturnAddress, sqInt callSiteReturnAddress); +static sqInt canDivQuoRem(AbstractInstruction * self_in_canDivQuoRem); +static sqInt canMulRR(AbstractInstruction * self_in_canMulRR); +static sqInt ceClosureCopyDescriptor(sqInt descriptor); +sqInt ceCPICMissreceiver(CogMethod *cPIC, sqInt receiver); +static sqInt ceImplicitReceiverForreceiverclass(sqInt selector, sqInt receiver, sqInt rcvrClass); +sqInt ceSICMiss(sqInt receiver); +void checkAssertsEnabledInCogit(void); +static sqInt checkIfValidObjectRefAndTargetpccogMethod(sqInt annotation, char *mcpc, sqInt cogMethod); +static sqInt checkIfValidObjectRefpccogMethod(sqInt annotation, char *mcpc, sqInt cogMethod); +sqInt checkIntegrityOfObjectReferencesInCode(sqInt fullGCFlag); +static sqInt checkMaybeObjRefAt(sqInt mcpc); +static void checkPrimitiveTableEnablers(void); +static sqInt checkValidInlineCacheTag(sqInt classIndexOrTagPattern); +static sqInt checkValidObjectReferencesInClosedPIC(CogMethod *cPIC); +static sqInt checkValidObjectReference(sqInt anOop); +static void clearCogCompiledCode(void); +static sqInt closedPICRefersToUnmarkedObject(CogMethod *cPIC); +static CogMethod * cmHomeMethod(CogBlockMethod * self_in_cmHomeMethod); +char * codeEntryFor(char *address); +char * codeEntryNameFor(char *address); +sqInt cogCodeBase(void); +sqInt cogCodeConstituents(void); +static sqInt cogExtendPICCaseNMethodtagisMNUCase(CogMethod *cPIC, sqInt caseNMethod, sqInt caseNTag, sqInt isMNUCase); +void cogitPostGCAction(sqInt gcMode); +sqInt cogMethodDoesntLookKosher(CogMethod *cogMethod); +CogMethod * cogMNUPICSelectormethodOperandnumArgs(sqInt selector, sqInt methodOperand, sqInt numArgs); +static CogMethod * cogOpenPICSelectornumArgs(sqInt selector, sqInt numArgs); +static CogMethod * cogPICSelectornumArgsCase0MethodCase1MethodtagisMNUCase(sqInt selector, sqInt numArgs, CogMethod *case0CogMethod, sqInt case1MethodOrNil, sqInt case1Tag, sqInt isMNUCase); +CogMethod * cogselector(sqInt aMethodObj, sqInt aSelectorOop); +void compactCogCompiledCode(void); +static void compactCompiledCode(void); +static void compileAbort(void); +static sqInt compileAbstractInstructionsFromthrough(sqInt start, sqInt end); +static sqInt compileBlockBodies(void); +static sqInt compileBlockDispatch(void); +static sqInt compileBlockDispatchFromto(sqInt lowBlockStartIndex, sqInt highBlockStartIndex); +static void compileBlockEntry(BlockStart *blockStart); +static void compileBlockFrameBuild(BlockStart *blockStart); +static void compileBlockFramelessEntry(BlockStart *blockStart); +static sqInt compileClosedPICPrototype(void); +static CogMethod * compileCogMethod(sqInt selector); +static AbstractInstruction * compileCPICEntry(void); +static sqInt compileCPICCase0Case1MethodtagisMNUCasenumArgs(CogMethod *cPIC, CogMethod *case0CogMethod, sqInt case1Method, sqInt case1Tag, sqInt isMNUCase, sqInt numArgs); +static sqInt compileEntireMethod(void); +static void compileEntry(void); +static sqInt compileFallbackToInterpreterPrimitive(void); +static sqInt compileFrameBuild(void); +static void compileGetErrorCode(void); +static sqInt compileInterpreterPrimitive(void (*primitiveRoutine)(void)); +static sqInt compileMethodBody(void); +static sqInt compileMNUCPICmethodOperandnumArgs(CogMethod *cPIC, sqInt methodOperand, sqInt numArgs); +static void compileOpenPICnumArgs(sqInt selector, sqInt numArgs); +static sqInt compilePICProlog(sqInt numArgs); +static sqInt compilePrimitive(void); +static void compileTrampolineForcallJumpBarnumArgsargargargargsaveRegsresultReg(void *aRoutine, sqInt callJumpBar, sqInt numArgs, sqInt regOrConst0, sqInt regOrConst1, sqInt regOrConst2, sqInt regOrConst3, sqInt saveRegs, sqInt resultRegOrNil); +static void computeEntryOffsets(void); +static sqInt computeJumpTargetOffsetPlus(AbstractInstruction * self_in_computeJumpTargetOffsetPlus, sqInt anPCOffset); +static sqInt computeMaximumSize(AbstractInstruction * self_in_computeMaximumSize); +static void computeMaximumSizes(void); +static sqInt computeShiftRRSize(AbstractInstruction * self_in_computeShiftRRSize); +static sqInt concreteDPFPRegister(AbstractInstruction * self_in_concreteDPFPRegister, sqInt registerIndex); +static sqInt concreteRegister(AbstractInstruction * self_in_concreteRegister, sqInt registerIndex); +static sqInt concretizeAddCqR(AbstractInstruction * self_in_concretizeAddCqR); +static sqInt concretizeAddCwR(AbstractInstruction * self_in_concretizeAddCwR); +static sqInt concretizeAddRR(AbstractInstruction * self_in_concretizeAddRR); +static AbstractInstruction * concretizeAlignmentNops(AbstractInstruction * self_in_concretizeAlignmentNops); +static sqInt concretizeAndCqR(AbstractInstruction * self_in_concretizeAndCqR); +static sqInt concretizeAndCwR(AbstractInstruction * self_in_concretizeAndCwR); +static sqInt concretizeAndRR(AbstractInstruction * self_in_concretizeAndRR); +static sqInt concretizeArithmeticShiftRightCqR(AbstractInstruction * self_in_concretizeArithmeticShiftRightCqR); +static sqInt concretizeArithmeticShiftRightRR(AbstractInstruction * self_in_concretizeArithmeticShiftRightRR); +static sqInt concretizeAt(AbstractInstruction * self_in_concretizeAt, sqInt actualAddress); +static sqInt concretizeCall(AbstractInstruction * self_in_concretizeCall); +static sqInt concretizeCDQ(AbstractInstruction * self_in_concretizeCDQ); +static sqInt concretizeCMPXCHGAwR(AbstractInstruction * self_in_concretizeCMPXCHGAwR); +static sqInt concretizeCMPXCHGMwrR(AbstractInstruction * self_in_concretizeCMPXCHGMwrR); +static sqInt concretizeCmpCqR(AbstractInstruction * self_in_concretizeCmpCqR); +static sqInt concretizeCmpCwR(AbstractInstruction * self_in_concretizeCmpCwR); +static sqInt concretizeCmpRdRd(AbstractInstruction * self_in_concretizeCmpRdRd); +static sqInt concretizeCmpRR(AbstractInstruction * self_in_concretizeCmpRR); +static sqInt concretizeConditionalJumpLong(AbstractInstruction * self_in_concretizeConditionalJumpLong, sqInt conditionCode); +static sqInt concretizeConditionalJump(AbstractInstruction * self_in_concretizeConditionalJump, sqInt conditionCode); +static sqInt concretizeConvertRRd(AbstractInstruction * self_in_concretizeConvertRRd); +static sqInt concretizeCPUID(AbstractInstruction * self_in_concretizeCPUID); +static sqInt concretizeFENCE(AbstractInstruction * self_in_concretizeFENCE, sqInt regOpcode); +static sqInt concretizeFill16(AbstractInstruction * self_in_concretizeFill16); +static sqInt concretizeFill32(AbstractInstruction * self_in_concretizeFill32); +static sqInt concretizeFillFromWord(AbstractInstruction * self_in_concretizeFillFromWord); +static sqInt concretizeIDIVR(AbstractInstruction * self_in_concretizeIDIVR); +static sqInt concretizeJump(AbstractInstruction * self_in_concretizeJump); +static sqInt concretizeJumpLong(AbstractInstruction * self_in_concretizeJumpLong); +static sqInt concretizeJumpR(AbstractInstruction * self_in_concretizeJumpR); +static sqInt concretizeLabel(AbstractInstruction * self_in_concretizeLabel); +static sqInt concretizeLOCK(AbstractInstruction * self_in_concretizeLOCK); +static sqInt concretizeLoadEffectiveAddressMwrR(AbstractInstruction * self_in_concretizeLoadEffectiveAddressMwrR); +static sqInt concretizeLogicalShiftLeftCqR(AbstractInstruction * self_in_concretizeLogicalShiftLeftCqR); +static sqInt concretizeLogicalShiftLeftRR(AbstractInstruction * self_in_concretizeLogicalShiftLeftRR); +static sqInt concretizeLogicalShiftRightCqR(AbstractInstruction * self_in_concretizeLogicalShiftRightCqR); +static sqInt concretizeMoveAwR(AbstractInstruction * self_in_concretizeMoveAwR); +static sqInt concretizeMoveCqR(AbstractInstruction * self_in_concretizeMoveCqR); +static sqInt concretizeMoveCwR(AbstractInstruction * self_in_concretizeMoveCwR); +static sqInt concretizeMoveM16rR(AbstractInstruction * self_in_concretizeMoveM16rR); +static sqInt concretizeMoveM64rRd(AbstractInstruction * self_in_concretizeMoveM64rRd); +static sqInt concretizeMoveMbrR(AbstractInstruction * self_in_concretizeMoveMbrR); +static sqInt concretizeMoveMwrR(AbstractInstruction * self_in_concretizeMoveMwrR); +static sqInt concretizeMoveRAw(AbstractInstruction * self_in_concretizeMoveRAw); +static sqInt concretizeMoveRdM64r(AbstractInstruction * self_in_concretizeMoveRdM64r); +static sqInt concretizeMoveRMbr(AbstractInstruction * self_in_concretizeMoveRMbr); +static sqInt concretizeMoveRMwr(AbstractInstruction * self_in_concretizeMoveRMwr); +static sqInt concretizeMoveRR(AbstractInstruction * self_in_concretizeMoveRR); +static sqInt concretizeMoveRXbrR(AbstractInstruction * self_in_concretizeMoveRXbrR); +static sqInt concretizeMoveRXwrR(AbstractInstruction * self_in_concretizeMoveRXwrR); +static sqInt concretizeMoveXbrRR(AbstractInstruction * self_in_concretizeMoveXbrRR); +static sqInt concretizeMoveXwrRR(AbstractInstruction * self_in_concretizeMoveXwrRR); +static sqInt concretizeMulRR(AbstractInstruction * self_in_concretizeMulRR); +static sqInt concretizeNegateR(AbstractInstruction * self_in_concretizeNegateR); +static sqInt concretizeNop(AbstractInstruction * self_in_concretizeNop); +static sqInt concretizeOrCqR(AbstractInstruction * self_in_concretizeOrCqR); +static sqInt concretizeOrCwR(AbstractInstruction * self_in_concretizeOrCwR); +static sqInt concretizeOrRR(AbstractInstruction * self_in_concretizeOrRR); +static sqInt concretizePopR(AbstractInstruction * self_in_concretizePopR); +static sqInt concretizePrefetchAw(AbstractInstruction * self_in_concretizePrefetchAw); +static sqInt concretizePushCw(AbstractInstruction * self_in_concretizePushCw); +static sqInt concretizePushR(AbstractInstruction * self_in_concretizePushR); +static sqInt concretizeRetN(AbstractInstruction * self_in_concretizeRetN); +static sqInt concretizeSEE2OpRdRd(AbstractInstruction * self_in_concretizeSEE2OpRdRd, sqInt opCode); +static sqInt concretizeSqrtRd(AbstractInstruction * self_in_concretizeSqrtRd); +static sqInt concretizeSubCqR(AbstractInstruction * self_in_concretizeSubCqR); +static sqInt concretizeSubCwR(AbstractInstruction * self_in_concretizeSubCwR); +static sqInt concretizeSubRR(AbstractInstruction * self_in_concretizeSubRR); +static sqInt concretizeXCHGAwR(AbstractInstruction * self_in_concretizeXCHGAwR); +static sqInt concretizeXCHGMwrR(AbstractInstruction * self_in_concretizeXCHGMwrR); +static sqInt concretizeXCHGRR(AbstractInstruction * self_in_concretizeXCHGRR); +static sqInt concretizeXorCwR(AbstractInstruction * self_in_concretizeXorCwR); +static sqInt concretizeXorRR(AbstractInstruction * self_in_concretizeXorRR); +static sqInt couldBeObject(sqInt literal); +static sqInt counterTargetFromFollowingAddress(AbstractInstruction * self_in_counterTargetFromFollowingAddress, sqInt nextInstructionAddress); +static sqInt cPICHasFreedTargets(CogMethod *cPIC); +static sqInt cPICMissTrampolineFor(sqInt numArgs); +static sqInt cPICHasTarget(CogMethod *cPIC, CogMethod *targetMethod); +static sqInt cResultRegister(AbstractInstruction * self_in_cResultRegister); +static AbstractInstruction * gDivRRQuoRem(sqInt rDivisor, sqInt rDividend, sqInt rQuotient, sqInt rRemainder); +static void dispatchConcretize(AbstractInstruction * self_in_dispatchConcretize); +static sqInt doubleExtendedDoAnythingBytecode(void); +static sqInt duplicateTopBytecode(void); +static sqInt endPCOf(sqInt aMethod); +static BytecodeFixup * ensureFixupAt(sqInt targetIndex); +static BytecodeFixup * ensureNonMergeFixupAt(sqInt targetIndex); +static void ensureReceiverResultRegContainsSelf(void); +static CogSimStackEntry * ensureSpilledAtfrom(CogSimStackEntry * self_in_ensureSpilledAtfrom, sqInt baseOffset, sqInt baseRegister); +void enterCogCodePopReceiver(void); +void enterCogCodePopReceiverAndClassRegs(void); +void enterCogCodePopReceiverArg0Regs(void); +void enterCogCodePopReceiverArg1Arg0Regs(void); +static sqInt extABytecode(void); +static sqInt extBBytecode(void); +static sqInt extendedPushBytecode(void); +static sqInt extendedStoreAndPopBytecode(void); +static sqInt extendedStoreBytecode(void); +static sqInt fillInBlockHeadersAt(sqInt startAddress); +static CogMethod * fillInCPICHeadersizenumArgsnumCaseshasMNUCaseselector(CogMethod *pic, sqInt size, sqInt numArgs, sqInt numCases, sqInt hasMNUCase, sqInt selector); +static CogMethod * fillInMethodHeadersizeselector(CogMethod *method, sqInt size, sqInt selector); +static CogMethod * fillInOPICHeadersizenumArgsselector(CogMethod *pic, sqInt size, sqInt numArgs, sqInt selector); +static usqInt findBlockMethodWithEntrystartBcpc(sqInt blockEntryMcpc, sqInt startBcpc); +static sqInt findMapLocationForMcpcinMethod(sqInt targetMcpc, CogMethod *cogMethod); +static sqInt findMcpcBcpcMatchingBcpc(char *mcpc, sqInt bcpc, void *targetBcpc); +static sqInt findMcpcBcpcMatchingMcpc(char *mcpc, sqInt bcpc, void *targetMcpc); +CogBlockMethod * findMethodForStartBcpcinHomeMethod(sqInt startbcpc, CogMethod *cogMethod); +static CogMethod * findPreviouslyCompiledVersionOfwith(sqInt aMethodObj, sqInt aSelectorOop); +void followForwardedLiteralsIn(CogMethod *cogMethod); +void followForwardedMethods(void); +static sqInt followMaybeObjRefAt(sqInt mcpc); +static sqInt followMethodReferencesInClosedPIC(CogMethod *cPIC); +static sqInt frameOffsetOfTemporary(sqInt index); +static void freeMethod(CogMethod *cogMethod); +static void freeOlderMethodsForCompaction(void); +static void freePICsWithFreedTargets(void); +static sqInt genActiveContextTrampoline(void); +static sqInt genAddSmallIntegerTagsTo(sqInt aRegister); +static sqInt genAlignCStackSavingRegistersnumArgswordAlignment(AbstractInstruction * self_in_genAlignCStackSavingRegistersnumArgswordAlignment, sqInt saveRegs, sqInt numArgs, sqInt alignment); +static AbstractInstruction * genAllocFloatValueintoscratchRegscratchReg(sqInt dpreg, sqInt resultReg, sqInt scratch1, sqInt scratch2); +static sqInt genCheckForInterruptsTrampoline(void); +static sqInt genConvertCharacterToCodeInReg(sqInt reg); +static void genConvertCharacterToSmallIntegerInReg(sqInt reg); +static sqInt genConvertIntegerToCharacterInReg(sqInt reg); +static sqInt genConvertIntegerToSmallIntegerInReg(sqInt reg); +static sqInt genConvertIntegerToSmallIntegerInScratchReg(sqInt scratchReg); +static void genConvertSmallIntegerToCharacterInReg(sqInt reg); +static sqInt genConvertSmallIntegerToIntegerInReg(sqInt reg); +static AbstractInstruction * genDivRRQuoRem(AbstractInstruction * self_in_genDivRRQuoRem, sqInt abstractRegDivisor, sqInt abstractRegDividend, sqInt abstractRegQuotient, sqInt abstractRegRemainder); +static sqInt genDoubleArithmeticpreOpCheck(sqInt arithmeticOperator, AbstractInstruction *(*preOpCheckOrNil)(int rcvrReg, int argReg)); +static sqInt genDoubleComparisoninvert(AbstractInstruction *(*jumpOpcodeGenerator)(void *), sqInt invertComparison); +static AbstractInstruction * genDoubleFailIfZeroArgRcvrarg(sqInt rcvrReg, sqInt argReg); +static sqInt genDynamicSuperSendBytecode(void); +static void (*genEnilopmartForandandcalled(sqInt regArg1, sqInt regArg2, sqInt regArg3, char *trampolineName))(void) ; +static void (*genEnilopmartForandcalled(sqInt regArg1, sqInt regArg2, char *trampolineName))(void) ; +static void (*genEnilopmartForcalled(sqInt regArg, char *trampolineName))(void) ; +static sqInt genEnsureObjInRegNotForwardedscratchReg(sqInt reg, sqInt scratch); +static void (*genEnterPICEnilopmartNumArgs(sqInt numArgs))(void) ; +static sqInt genExtendedSendBytecode(void); +static sqInt genExtendedSuperBytecode(void); +static sqInt genExternalizePointersForPrimitiveCall(void); +static sqInt genExtJumpIfFalse(void); +static sqInt genExtJumpIfTrue(void); +static sqInt genExtNopBytecode(void); +static sqInt genExtPushClosureBytecode(void); +static sqInt genExtPushIntegerBytecode(void); +static sqInt genExtPushLiteralBytecode(void); +static sqInt genExtPushLiteralVariableBytecode(void); +static sqInt genExtPushPseudoVariableOrOuterBytecode(void); +static sqInt genExtPushReceiverVariableBytecode(void); +static sqInt genExtReturnTopFromBlock(void); +static sqInt genExtSendAbsentDynamicSuperBytecode(void); +static sqInt genExtSendAbsentImplicitBytecode(void); +static sqInt genExtSendBytecode(void); +static sqInt genExtSendSuperBytecode(void); +static sqInt genExtStoreAndPopLiteralVariableBytecode(void); +static sqInt genExtStoreAndPopReceiverVariableBytecode(void); +static sqInt genExtStoreLiteralVariableBytecode(void); +static sqInt genExtStoreReceiverVariableBytecode(void); +static sqInt genExtUnconditionalJump(void); +static void generateCaptureCStackPointers(sqInt captureFramePointer); +static AbstractInstruction * generateCheckFeatures(AbstractInstruction * self_in_generateCheckFeatures); +static void generateClosedPICPrototype(void); +static CogMethod * generateCogMethod(sqInt selector); +static void generateEnilopmarts(void); +static AbstractInstruction * generateICacheFlush(AbstractInstruction * self_in_generateICacheFlush); +static sqInt generateInstructionsAt(sqInt eventualAbsoluteAddress); +static AbstractInstruction * generateLowLevelTryLock(AbstractInstruction * self_in_generateLowLevelTryLock, sqInt vmOwnerLockAddress); +static AbstractInstruction * generateLowLevelUnlock(AbstractInstruction * self_in_generateLowLevelUnlock, sqInt vmOwnerLockAddress); +static sqInt generateMapAtstart(sqInt addressOrNull, sqInt startAddress); +static void generateMissAbortTrampolines(void); +static void generateNewspeakRuntime(void); +static void generateObjectRepresentationTrampolines(void); +static void generateOpenPICPrototype(void); +static void generateRunTimeTrampolines(void); +static void generateSendTrampolines(void); +static void generateStackPointerCapture(void); +static void generateTracingTrampolines(void); +static void generateTrampolines(void); +static void generateVMOwnerLockFunctions(void); +static sqInt genFastPrimFail(void); +static void genFastPrimTraceUsingand(sqInt r1, sqInt r2); +static sqInt genFetchIndexRegisterfrominto(sqInt indexReg, sqInt tableObj, sqInt destReg); +static sqInt genFramelessStorePopReceiverVariable(sqInt popBoolean, sqInt slotIndex); +static sqInt genGetClassIndexOfNonImminto(sqInt sourceReg, sqInt destReg); +static sqInt genGetClassObjectOfClassIndexintoscratchReg(sqInt instReg, sqInt destReg, sqInt scratchReg); +static sqInt genGetClassObjectOfintoscratchReginstRegIsReceiver(sqInt instReg, sqInt destReg, sqInt scratchReg, sqInt instRegIsReceiver); +static AbstractInstruction * genGetClassTagOfintoscratchReg(sqInt instReg, sqInt destReg, sqInt scratchReg); +static sqInt genGetCompactClassIndexNonImmOfinto(sqInt instReg, sqInt destReg); +static sqInt genGetDoubleValueOfinto(sqInt srcReg, sqInt destFPReg); +static sqInt genGetHashFieldNonImmOfasSmallIntegerInto(sqInt instReg, sqInt destReg); +static sqInt genGetHashFieldNonImmOfinto(sqInt instReg, sqInt destReg); +static sqInt genGetImplicitReceiverForforPush(sqInt selector, sqInt forPushSendBar); +static sqInt genGetLeafCallStackPointer(void); +static AbstractInstruction * genGetLeafCallStackPointerFunction(AbstractInstruction * self_in_genGetLeafCallStackPointerFunction); +static sqInt genInnerPICAbortTrampoline(char *name); +static sqInt genInnerPrimitiveAsCharacterinReg(sqInt retNOffset, sqInt reg); +static sqInt genInnerPrimitiveAtPut(sqInt retNoffset); +static sqInt genInnerPrimitiveAt(sqInt retNoffset); +static sqInt genInnerPrimitiveCharacterValue(sqInt retNOffset); +static sqInt genInnerPrimitiveIdenticalorNotIf(sqInt retNoffset, sqInt orNot); +static sqInt genInnerPrimitiveIdentityHash(sqInt retNoffset); +static sqInt genInnerPrimitiveNewMethod(sqInt retNoffset); +static sqInt genInnerPrimitiveNewWithArg(sqInt retNoffset); +static sqInt genInnerPrimitiveNew(sqInt retNoffset); +static sqInt genInnerPrimitiveSize(sqInt retNoffset); +static sqInt genInnerPrimitiveStringAtPut(sqInt retNoffset); +static sqInt genInnerPrimitiveStringAt(sqInt retNoffset); +static sqInt genJumpBackTo(sqInt targetBytecodePC); +static AbstractInstruction * genJumpFPEqual(AbstractInstruction * self_in_genJumpFPEqual, void *jumpTarget); +static AbstractInstruction * genJumpFPGreaterOrEqual(AbstractInstruction * self_in_genJumpFPGreaterOrEqual, void *jumpTarget); +static AbstractInstruction * genJumpFPGreater(AbstractInstruction * self_in_genJumpFPGreater, void *jumpTarget); +static AbstractInstruction * genJumpFPLessOrEqual(AbstractInstruction * self_in_genJumpFPLessOrEqual, void *jumpTarget); +static AbstractInstruction * genJumpFPLess(AbstractInstruction * self_in_genJumpFPLess, void *jumpTarget); +static AbstractInstruction * genJumpFPNotEqual(AbstractInstruction * self_in_genJumpFPNotEqual, void *jumpTarget); +static sqInt genJumpIfto(sqInt boolean, sqInt targetBytecodePC); +static AbstractInstruction * genJumpImmediateInScratchReg(sqInt aRegister); +static AbstractInstruction * genJumpNotCharacterInScratchReg(sqInt reg); +static AbstractInstruction * genJumpNotSmallIntegerInScratchReg(sqInt aRegister); +static AbstractInstruction * genJumpSmallIntegerInScratchReg(sqInt aRegister); +static sqInt genJumpTo(sqInt targetBytecodePC); +static sqInt genLoadCStackPointers(void); +static sqInt genLoadCStackPointersForPrimCall(void); +static sqInt genLoadSlotsourceRegdestReg(sqInt index, sqInt sourceReg, sqInt destReg); +static sqInt genLoadStackPointers(void); +static sqInt genLongJumpIfFalse(void); +static sqInt genLongJumpIfTrue(void); +static sqInt genLongPushTemporaryVariableBytecode(void); +static sqInt genLongStoreAndPopTemporaryVariableBytecode(void); +static sqInt genLongStoreTemporaryVariableBytecode(void); +static sqInt genLongUnconditionalBackwardJump(void); +static sqInt genLongUnconditionalForwardJump(void); +static sqInt genMarshalledSendDynamicSupernumArgs(sqInt selector, sqInt numArgs); +static sqInt genMarshalledSendSupernumArgs(sqInt selector, sqInt numArgs); +static sqInt genMarshalledSendnumArgs(sqInt selector, sqInt numArgs); +static sqInt genMethodAbortTrampolineFor(sqInt numArgs); +static AbstractInstruction * genMulRR(AbstractInstruction * self_in_genMulRR, sqInt regSource, sqInt regDest); +static sqInt genMustBeBooleanTrampolineForcalled(sqInt boolean, char *trampolineName); +static sqInt genNonLocalReturnTrampoline(void); +static sqInt genPassConstasArgument(AbstractInstruction * self_in_genPassConstasArgument, sqInt constant, sqInt zeroRelativeArgIndex); +static sqInt genPassRegasArgument(AbstractInstruction * self_in_genPassRegasArgument, sqInt abstractRegister, sqInt zeroRelativeArgIndex); +static sqInt genPICAbortTrampolineFor(sqInt numArgs); +static sqInt genPICMissTrampolineFor(sqInt numArgs); +static sqInt genPopStackBytecode(void); +static sqInt genPrimitiveAdd(void); +static sqInt genPrimitiveAsCharacter(void); @@ Diff output truncated at 50000 characters. @@

1 0

VM Maker: VMMaker.oscog-eem.624.mcz
by commits＠source.squeak.org 01 Mar '14

01 Mar '14

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.624.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.624 Author: eem Time: 28 February 2014, 4:46:55.184 pm UUID: 7671143a-d3d3-45cb-b481-210d4d0c4073 Ancestors: VMMaker.oscog-eem.623 Spur: Instance printing should not print free chunks ;-) =============== Diff against VMMaker.oscog-eem.623 =============== Item was changed: ----- Method: SpurMemoryManager>>printInstancesOf: (in category 'debug printing') ----- printInstancesOf: aClassOop "Scan the heap printing the oops of any and all objects that are instances of aClassOop" <api> + | classIndex | + classIndex := self rawHashBitsOf: aClassOop. + classIndex ~= self isFreeObjectClassIndexPun ifTrue: + [self printInstancesWithClassIndex: classIndex]! - self printInstancesWithClassIndex: (self rawHashBitsOf: aClassOop)!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Vm-dev March 2014