Vm-dev August 2012

vm-dev@lists.squeakfoundation.org

18 participants
60 discussions

VM Maker: VMMaker.oscog-lw.205.mcz
by commits＠source.squeak.org 18 Aug '12

18 Aug '12

Lars Wassermann uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-lw.205.mcz ==================== Summary ==================== Name: VMMaker.oscog-lw.205 Author: lw Time: 18 August 2012, 2:31:19.265 pm UUID: db76622e-2954-de47-b65e-026a6286a843 Ancestors: VMMaker.oscog-eem.204 depending on the configuration of the disassembler, ldmfd or push is returned. =============== Diff against VMMaker.oscog-eem.204 =============== Item was changed: ----- Method: CogARMCompilerTests>>testRetN (in category 'tests') ----- testRetN "self new testRetN" #(0) do: [:n| | inst len | inst := self gen: RetN operand: n. len := inst concretizeAt: 0. self processor disassembleInstructionAt: 0 In: inst machineCode object into: [:str :sz| | plainJane herIntended | "Convert e.g. '00000000: movl %eax, 0x2(%eax) : 89 40 02' to 'movl %eax, 0x2(%eax)'" plainJane := self strip: str. + self assert: (plainJane match: 'pop {pc}') | (plainJane match: 'ldmfd sp!!, {pc}'). - herIntended := 'pop {pc}'. - self assert: (plainJane match: herIntended). self assert: len = sz]]. #(1 2 4 8 16 31) do: [:n| | inst len | inst := self gen: RetN operand: n. len := inst concretizeAt: 0. self processor disassembleInstructionAt: 0 In: inst machineCode object into: [:str :sz| | plainJane herIntended | "Convert e.g. '00000000: movl %eax, 0x2(%eax) : 89 40 02' to 'movl %eax, 0x2(%eax)'" plainJane := self strip: str. herIntended := 'add sp, sp, #', n asString,', 30'. self assert: (plainJane match: herIntended). self assert: len = 8]]!

1 0

VM Maker: Cog-lw.54.mcz
by commits＠source.squeak.org 18 Aug '12

18 Aug '12

Lars Wassermann uploaded a new version of Cog to project VM Maker: http://source.squeak.org/VMMaker/Cog-lw.54.mcz ==================== Summary ==================== Name: Cog-lw.54 Author: lw Time: 18 August 2012, 2:29:17.38 pm UUID: aeefac03-a0a4-1343-a97d-74136d85e047 Ancestors: Cog-lw.53 changes because of different disassembly returns and error formats =============== Diff against Cog-lw.53 =============== Item was changed: ----- Method: GdbARMAlienTests>>testExecutionTrap (in category 'tests') ----- testExecutionTrap "Execute a run of nops. test executing beyond the executable limit is trapped." "self new testExecutionTrap" | memory | "The address is out of range of memory every which way (whether relative or absolute and whether big-endian or little." memory := (Bitmap new: 1024 * 2 withAll: self processor nopOpcode) asByteArray. self processor pc: 0; sp: (memory size - 4). "Room for return address" self should: [self processor runInMemory: memory minimumAddress: 0 readOnlyBelow: memory size / 2] raise: Error withExceptionDo: [:err| self assert: self processor pc = (memory size / 2). + self assert: ('Error 0: Illegal Instruction fetch address (0x1000).' match: err messageText)]. - self assert: ('Error 0: Illegal Instruction fetch address (0x00001000).' match: err messageText)]. self processor pc: 0. self should: [[self processor singleStepIn: memory minimumAddress: 0 readOnlyBelow: memory size / 2] repeat] raise: Error withExceptionDo: [:err| self assert: self processor pc = (memory size / 2). + self assert: ('Error 0: Illegal Instruction fetch address (0x1000).' match: err messageText)]! - self assert: ('Error 0: Illegal Instruction fetch address (0x00001000).' match: err messageText)]! Item was changed: ----- Method: GdbARMAlienTests>>testNfib1 (in category 'tests') ----- testNfib1 "self new testNfib1" self should: [self runNFib: 1 disassemble: false printRegisters: false] raise: Error withExceptionDo: + [:err| self assert: err messageText = 'Error 0: Illegal Instruction fetch address (0x1000).']. - [:err| self assert: err messageText = 'Error 0: Illegal Instruction fetch address (0x00001000).']. self deny: (self processor pc between: 0 and: self nfib size). self assert: self processor r0 = 1 benchFib!

1 0

[GdbARMPlugin]
by Lars 18 Aug '12

18 Aug '12

Hello Mailinglist, this week, I created the Makefile.in for Unix and redid the building process on Windows, adding a HowToBuild to the repository. If you want, you can find the files on Github (http://github.com/mas7ermind/squeakvm-armulator-plugin). I tried building on Ubuntu 32bit and Windows 7 64bit with 32bit Mingw/MSYS. I didn't manage to build the normal VM on Ubuntu 64bit, so I stopped trying building the plugin. I have no Mac, so I could't try building on Mac. But given the similarities between Unix and Mac, I hope the build process is similar. In order to test for success, run the GdbARMProcessorTest tests from the Cog package. Good luck, Lars

1 0

VM Maker: VMMaker-dtl.285.mcz
by commits＠source.squeak.org 17 Aug '12

17 Aug '12

David T. Lewis uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker-dtl.285.mcz ==================== Summary ==================== Name: VMMaker-dtl.285 Author: dtl Time: 16 August 2012, 8:13:30.924 pm UUID: 77f7c9f9-69b4-4347-b6da-ccaab24e473e Ancestors: VMMaker-dtl.284 VMMaker 4.9.10 For compatibility with Cog, add implementations of primitiveUTCMicrosecondClock and primitiveLocalMicrosecondClock derived from the existing primitiveUtcWithOffset, and install them as numbered primitives. The available microsecond primitives are now: primitiveUtcWithOffset "Answer an array with UTC microseconds since the Posix epoch and the current seconds offset from GMT in the local time zone. This is a named (not numbered) primitive in the null module (ie the VM)" primitiveUTCMicrosecondClock "Answer the UTC microseconds since the Smalltalk epoch. The value is derived from the Posix epoch (see primitiveUTCMicrosecondClock) with a constant offset corresponding to elapsed microseconds between the two epochs according to RFC 868." primitiveLocalMicrosecondClock "Answer the local microseconds since the Smalltalk epoch. The value is derived from the Posix epoch (see primitiveUTCMicrosecondClock) with a constant offset corresponding to elapsed microseconds between the two epochs according to RFC 868, and with an offset duration corresponding to the current offset of local time from UTC." =============== Diff against VMMaker-dtl.284 =============== Item was changed: ----- Method: Interpreter class>>initializePrimitiveTable (in category 'initialization') ----- (excessive size, no diff calculated) Item was added: + ----- Method: InterpreterPrimitives>>primitiveLocalMicrosecondClock (in category 'system control primitives') ----- + primitiveLocalMicrosecondClock + "Answer the local microseconds since the Smalltalk epoch. The value is + derived from the Posix epoch (see primitiveUTCMicrosecondClock) with a + constant offset corresponding to elapsed microseconds between the two + epochs according to RFC 868, and with an offset duration corresponding to + the current offset of local time from UTC." + + | clock offset offsetMillis epochDelta uSecs | + + <export: true> + <var: #clock type: 'usqLong'> + <var: #offset type: 'int'> + <var: #offsetMillis type: 'usqLong'> + <var: #epochDelta declareC: 'static usqLong epochDelta= 2177452800000000ULL'> + (self cCode: 'ioUtcWithOffset(&clock, &offset)' inSmalltalk: [-1]) = -1 + ifTrue: [^ self primitiveFail]. + clock := clock + epochDelta. "adjust for nominal Smalltalk epoch" + offsetMillis := offset. + offsetMillis := offsetMillis * 1000000. + clock := clock + offsetMillis. "adjust for local time offset" + uSecs := self positive64BitIntegerFor: clock. + self pop: 1 thenPush: uSecs. + ! Item was added: + ----- Method: InterpreterPrimitives>>primitiveUTCMicrosecondClock (in category 'system control primitives') ----- + primitiveUTCMicrosecondClock + "Answer the UTC microseconds since the Smalltalk epoch. The value is + derived from the Posix epoch (see primitiveUTCMicrosecondClock) with a + constant offset corresponding to elapsed microseconds between the two + epochs according to RFC 868." + | clock offset epochDelta uSecs | + + <export: true> + <var: #clock type: 'usqLong'> + <var: #offset type: 'int'> + <var: #epochDelta declareC: 'static usqLong epochDelta= 2177452800000000ULL'> + (self cCode: 'ioUtcWithOffset(&clock, &offset)' inSmalltalk: [-1]) = -1 + ifTrue: [^ self primitiveFail]. + clock := clock + epochDelta. + uSecs := self positive64BitIntegerFor: clock. + self pop: 1 thenPush: uSecs. + ! Item was changed: ----- Method: VMMaker class>>versionString (in category 'version testing') ----- versionString "VMMaker versionString" + ^'4.9.10'! - ^'4.9.9'!

1 0

VM Maker: VMMaker.oscog-eem.204.mcz
by commits＠source.squeak.org 16 Aug '12

16 Aug '12

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.204.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.204 Author: eem Time: 16 August 2012, 12:53:08.745 pm UUID: c98d555c-fbda-404f-9ebe-0a4e0c6dc800 Ancestors: VMMaker.oscog-eem.203 Integrate primitiveUtcWithOffset and add David Lewis' implementation of 64-bit usec prims to Interpreter (since they conflict with those in InterpreterPrimitives). =============== Diff against VMMaker.oscog-eem.203 =============== Item was changed: ----- Method: Interpreter class>>initializePrimitiveTable (in category 'initialization') ----- (excessive size, no diff calculated) Item was added: + ----- Method: Interpreter>>primitiveLocalMicrosecondClock (in category 'system control primitives') ----- + primitiveLocalMicrosecondClock + "Answer the local microseconds since the Smalltalk epoch. The value is + derived from the Posix epoch with a constant offset corresponding to + elapsed microseconds between the two epochs according to RFC 868, + and with an offset duration corresponding to the current offset of local + time from UTC." + + | clock offset offsetMillis epochDelta uSecs | + + <export: true> + <var: #clock type: 'usqLong'> + <var: #offset type: 'int'> + <var: #offsetMillis type: 'usqLong'> + <var: #epochDelta declareC: 'static usqLong epochDelta= 2177452800000000ULL'> + (self cCode: 'ioUtcWithOffset(&clock, &offset)' inSmalltalk: [-1]) = -1 + ifTrue: [^ self primitiveFail]. + clock := clock + epochDelta. "adjust for nominal Smalltalk epoch" + offsetMillis := offset. + offsetMillis := offsetMillis * 1000000. + clock := clock + offsetMillis. "adjust for local time offset" + uSecs := self positive64BitIntegerFor: clock. + self pop: 1 thenPush: uSecs. + ! Item was added: + ----- Method: Interpreter>>primitiveUTCMicrosecondClock (in category 'system control primitives') ----- + primitiveUTCMicrosecondClock + "Answer the UTC microseconds since the Smalltalk epoch. The value is + derived from the Posix epoch with a constant offset corresponding to + elapsed microseconds between the two epochs according to RFC 868." + | clock epochDelta uSecs | + + <export: true> + <var: #clock type: 'usqLong'> + <var: #offset type: 'int'> + <var: #epochDelta declareC: 'static usqLong epochDelta= 2177452800000000ULL'> + (self cCode: 'ioUtcWithOffset(&clock, &offset)' inSmalltalk: [-1]) = -1 + ifTrue: [^ self primitiveFail]. + clock := clock + epochDelta. + uSecs := self positive64BitIntegerFor: clock. + self pop: 1 thenPush: uSecs. + ! Item was added: + ----- Method: InterpreterPrimitives>>primitiveUtcWithOffset (in category 'system control primitives') ----- + primitiveUtcWithOffset + "Answer an array with UTC microseconds since the Posix epoch and + the current seconds offset from GMT in the local time zone. + This is a named (not numbered) primitive in the null module (ie the VM)" + | offset resultArray | + + <export: true> + <var: #clock type: 'sqLong'> + offset := self ioUTCMicroseconds - self ioLocalMicroseconds. + objectMemory pushRemappableOop: (self positive64BitIntegerFor: self ioUTCMicroseconds). + resultArray := objectMemory instantiateClass: objectMemory classArray indexableSize: 2. + self stObject: resultArray at: 1 put: objectMemory popRemappableOop. + self stObject: resultArray at: 2 put: (objectMemory integerObjectOf: offset). + self pop: 1 thenPush: resultArray + !

1 0

Microsecond clock primitives in Cog and SqueakVM
by David T. Lewis 16 Aug '12

16 Aug '12

We currently have incompatible implementations of microsecond clock primitives in SqueakVM and Cog. Opinions may vary as the the preferred approach, but the inconsistencies need to be reconciled. I have implemented the Cog primitives on SqueakVM, and the SqueakVM primitive on Cog. The platform source support for these is different on Cog and trunk, but it turned out to be straightforward to do equivalent implementations in the two VMMaker branches. I would like to suggest that we adopt a common set of three primitives in both Cog and SqueakVM trunk. We can worry about reconciling the platform sources in the future, meanwhile there is value in providing a common api for the primitives. The three primitives of interest are these: primitiveUtcWithOffset "Answer an array with UTC microseconds since the Posix epoch and the current seconds offset from GMT in the local time zone. This is a named (not numbered) primitive in the null module (ie the VM)" primitiveUTCMicrosecondClock "Answer the UTC microseconds since the Smalltalk epoch. The value is derived from the Posix epoch with a constant offset corresponding to elapsed microseconds between the two epochs according to RFC 868." primitiveLocalMicrosecondClock "Answer the local microseconds since the Smalltalk epoch. The value is derived from the Posix epoch with a constant offset corresponding to elapsed microseconds between the two epochs according to RFC 868, and with an offset duration corresponding to the current offset of local time from UTC." I am attaching two change sets for consideration. Cog-primitiveUtcWithOffset-dtl.cs is for inclusion in oscog to provide an implementation of the SqueakVM primitiveUtcWithOffset. SqueakVM-cogMicrosecondPrimitives-dtl.cs is for inclusion in the interpreter VM to provide implementions of primitiveUTCMicrosecondClock and primitiveLocalMicrosecondClock and add them to the numbered primitives table. Does this sound like a reasonable solution? If so, I will commit primitiveUTCMicrosecondClock and primitiveLocalMicrosecondClock to VMMaker trunk, and request that the primitiveUtcWithOffset change be added to Cog. Thanks, Dave

2 1

Android Cog VM/Pharo Builds at INRIA Jenkins
by Dmitry Golubovsky 16 Aug '12

16 Aug '12

Hi, Denis Kudriashov wrote: > Can you explain what is CogVM without JIT? Cog VM exists in two flavors: one is a pure interpreter (aka StackVM [1]) which is easy to port; another is JIT [2] (currently exists for x86, and some development of ARM version can be seen). But even non-JIT Cog has better support of closures than the classic Squeak VM has (or had, at least per [3], maybe these days this is fixed in the classic VM as well) [1] http://www.mirandabanda.org/cogblog/2009/01/14/under-cover-contexts-and-the… [2] http://www.mirandabanda.org/cogblog/2011/03/01/build-me-a-jit-as-fast-as-yo… [3] http://www.mirandabanda.org/cogblog/2008/06/07/closures-part-i/ -- Dmitry Golubovsky Anywhere on the Web

4 3

[commit] r2586 - CogVM source as per VMMaker.oscog-eem.203.
by David T. Lewis 15 Aug '12

15 Aug '12

Message blocked due to size, forwarding trimmed version: --- Delivered-To: list-vm-dev(a)lists.squeakfoundation.org Date: Tue, 14 Aug 2012 19:22:31 -0700 To: vm-dev(a)lists.squeakfoundation.org From: commits(a)squeakvm.org Subject: [commit] r2586 - CogVM source as per VMMaker.oscog-eem.203. Author: eliot Date: 2012-08-14 19:22:30 -0700 (Tue, 14 Aug 2012) New Revision: 2586 Added: branches/Cog/unixbuild/abld/ branches/Cog/unixbuild/abld/mvm branches/Cog/unixbuild/abld/plugins.ext branches/Cog/unixbuild/abld/plugins.int branches/Cog/unixbuild/dbld/ branches/Cog/unixbuild/dbld/mvm branches/Cog/unixbuild/dbld/plugins.ext branches/Cog/unixbuild/dbld/plugins.int Modified: 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/platforms/Cross/vm/sqSCCSVersion.h branches/Cog/platforms/Mac OS/vm/sqMacMemory.c branches/Cog/platforms/Mac OS/vm/sqPlatformSpecific.h 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 Log: CogVM source as per VMMaker.oscog-eem.203. Cosmetic changes, NewspeakVM and MULTIPLEBYTECODESETS expanded at translation time, and lost comments recivered. Modified: branches/Cog/nscogsrc/vm/cogit.c =================================================================== --- branches/Cog/nscogsrc/vm/cogit.c 2012-08-14 16:06:45 UTC (rev 2585) +++ branches/Cog/nscogsrc/vm/cogit.c 2012-08-15 02:22:30 UTC (rev 2586) <snip>

1 0

VM Maker: VMMaker.oscog-eem.203.mcz
by commits＠source.squeak.org 15 Aug '12

15 Aug '12

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.203.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.203 Author: eem Time: 14 August 2012, 7:12:41.248 pm UUID: 7f3eefb4-e338-4309-9ea9-4f45ab13f03e Ancestors: VMMaker.oscog-eem.202 Emit comments on blocks (TStmtList). Add another enumerator for TParseNode. =============== Diff against VMMaker.oscog-eem.202 =============== Item was added: + ----- Method: TParseNode>>collect: (in category 'enumerating') ----- + collect: aBlock + | nodes | + nodes := OrderedCollection new. + self nodesDo: [:n| (aBlock value: n) ifTrue: [nodes add: n]]. + ^nodes! Item was added: + ----- Method: TParseNode>>comment (in category 'accessing') ----- + comment + ^comment! Item was changed: ----- Method: TStmtListNode>>emitCCodeOn:prependToEnd:level:generator: (in category 'C code generation') ----- emitCCodeOn: aStream prependToEnd: aNodeOrNil level: level generator: aCodeGen + self emitCCommentOn: aStream level: level. - statements withIndexDo: [:s :idx| s emitCCommentOn: aStream level: level. aStream tab: level. (aNodeOrNil notNil and: [idx = statements size]) ifTrue: [aNodeOrNil prependCCodeOn: aStream level: level generator: aCodeGen. s emitCCodeAsExpressionOn: aStream level: level generator: aCodeGen] ifFalse: [s emitCCodeOn: aStream level: level generator: aCodeGen]. ((self endsWithCloseBracket: aStream) or: [s isComment or: [s isPreprocessorDirective or: [s isSend and: [s isValueExpansion]]]]) ifFalse: [aStream nextPut: $;]. aStream cr]. !

1 0

VM Maker: VMMaker.oscog-eem.202.mcz
by commits＠source.squeak.org 15 Aug '12

15 Aug '12

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.202.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.202 Author: eem Time: 14 August 2012, 4:31:58.12 pm UUID: 3222e5fb-4b4b-4f71-b66a-10728b2fdf3d Ancestors: VMMaker.oscog-eem.201 Eliminate some warnings in cointerp using gcc. Fix the Gnuifier (register decls need to include the register keyword). Expand cppIf: at translation time if the xpression is a variable in the options dictionary, to cut down on e.g. noise of MULTIPLEBYTECODESETS expansion of fetchNextBytecode.. =============== Diff against VMMaker.oscog-eem.201 =============== Item was changed: Object subclass: #CCodeGenerator + instanceVariableNames: 'vmClass translationDict asArgumentTranslationDict inlineList constants variables variableDeclarations scopeStack methods macros apiMethods currentMethod headerFiles globalVariableUsage useSymbolicConstants generateDeadCode requiredSelectors logger asmLabelCounts pools selectorTranslations optionsDictionary' - instanceVariableNames: 'vmClass translationDict asArgumentTranslationDict inlineList constants variables variableDeclarations scopeStack methods macros apiMethods currentMethod headerFiles globalVariableUsage useSymbolicConstants generateDeadCode requiredSelectors logger asmLabelCounts pools selectorTranslations' classVariableNames: 'UseRightShiftForDivide' poolDictionaries: 'VMBasicConstants' category: 'VMMaker-Translation to C'! !CCodeGenerator commentStamp: 'tpr 5/2/2003 14:30' prior: 0! This class oversees the translation of a subset of Smalltalk to C, allowing the comforts of Smalltalk during development and the efficiency and portability of C for the resulting interpreter. See VMMaker for more useful info! Item was changed: ----- Method: CCodeGenerator>>generateInlineCppIfElse:asArgument:on:indent: (in category 'C translation') ----- generateInlineCppIfElse: msgNode asArgument: asArgument on: aStream indent: level "Generate the C code for this message onto the given stream." | expr putStatement | + "Compile-time expansion for constants set in the options dictionary, + e.g. to cut down on noise for MULTIPLEBYTECODESETS." + putStatement := asArgument + ifTrue: "emitCCodeAsArgumentOn: doesn't indent, the code needs indenting if it takes multiple lines, so post-process." + [[:node| | expansion | + expansion := String streamContents: [:s| node emitCCodeAsArgumentOn: s level: level generator: self]. + aStream nextPutAll: + ((expansion includes: Character cr) + ifTrue: + [(String streamContents: + [:s| + s next: level + 1 put: Character tab. + node emitCCodeAsArgumentOn: s level: level generator: self]) + copyReplaceAll: (String with: Character cr) + with: (String with: Character cr), (String new: level + 1 withAll: Character tab)] + ifFalse: [expansion])]] + ifFalse: + [[:node| | expansion | + expansion := String streamContents: [:s| node emitCCodeOn: s level: level generator: self]. + "Remove tabs from first line to avoid indenting a second time" + (aStream position > 0 and: [aStream last ~= Character tab]) ifTrue: + [expansion := expansion allButFirst: (expansion findFirst: [:c| c ~~ Character tab]) - 1]. + aStream nextPutAll: expansion]]. - expr := String streamContents: - [:es| - msgNode args first - emitCCodeAsArgumentOn: es - level: 0 - generator: self]. - [expr last isSeparator] whileTrue: - [expr := expr allButLast]. - aStream - ensureCr; - nextPut: $#; next: level * 2 put: Character space; nextPutAll: 'if '; nextPutAll: expr; cr. + (msgNode args first isConstant + and: [#(true false) includes: (optionsDictionary at: msgNode args first name ifAbsent: [nil])]) ifTrue: + [(optionsDictionary at: msgNode args first name) + ifTrue: + [putStatement value: msgNode args second] + ifFalse: + [msgNode args size >= 3 ifTrue: + [putStatement value: msgNode args third]]. + ^self]. + + "Full #if ... #else..." putStatement := asArgument ifTrue: "emitCCodeAsArgumentOn: doesn't indent, the code needs indenting in this case, so post-process." [[:node| aStream nextPutAll: ((String streamContents: [:s| s next: level + 1 put: Character tab. node emitCCodeAsArgumentOn: s level: level generator: self]) copyReplaceAll: (String with: Character cr) with: (String with: Character cr), (String new: level + 1 withAll: Character tab))]] ifFalse: [[:node| node emitCCodeOn: aStream level: level generator: self]]. + expr := String streamContents: + [:es| + msgNode args first + emitCCodeAsArgumentOn: es + level: 0 + generator: self]. + [expr last isSeparator] whileTrue: + [expr := expr allButLast]. + aStream + ensureCr; + nextPut: $#; next: level * 2 put: Character space; nextPutAll: 'if '; nextPutAll: expr; cr. + putStatement value: msgNode args second. expr := ' /* ', expr, ' */'. msgNode args size >= 3 ifTrue: [aStream ensureCr; nextPut: $#; next: level * 2 put: Character space; nextPutAll: 'else'; nextPutAll: expr; cr. putStatement value: msgNode args third]. aStream ensureCr; nextPut: $#; next: level * 2 put: Character space; nextPutAll: 'endif'; nextPutAll: expr; cr. asArgument ifTrue: [aStream next: level + 1 put: Character tab]! Item was added: + ----- Method: CCodeGenerator>>options (in category 'accessing') ----- + options + ^optionsDictionary! Item was added: + ----- Method: CCodeGenerator>>options: (in category 'accessing') ----- + options: aDictionary + optionsDictionary := aDictionary! Item was changed: ----- Method: CoInterpreter>>readImageFromFile:HeapSize:StartingAt: (in category 'image save/restore') ----- readImageFromFile: f HeapSize: desiredHeapSize StartingAt: imageOffset "Read an image from the given file stream, allocating the given amount of memory to its object heap. Fail if the image has an unknown format or requires more than the given amount of memory." "Details: This method detects when the image was stored on a machine with the opposite byte ordering from this machine and swaps the bytes automatically. Furthermore, it allows the header information to start 512 bytes into the file, since some file transfer programs for the Macintosh apparently prepend a Mac-specific header of this size. Note that this same 512 bytes of prefix area could also be used to store an exec command on Unix systems, allowing one to launch Smalltalk by invoking the image name as a command." "This code is based on C code by Ian Piumarta and Smalltalk code by Tim Rowledge. Many thanks to both of you!!!!" | swapBytes headerStart headerSize dataSize oldBaseAddr minimumMemory heapSize bytesRead bytesToShift hdrNumStackPages hdrEdenBytes hdrCogCodeSize headerFlags hdrMaxExtSemTabSize | <var: #f type: 'sqImageFile '> <var: #memStart type: 'usqInt'> <var: #desiredHeapSize type: 'usqInt'> <var: #headerStart type: 'squeakFileOffsetType '> <var: #dataSize type: 'size_t '> <var: #imageOffset type: 'squeakFileOffsetType '> metaclassSizeBits := 6 * BytesPerWord. "guess (Metaclass instSize * BPW)" swapBytes := self checkImageVersionFrom: f startingAt: imageOffset. headerStart := (self sqImageFilePosition: f) - BytesPerWord. "record header start position" headerSize := self getLongFromFile: f swap: swapBytes. dataSize := self getLongFromFile: f swap: swapBytes. oldBaseAddr := self getLongFromFile: f swap: swapBytes. objectMemory specialObjectsOop: (self getLongFromFile: f swap: swapBytes). objectMemory lastHash: (self getLongFromFile: f swap: swapBytes). "N.B. not used." savedWindowSize := self getLongFromFile: f swap: swapBytes. headerFlags := self getLongFromFile: f swap: swapBytes. self setImageHeaderFlagsFrom: headerFlags. extraVMMemory := self getLongFromFile: f swap: swapBytes. "N.B. not used." hdrNumStackPages := self getShortFromFile: f swap: swapBytes. "4 stack pages is small. Should be able to run with as few as three. 4 should be comfortable but slow. 8 is a reasonable default. Can be changed via vmParameterAt: 43 put: n. Can be set as a preference (Info.plist, VM.ini, command line etc). If desiredNumStackPages is already non-zero then it has been set as a preference. Ignore (but preserve) the header's default." numStackPages := desiredNumStackPages ~= 0 ifTrue: [desiredNumStackPages] ifFalse: [hdrNumStackPages = 0 ifTrue: [self defaultNumStackPages] ifFalse: [hdrNumStackPages]]. desiredNumStackPages := hdrNumStackPages. "This slot holds the size of the native method zone in 1k units. (pad to word boundary)." hdrCogCodeSize := (self getShortFromFile: f swap: swapBytes) * 1024. cogCodeSize := desiredCogCodeSize ~= 0 ifTrue: [desiredCogCodeSize] ifFalse: [hdrCogCodeSize = 0 ifTrue: [self defaultCogCodeSize] ifFalse: [hdrCogCodeSize]]. hdrEdenBytes := self getLongFromFile: f swap: swapBytes. objectMemory edenBytes: (desiredEdenBytes ~= 0 ifTrue: [desiredEdenBytes] ifFalse: [hdrEdenBytes = 0 ifTrue: [objectMemory defaultEdenBytes] ifFalse: [hdrEdenBytes]]). desiredEdenBytes := hdrEdenBytes. hdrMaxExtSemTabSize := self getShortFromFile: f swap: swapBytes. hdrMaxExtSemTabSize ~= 0 ifTrue: [self setMaxExtSemSizeTo: hdrMaxExtSemTabSize]. "compare memory requirements with availability" minimumMemory := cogCodeSize "no need to include the stackZone; this is alloca'ed" + dataSize + objectMemory edenBytes + self interpreterAllocationReserveBytes. heapSize := cogCodeSize "no need to include the stackZone; this is alloca'ed" + desiredHeapSize "+ edenBytes" "don't include edenBytes; this is part of the heap and so part of desiredHeapSize" + self interpreterAllocationReserveBytes. heapSize < minimumMemory ifTrue: [self insufficientMemorySpecifiedError]. "allocate a contiguous block of memory for the Squeak heap and ancilliary data structures" "N.B. If the platform needs to it will redefine this macro to make heapSize an in/out parameter and assign the ammount actually allocated into heapSize. See e.g. platforms/Mac OS/vm/sqPlatformSpecific.h. (I *hate* this. eem 7/23/2009)" "objectMemory memory: (self cCode: 'sqAllocateMemory(minimumMemory, heapSize)'). " objectMemory memory: (self allocateMemory: heapSize minimum: minimumMemory imageFile: f + headerSize: headerSize) asUnsignedInteger. - headerSize: headerSize). objectMemory memory = nil ifTrue: [self insufficientMemoryAvailableError]. heapBase := objectMemory memory + cogCodeSize. self assert: objectMemory startOfMemory = heapBase. objectMemory setMemoryLimit: objectMemory memory + heapSize - 24. "decrease memoryLimit a tad for safety" objectMemory setEndOfMemory: heapBase + dataSize. "position file after the header" self sqImageFile: f Seek: headerStart + headerSize. "read in the image in bulk, then swap the bytes if necessary" bytesRead := self cCode: 'sqImageFileRead(pointerForOop(heapBase), sizeof(unsigned char), dataSize, f)'. bytesRead ~= dataSize ifTrue: [self unableToReadImageError]. self ensureImageFormatIsUpToDate: swapBytes. "compute difference between old and new memory base addresses" bytesToShift := heapBase - oldBaseAddr. self initializeInterpreter: bytesToShift. "adjusts all oops to new location" self initializeCodeGenerator. ^dataSize! Item was changed: ----- Method: CrossPlatformVMMaker>>createCodeGenerator (in category 'initialize') ----- createCodeGenerator "Set up a CCodeGenerator for this VMMaker - A cross platform tree leaves it up to the makefiles to decide whether to use the global struct or not." ^CCodeGeneratorGlobalStructure new initialize; globalStructDefined: true; structDefDefine: 'USE_GLOBAL_STRUCT'; logger: logger; + options: optionsDictionary; yourself! Item was changed: ----- Method: Gnuifier>>gnuifyFrom:to: (in category 'as yet unclassified') ----- gnuifyFrom: inFileStream to: outFileStream "convert interp.c to use GNU features" | inData beforeInterpret inInterpret inInterpretVars beforePrimitiveResponse inPrimitiveResponse | inData := inFileStream upToEnd withSqueakLineEndings. inFileStream close. "print a header" outFileStream nextPutAll: '/* This file has been post-processed for GNU C */'; cr; cr; cr. beforeInterpret := true. "whether we are before the beginning of interpret()" inInterpret := false. "whether we are in the middle of interpret" inInterpretVars := false. "whether we are in the variables of interpret" beforePrimitiveResponse := true. "whether we are before the beginning of primitiveResponse()" inPrimitiveResponse := false. "whether we are inside of primitiveResponse" 'Gnuifying' displayProgressAt: Sensor cursorPoint from: 1 to: (inData occurrencesOf: Character cr) during: [:bar | | lineNumber | lineNumber := 0. inData linesDo: [ :inLine | | outLine extraOutLine | bar value: (lineNumber := lineNumber + 1). outLine := inLine. "print out one line for each input line; by default, print out the line that was input, but some rules modify it" extraOutLine := nil. "occasionally print a second output line..." beforeInterpret ifTrue: [ (inLine = '#include "sq.h"') ifTrue: [ outLine := '#include "sqGnu.h"'. ]. (inLine beginsWith: 'interpret(void)') ifTrue: [ "reached the beginning of interpret" beforeInterpret := false. inInterpret := true. inInterpretVars := true. ] ] ifFalse: [ inInterpretVars ifTrue: [ (inLine findString: 'register struct foo * foo = &fum;') > 0 ifTrue: [ outLine := 'register struct foo * foo FOO_REG = &fum;' ]. (inLine findString: ' localIP;') > 0 ifTrue: [ + outLine := ' register char* localIP IP_REG;' ]. - outLine := ' char* localIP IP_REG;' ]. (inLine findString: ' localFP;') > 0 ifTrue: [ + outLine := ' register char* localFP FP_REG;' ]. - outLine := ' char* localFP FP_REG;' ]. (inLine findString: ' localSP;') > 0 ifTrue: [ + outLine := ' register char* localSP SP_REG;' ]. - outLine := ' char* localSP SP_REG;' ]. (inLine findString: ' currentBytecode;') > 0 ifTrue: [ + outLine := ' register sqInt currentBytecode CB_REG;' ]. - outLine := ' sqInt currentBytecode CB_REG;' ]. inLine isEmpty ifTrue: [ "reached end of variables" inInterpretVars := false. outLine := ' JUMP_TABLE;'. extraOutLine := inLine ] ] ifFalse: [ inInterpret ifTrue: [ "working inside interpret(); translate the switch statement" (inLine beginsWith: ' case ') ifTrue: [ | caseLabel | caseLabel := (inLine findTokens: ' :') second. outLine := ' CASE(', caseLabel, ')' ]. inLine = ' break;' ifTrue: [ outLine := ' BREAK;' ]. inLine = '}' ifTrue: [ "all finished with interpret()" inInterpret := false. ] ] ifFalse: [ beforePrimitiveResponse ifTrue: [ (inLine beginsWith: 'primitiveResponse(') ifTrue: [ "into primitiveResponse we go" beforePrimitiveResponse := false. inPrimitiveResponse := true. extraOutLine := ' PRIM_TABLE;'. ] ] ifFalse: [ inPrimitiveResponse ifTrue: [ (inLine = ' switch (primitiveIndex) {') ifTrue: [ extraOutLine := outLine. outLine := ' PRIM_DISPATCH;' ]. (inLine = ' switch (GIV(primitiveIndex)) {') ifTrue: [ extraOutLine := outLine. outLine := ' PRIM_DISPATCH;' ]. (inLine beginsWith: ' case ') ifTrue: [ | caseLabel | caseLabel := (inLine findTokens: ' :') second. outLine := ' CASE(', caseLabel, ')' ]. inLine = '}' ifTrue: [ inPrimitiveResponse := false ] ]. ] ] ] ]. outFileStream nextPutAll: outLine; cr. extraOutLine ifNotNil: [ outFileStream nextPutAll: extraOutLine; cr ]]]. outFileStream close! Item was changed: ----- Method: Interpreter>>printOop: (in category 'debug printing') ----- printOop: oop | fmt lastIndex | <inline: false> self printNum: oop. (self isIntegerObject: oop) ifTrue: + [^self cCode: 'printf("=%ld\n", (long)integerValueOf(oop))' inSmalltalk: [self shortPrint: oop]]. - [^self cCode: 'printf("=%ld\n", integerValueOf(oop))' inSmalltalk: [self shortPrint: oop]]. self print: ': a(n) '. self printNameOfClass: (self fetchClassOf: oop) count: 5. self cr. fmt := self formatOf: oop. (fmt > 4 and: [fmt < 12]) ifTrue: [^self printStringOf: oop]. lastIndex := 64 min: ((self lastPointerOf: oop) / BytesPerWord). lastIndex > 0 ifTrue: [1 to: lastIndex do: [:index| self cCode: 'printf(" %ld", fetchPointerofObject(index - 1, oop))' inSmalltalk: [self space; print: (self fetchPointer: index - 1 ofObject: oop) printString; space. self print: (self shortPrint: (self fetchPointer: index - 1 ofObject: oop))]. (index \\ 8) = 0 ifTrue: [self cr]]. (lastIndex \\ 8) = 0 ifFalse: [self cr]]! Item was changed: ----- Method: NewspeakInterpreter>>printOop: (in category 'debug printing') ----- printOop: oop | cls fmt lastIndex startIP bytecodesPerLine | <inline: false> self printHex: oop. (self isIntegerObject: oop) ifTrue: [^self + cCode: 'printf("=%ld\n", (long)integerValueOf(oop))' - cCode: 'printf("=%ld\n", integerValueOf(oop))' inSmalltalk: [self print: (self shortPrint: oop); cr]]. (oop between: self startOfMemory and: freeBlock) ifFalse: [self printHex: oop; print: ' is not on the heap'; cr. ^nil]. (oop bitAnd: (BytesPerWord - 1)) ~= 0 ifTrue: [self printHex: oop; print: ' is misaligned'; cr. ^nil]. (self isFreeObject: oop) ifTrue: [self print: ' free chunk of size '; printNum: (self sizeOfFree: oop); cr. ^nil]. self print: ': a(n) '. self printNameOfClass: (cls := self fetchClassOfNonInt: oop) count: 5. cls = (self splObj: ClassFloat) ifTrue: [self cr; printFloat: (self dbgFloatValueOf: oop); cr. ^nil]. fmt := self formatOf: oop. fmt > 4 ifTrue: [self print: ' nbytes '; printNum: (self byteSizeOf: oop)]. self cr. (fmt > 4 and: [fmt < 12]) ifTrue: [(self isWords: oop) ifTrue: [lastIndex := 64 min: ((self byteSizeOf: oop) / BytesPerWord). lastIndex > 0 ifTrue: [1 to: lastIndex do: [:index| self space; printHex: (self fetchLong32: index - 1 ofObject: oop). (index \\ self elementsPerPrintOopLine) = 0 ifTrue: [self cr]]. (lastIndex \\ self elementsPerPrintOopLine) = 0 ifFalse: [self cr]]. ^nil]. ^self printStringOf: oop; cr]. lastIndex := 64 min: (startIP := (self lastPointerOf: oop) / BytesPerWord). lastIndex > 0 ifTrue: [1 to: lastIndex do: [:index| self cCode: 'printHex(fetchPointerofObject(index - 1, oop)); putchar('' '')' inSmalltalk: [self space; printHex: (self fetchPointer: index - 1 ofObject: oop); space. self print: (self shortPrint: (self fetchPointer: index - 1 ofObject: oop))]. (index \\ self elementsPerPrintOopLine) = 0 ifTrue: [self cr]]. (lastIndex \\ self elementsPerPrintOopLine) = 0 ifFalse: [self cr]]. (self isCompiledMethod: oop) ifFalse: [startIP > 64 ifTrue: [self print: '...'; cr]] ifTrue: [startIP := startIP * BytesPerWord + 1. lastIndex := self lengthOf: oop. lastIndex - startIP > 100 ifTrue: [lastIndex := startIP + 100]. bytecodesPerLine := 10. startIP to: lastIndex do: [:index| | byte | byte := self fetchByte: index - 1 ofObject: oop. self cCode: 'printf(" %02x/%-3d", byte,byte)' inSmalltalk: [self space; print: (byte radix: 16); printChar: $/; printNum: byte]. ((index - startIP + 1) \\ bytecodesPerLine) = 0 ifTrue: [self cr]]. ((lastIndex - startIP + 1) \\ bytecodesPerLine) = 0 ifFalse: [self cr]]! Item was changed: ----- Method: NewspeakInterpreter>>shortPrintOop: (in category 'debug printing') ----- shortPrintOop: oop <inline: false> self printHex: oop. (self isIntegerObject: oop) ifTrue: + [^self cCode: 'printf("=%ld\n", (long)integerValueOf(oop))' inSmalltalk: [self print: (self shortPrint: oop); cr]]. - [^self cCode: 'printf("=%ld\n", integerValueOf(oop))' inSmalltalk: [self print: (self shortPrint: oop); cr]]. (oop between: self startOfMemory and: freeBlock) ifFalse: [self printHex: oop; print: ' is not on the heap'; cr. ^nil]. (oop bitAnd: (BytesPerWord - 1)) ~= 0 ifTrue: [self printHex: oop; print: ' is misaligned'; cr. ^nil]. self print: ': a(n) '. self printNameOfClass: (self fetchClassOf: oop) count: 5. self cr! Item was changed: ----- Method: StackInterpreter>>marryFrame:SP: (in category 'frame access') ----- marryFrame: theFP SP: theSP "Marry an unmarried frame. This means creating a spouse context initialized with a subset of the frame's state (state through the last argument) that references the frame." + <var: #theFP type: #'char *'> + <var: #theSP type: #'char *'> <inline: false> ^self marryFrame: theFP SP: theSP copyTemps: false! Item was changed: ----- Method: StackInterpreter>>printOop: (in category 'debug printing') ----- printOop: oop | cls fmt lastIndex startIP bytecodesPerLine | <inline: false> self printHex: oop. (objectMemory isIntegerObject: oop) ifTrue: [^self + cCode: 'printf("=%ld\n", (long)integerValueOf(oop))' - cCode: 'printf("=%ld\n", integerValueOf(oop))' inSmalltalk: [self print: (self shortPrint: oop); cr]]. (oop between: objectMemory startOfMemory and: objectMemory freeStart) ifFalse: [self printHex: oop; print: ' is not on the heap'; cr. ^nil]. (oop bitAnd: (BytesPerWord - 1)) ~= 0 ifTrue: [self printHex: oop; print: ' is misaligned'; cr. ^nil]. (objectMemory isFreeObject: oop) ifTrue: [self print: ' free chunk of size '; printNum: (objectMemory sizeOfFree: oop); cr. ^nil]. self print: ': a(n) '. self printNameOfClass: (cls := objectMemory fetchClassOfNonInt: oop) count: 5. cls = (objectMemory splObj: ClassFloat) ifTrue: [self cr; printFloat: (self dbgFloatValueOf: oop); cr. ^nil]. fmt := objectMemory formatOf: oop. fmt > 4 ifTrue: [self print: ' nbytes '; printNum: (objectMemory byteSizeOf: oop)]. self cr. (fmt > 4 and: [fmt < 12]) ifTrue: ["This will answer false if splObj: ClassAlien is nilObject" (self is: oop KindOfClass: (objectMemory splObj: ClassAlien)) ifTrue: [self print: ' datasize '; printNum: (self sizeOfAlienData: oop). self print: ((self isIndirectAlien: oop) ifTrue: [' indirect @ '] ifFalse: [(self isPointerAlien: oop) ifTrue: [' pointer @ '] ifFalse: [' direct @ ']]). self printHex: (self startOfAlienData: oop) asUnsignedInteger; cr. ^nil]. (objectMemory isWords: oop) ifTrue: [lastIndex := 64 min: ((objectMemory byteSizeOf: oop) / BytesPerWord). lastIndex > 0 ifTrue: [1 to: lastIndex do: [:index| self space; printHex: (objectMemory fetchLong32: index - 1 ofObject: oop). (index \\ self elementsPerPrintOopLine) = 0 ifTrue: [self cr]]. (lastIndex \\ self elementsPerPrintOopLine) = 0 ifFalse: [self cr]]. ^nil]. ^self printStringOf: oop; cr]. lastIndex := 64 min: (startIP := (objectMemory lastPointerOf: oop) / BytesPerWord). lastIndex > 0 ifTrue: [1 to: lastIndex do: [:index| self cCode: 'printHex(fetchPointerofObject(index - 1, oop)); putchar('' '')' inSmalltalk: [self space; printHex: (objectMemory fetchPointer: index - 1 ofObject: oop); space. self print: (self shortPrint: (objectMemory fetchPointer: index - 1 ofObject: oop))]. (index \\ self elementsPerPrintOopLine) = 0 ifTrue: [self cr]]. (lastIndex \\ self elementsPerPrintOopLine) = 0 ifFalse: [self cr]]. (objectMemory isCompiledMethod: oop) ifFalse: [startIP > 64 ifTrue: [self print: '...'; cr]] ifTrue: [startIP := startIP * BytesPerWord + 1. lastIndex := objectMemory lengthOf: oop. lastIndex - startIP > 100 ifTrue: [lastIndex := startIP + 100]. bytecodesPerLine := 10. startIP to: lastIndex do: [:index| | byte | byte := objectMemory fetchByte: index - 1 ofObject: oop. self cCode: 'printf(" %02x/%-3d", byte,byte)' inSmalltalk: [self space; print: (byte radix: 16); printChar: $/; printNum: byte]. ((index - startIP + 1) \\ bytecodesPerLine) = 0 ifTrue: [self cr]]. ((lastIndex - startIP + 1) \\ bytecodesPerLine) = 0 ifFalse: [self cr]]! Item was changed: ----- Method: StackInterpreter>>shortPrintContext: (in category 'debug printing') ----- shortPrintContext: aContext | theFP | <inline: false> <var: #theFP type: #'char *'> (self isContext: aContext) ifFalse: [self printHex: aContext; print: ' is not a context'; cr. ^nil]. self printHex: aContext. (self isMarriedOrWidowedContext: aContext) ifTrue: [(self checkIsStillMarriedContext: aContext currentFP: framePointer) ifTrue: [(self isMachineCodeFrame: (theFP := self frameOfMarriedContext: aContext)) ifTrue: [self print: ' M ('] ifFalse: [self print: ' I (']. + self printHex: theFP asUnsignedInteger; print: ') '] - self printHex: theFP; print: ') '] ifFalse: [self print: ' w ']] ifFalse: [self print: ' s ']. (self findHomeForContext: aContext) ifNil: [self print: ' BOGUS CONTEXT (can''t determine home)'] ifNotNil: [:home| self printActivationNameFor: (objectMemory fetchPointer: MethodIndex ofObject: aContext) receiver: (home isNil ifTrue: [objectMemory nilObject] ifFalse: [objectMemory fetchPointer: ReceiverIndex ofObject: home]) isBlock: home ~= aContext firstTemporary: (objectMemory fetchPointer: 0 + CtxtTempFrameStart ofObject: home)]. self cr! Item was changed: ----- Method: StackInterpreter>>shortPrintOop: (in category 'debug printing') ----- shortPrintOop: oop <inline: false> self printNum: oop. (objectMemory isIntegerObject: oop) ifTrue: + [^self cCode: 'printf("=%ld\n", (long)integerValueOf(oop))' inSmalltalk: [self print: (self shortPrint: oop); cr]]. - [^self cCode: 'printf("=%ld\n", integerValueOf(oop))' inSmalltalk: [self print: (self shortPrint: oop); cr]]. (oop between: objectMemory startOfMemory and: objectMemory freeStart) ifFalse: [self printHex: oop; print: ' is not on the heap'; cr. ^nil]. (oop bitAnd: (BytesPerWord - 1)) ~= 0 ifTrue: [self printHex: oop; print: ' is misaligned'; cr. ^nil]. self print: ': a(n) '. self printNameOfClass: (objectMemory fetchClassOf: oop) count: 5. self cr! Item was changed: ----- Method: StackInterpreterPrimitives>>primitiveContextAtPut (in category 'indexing primitives') ----- primitiveContextAtPut "Special version of primitiveAtPut for accessing contexts. Written to be varargs for use from mirror primitives." | index value aContext spouseFP hdr fmt totalLength fixedFields stSize | <inline: false> <var: #spouseFP type: #'char *'> value := self stackTop. index := self stackValue: 1. aContext := self stackValue: 2. (objectMemory isIntegerObject: index) ifFalse: [^self primitiveFailFor: PrimErrBadArgument]. "Duplicating much of stObject:at:put: here allows stObject:at:put: to omit tests for contexts." hdr := objectMemory baseHeader: aContext. index := objectMemory integerValueOf: index. (objectMemory isContextHeader: hdr) ifFalse: "might be an instance of a subclass" [self stObject: aContext at: index put: value. ^self successful ifTrue: [self pop: argumentCount + 1 thenPush: value]]. self externalWriteBackHeadFramePointers. (self isStillMarriedContext: aContext) ifFalse: [fmt := objectMemory formatOfHeader: hdr. totalLength := objectMemory lengthOf: aContext baseHeader: hdr format: fmt. fixedFields := objectMemory fixedFieldsOf: aContext format: fmt length: totalLength. stSize := self fetchStackPointerOf: aContext. (index between: 1 and: stSize) ifFalse: [^self primitiveFailFor: PrimErrBadIndex]. self subscript: aContext with: (index + fixedFields) storing: value format: fmt. ^self pop: argumentCount + 1 thenPush: value]. spouseFP := self frameOfMarriedContext: aContext. (index between: 1 and: (self stackPointerIndexForFrame: spouseFP)) ifFalse: [^self primitiveFailFor: PrimErrBadIndex]. self temporary: index - 1 in: spouseFP put: value. + self pop: argumentCount + 1 thenPush: value! - ^self pop: argumentCount + 1 thenPush: value! Item was changed: ----- Method: VMMaker class>>generateNewspeakCogVM (in category 'configurations') ----- generateNewspeakCogVM ^VMMaker generate: CoInterpreter and: StackToRegisterMappingCogit"Cogit chooseCogitClass" + with: #( NewspeakVM true + MULTIPLEBYTECODESETS false) - with: #(NewspeakVM true) to: (FileDirectory default pathFromURI: 'oscogvm/nscogsrc') platformDir: (FileDirectory default pathFromURI: '../Newspeak/newclosurevm/platforms') including:#( AsynchFilePlugin BMPReadWriterPlugin BalloonEnginePlugin BitBltSimulation DSAPlugin DropPlugin FileCopyPlugin FilePlugin FloatArrayPlugin FloatMathPlugin InflatePlugin JPEGReadWriter2Plugin JPEGReaderPlugin LargeIntegersPlugin Matrix2x3Plugin MiscPrimitivePlugin NewsqueakIA32ABIPlugin RePlugin SecurityPlugin SocketPlugin SoundPlugin SurfacePlugin ThreadedIA32FFIPlugin UUIDPlugin UnixOSProcessPlugin VMProfileMacSupportPlugin Win32OSProcessPlugin)! Item was changed: ----- Method: VMMaker class>>generateSqueakCogVM (in category 'configurations') ----- generateSqueakCogVM ^VMMaker generate: (Smalltalk at: ([:choices| choices at: (UIManager default chooseFrom: choices) ifAbsent: [^self]] value: #(CoInterpreter CoInterpreterMT))) and: StackToRegisterMappingCogit + with: #( MULTIPLEBYTECODESETS false + NewspeakVM false) to: (FileDirectory default pathFromURI: 'oscogvm/src') platformDir: (FileDirectory default pathFromURI: 'oscogvm/platforms') including:#( ADPCMCodecPlugin AsynchFilePlugin BalloonEnginePlugin B3DAcceleratorPlugin BMPReadWriterPlugin BitBltSimulation BochsIA32Plugin CroquetPlugin DSAPlugin DeflatePlugin DropPlugin FT2Plugin FFTPlugin FileCopyPlugin FilePlugin FloatArrayPlugin FloatMathPlugin GeniePlugin HostWindowPlugin IA32ABIPlugin InternetConfigPlugin JPEGReadWriter2Plugin JPEGReaderPlugin JoystickTabletPlugin KlattSynthesizerPlugin LargeIntegersPlugin LocalePlugin MIDIPlugin MacMenubarPlugin Matrix2x3Plugin MiscPrimitivePlugin Mpeg3Plugin QuicktimePlugin RePlugin SecurityPlugin SerialPlugin SocketPlugin SoundCodecPlugin SoundGenerationPlugin SoundPlugin ThreadedIA32FFIPlugin StarSqueakPlugin UUIDPlugin UnixOSProcessPlugin Win32OSProcessPlugin VMProfileMacSupportPlugin)! Item was changed: ----- Method: VMMaker>>createCodeGenerator (in category 'initialize') ----- createCodeGenerator "set up a CCodeGenerator for this VMMaker" ^CCodeGenerator new initialize logger: logger; + options: optionsDictionary; yourself! Item was changed: ----- Method: VMMaker>>createCogitCodeGenerator (in category 'initialize') ----- createCogitCodeGenerator ^CCodeGenerator new initialize logger: logger; + options: optionsDictionary; yourself! Item was added: + ----- Method: VMMaker>>options (in category 'accessing') ----- + options + ^optionsDictionary!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Vm-dev August 2012