Vm-dev February 2012

vm-dev@lists.squeakfoundation.org

21 participants
54 discussions

VM Maker: CMakeVMMaker-EstebanLorenzano.149.mcz
by commits＠source.squeak.org 18 Feb '12

18 Feb '12

Esteban Lorenzano uploaded a new version of CMakeVMMaker to project VM Maker: http://source.squeak.org/VMMaker/CMakeVMMaker-EstebanLorenzano.149.mcz ==================== Summary ==================== Name: CMakeVMMaker-EstebanLorenzano.149 Author: EstebanLorenzano Time: 18 February 2012, 10:24:26 am UUID: 4c3586ea-949b-483f-b059-9123508e2e67 Ancestors: CMakeVMMaker-EstebanLorenzano.148 StackIPhoneConfig working with Xcode generation, not with regular makes (it is not placing files in proper place) =============== Diff against CMakeVMMaker-EstebanLorenzano.148 =============== Item was changed: ----- Method: CocoaIOSConfig>>plistFile (in category 'bundle strings') ----- plistFile - | plist | + plist := self plistTemplate. + self plistKeys + do: [:key | + plist := plist + copyReplaceAll: '@' , key , '@' + with: (self perform: key) asString ]. - plist := self plistTemplate. - - #( - CFBundleExecutable - CFBundleGetInfoString - CFBundleName - CFBundleShortVersionString - CFBundleVersion - CFBundleIconFile - CFBundleIdentifier - NSMainNibFile - SqueakDebug) do: [:key | - plist := plist copyReplaceAll: '@' , key , '@' with: (self perform: key) asString - ]. ^ self fixLineEndsOf: plist! Item was added: + ----- Method: CocoaIOSConfig>>plistKeys (in category 'bundle strings') ----- + plistKeys + ^#( + CFBundleExecutable + CFBundleGetInfoString + CFBundleName + CFBundleShortVersionString + CFBundleVersion + CFBundleIconFile + CFBundleIdentifier + NSMainNibFile + SqueakDebug)! Item was added: + ----- Method: StackIPhoneConfig class>>deviceIPad (in category 'accessing') ----- + deviceIPad + ^'2'! Item was added: + ----- Method: StackIPhoneConfig class>>deviceIPhone (in category 'accessing') ----- + deviceIPhone + ^'1'! Item was added: + ----- Method: StackIPhoneConfig>>CFBundleIconFile (in category 'bundle strings') ----- + CFBundleIconFile + ^'Cog.png'! Item was added: + ----- Method: StackIPhoneConfig>>UIDeviceFamily (in category 'bundle strings') ----- + UIDeviceFamily + ^self targetedDeviceFamily! Item was added: + ----- Method: StackIPhoneConfig>>codeSignIdentity (in category 'accessing') ----- + codeSignIdentity + ^'iPhone Developer'! Item was changed: ----- Method: StackIPhoneConfig>>commonCompilerFlags (in category 'settings') ----- commonCompilerFlags "Common compiler flags" ^{ "'-miphoneos-version-min=4.3'. " '-isysroot /Developer/Platforms/iPhoneOS.platform/Developer/SDKs/iPhoneOS', self sdkVersion, '.sdk'. '-x objective-c'. '-std=gnu99'. '-falign-functions=16'. '-fno-gcse'. '-fno-cse-follow-jumps'. '-fvisibility=hidden'. '-funroll-loops'. '-finline-functions'. + '-mno-thumb'. '-DSTACKVM=1'. '-DCOGMTVM=0'. '-DUSE_GLOBAL_STRUCT=0'. '-DBASE_HEADER_SIZE=4'. '-DTARGET_OS_IS_IPHONE'. '-DHAVE_UUID_GENERATE'. '-DUSE_INLINE_MEMORY_ACCESSORS'. '-DHAVE_SYS_TIME_H'. '-DLSB_FIRST'. '-DHAVE_NANOSLEEP'. "'-DXXXUSE_INLINE_MEMORY_ACCESSORS'." + '-DISQUEAK_IMAGE=', self imageName. - '-DISQUEAK_IMAGE=iPhone'. '-DISQUEAK_SOURCES=PharoV10'}! Item was changed: ----- Method: StackIPhoneConfig>>compilerFlagsRelease (in category 'settings') ----- compilerFlagsRelease + ^#('-g0' '-O3' "'-fasm-blocks'" '-finline-functions' "'-mfpmath=sse'" '-fomit-frame-pointer' "'-march=pentium-m'" "'-mtune=prescott'" '-DNDEBUG' '-DDEBUGVM=0')! - ^#('-g0' '-Os' "'-fasm-blocks'" '-finline-functions' "'-mfpmath=sse'" '-fomit-frame-pointer' "'-march=pentium-m'" "'-mtune=prescott'" '-DNDEBUG' '-DDEBUGVM=0')! Item was added: + ----- Method: StackIPhoneConfig>>deploymentTargetVersion (in category 'accessing') ----- + deploymentTargetVersion + ^'4.0'! Item was added: + ----- Method: StackIPhoneConfig>>imageName (in category 'accessing') ----- + imageName + ^'iPhone'! Item was changed: ----- Method: StackIPhoneConfig>>imageResources (in category 'settings') ----- imageResources ^#( - 'iPhone.image' 'iPhone.changes' 'PharoV10.sources')! Item was added: + ----- Method: StackIPhoneConfig>>plistKeys (in category 'bundle strings') ----- + plistKeys + ^super plistKeys + copyWith: #UIDeviceFamily! Item was changed: ----- Method: StackIPhoneConfig>>plistTemplate (in category 'bundle strings') ----- plistTemplate self flag: #todo. "CFBundleDisplayName is using @CFBundleExecutable@ that's probably wrong" ^'<?xml version="1.0" encoding="UTF-8"?> <!!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd"> <plist version="1.0"> <dict> <key>CFBundleDevelopmentRegion</key> <string>en</string> <key>CFBundleDisplayName</key> <string>@CFBundleExecutable@</string> <key>CFBundleExecutable</key> <string>@CFBundleExecutable@</string> <key>CFBundleIconFile</key> <string>@CFBundleIconFile@</string> <key>CFBundleIdentifier</key> <string>@CFBundleIdentifier@</string> <key>CFBundleInfoDictionaryVersion</key> <string>6.0</string> <key>CFBundleName</key> <string>@CFBundleName@</string> <key>CFBundlePackageType</key> <string>APPL</string> <key>CFBundleResourceSpecification</key> <string>ResourceRules.plist</string> <key>CFBundleSignature</key> <string>FRAC</string> <key>CFBundleSupportedPlatforms</key> <array> <string>iPhoneOS</string> </array> <key>CFBundleVersion</key> <string>1.1.7</string> <key>LSRequiresIPhoneOS</key> <true/> <key>MinimumOSVersion</key> <string>3.1.3</string> <key>NSMainNibFile</key> <string>MainWindow</string> <key>UIDeviceFamily</key> <array> + <integer>@UIDeviceFamily@</integer> - <integer>1</integer> </array> <key>UIPrerenderedIcon</key> <false/> <key>UIStatusBarHidden</key> <true/> </dict> </plist> '! Item was changed: ----- Method: StackIPhoneConfig>>resources (in category 'settings') ----- resources + ^{ + self CFBundleIconFile. + self imageName, '.image'}, + self imageResources + ! - ^#('Cog.icns'), self imageResources! Item was added: + ----- Method: StackIPhoneConfig>>resourcesDir (in category 'accessing') ----- + resourcesDir + "Answer the value of resourcesDir" + ^ resourcesDir ifNil: [ resourcesDir := (self topDir / 'iosbuild' / 'resources') fullName ]! Item was changed: ----- Method: StackIPhoneConfig>>setCommonProperties: (in category 'settings') ----- setCommonProperties: maker maker set: 'CMAKE_CROSSCOMPILING' to: 'TRUE'. maker set: 'CMAKE_SYSTEM_NAME' to: 'Darwin'. maker set: 'CMAKE_SYSTEM_PROCESSOR' to: 'arm'. maker set: 'SDKVER' toString: self sdkVersion. maker set: 'DEVROOT' toString: '/Developer/Platforms/iPhoneOS.platform/Developer'. maker set: 'SDKROOT' toString: '${DEVROOT}/SDKs/iPhoneOS${SDKVER}.sdk'. + maker set: 'CMAKE_OSX_SYSROOT' to: 'iphoneos${SDKVER}'. - maker - set: 'CMAKE_OSX_SYSROOT' - to: 'iphoneos${SDKVER}'. maker set: 'CMAKE_C_COMPILER' to: '${DEVROOT}/usr/bin/llvm-gcc'. maker set: 'CMAKE_CXX_COMPILER' to: '${DEVROOT}/usr/bin/llvm-g++'. "maker set: 'CMAKE_C_COMPILER' to: 'gcc-4.2'. maker set: 'CMAKE_CXX_COMPILER' to: 'g++-4.2'." maker set: 'CMAKE_FIND_ROOT_PATH' to: '"${SDKROOT}" "${DEVROOT}"'. maker set: 'CMAKE_FIND_ROOT_PATH_MODE_PROGRAM' to: 'ONLY'. maker set: 'CMAKE_FIND_ROOT_PATH_MODE_LIBRARY' to: 'ONLY'. maker set: 'CMAKE_FIND_ROOT_PATH_MODE_INCLUDE' to: 'ONLY'. maker set: 'CMAKE_EXE_LINKER_FLAGS' toString: '-L${SDKROOT}/usr/lib -L${SDKROOT}/usr/lib/system'. + maker addFrameworks: self frameworks.! - maker addFrameworks: self frameworks. - ! Item was changed: ----- Method: StackIPhoneConfig>>setExtraTargetProperties: (in category 'settings') ----- setExtraTargetProperties: maker "super setExtraTargetProperties: maker." | precompiledHeaders plist | precompiledHeaders := (self executableName, '_Prefix.pch'). (maker buildDir forceNewFileNamed: precompiledHeaders) nextPutAll: self precompiledHeaders; close. + maker addXCodeProperty: 'GCC_PREFIX_HEADER' value: '${buildDir}/', precompiledHeaders. self setCommonProperties: maker. " generated and add Info.plist file " plist := self plistFile. - (maker buildDir forceNewFileNamed: 'Info.plist') nextPutAll: plist; close. + maker addProperty: 'MACOSX_BUNDLE_INFO_PLIST' value: '${buildDir}/Info.plist'. maker - addProperty: 'MACOSX_BUNDLE_INFO_PLIST' - value: '${buildDir}/Info.plist'. - - maker cmd: 'set_target_properties' params: self executableName, ' PROPERTIES COMPILE_FLAGS "-include \"', (self buildDir / self prefixHeaderFileName) fullName, '\""'. + + maker set: 'CMAKE_XCODE_ATTRIBUTE_CODE_SIGN_IDENTITY' toString: self codeSignIdentity. + maker set: 'CMAKE_XCODE_ATTRIBUTE_TARGETED_DEVICE_FAMILY' toString: self targetedDeviceFamily. + maker set: 'CMAKE_XCODE_ATTRIBUTE_IPHONEOS_DEPLOYMENT_TARGET' to: self deploymentTargetVersion. + maker set: 'EXECUTABLE_OUTPUT_PATH' toString: self outputDir.! - maker set: 'EXECUTABLE_OUTPUT_PATH' toString: self outputDir. - maker set: 'RUNTIME_OUTPUT_DIRECTORY' toString: self outputDir. - ! Item was changed: ----- Method: StackIPhoneConfig>>setResourceProperties: (in category 'settings') ----- setResourceProperties: maker + maker set: 'resourceDir' toString: self resourcesDir. - maker set: 'resourceDir' toString: self resourcesDir, '/ProjectBuilder'. maker set: 'resources' to: (String streamContents: [ :stream | self resources do: [ :each | stream nextPut: $"; nextPutAll: '${resourceDir}/'; nextPutAll: each; nextPut: $"] separatedBy: [ stream space ] ]). maker set: 'resourcesLocaleEnglish' + toString: '${resourceDir}/English.lproj/MainWindow.nib'. - toString: '${resourceDir}/iPhone-English.lproj/MainWindow.nib'. maker cmd: 'set_source_files_properties' params: '${resources} PROPERTIES MACOSX_PACKAGE_LOCATION Resources'. maker cmd: 'set_source_files_properties' params: '${resourcesLocaleEnglish} PROPERTIES MACOSX_PACKAGE_LOCATION Resources'. - ! Item was added: + ----- Method: StackIPhoneConfig>>targetedDeviceFamily (in category 'accessing') ----- + targetedDeviceFamily + ^self class deviceIPad!

1 0

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

16 Feb '12

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.144.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.144 Author: eem Time: 16 February 2012, 2:24:47.042 pm UUID: bafb8042-095a-42f3-9058-ee7bd133da50 Ancestors: VMMaker.oscog-eem.143 Make primitiveObjectAtPut fail if used to store other than a SmallInteger into the method header. =============== Diff against VMMaker.oscog-eem.143 =============== Item was changed: ----- Method: CoInterpreterPrimitives>>primitiveObjectAtPut (in category 'object access primitives') ----- primitiveObjectAtPut + "Store a literal into a CompiledMethod at the given index. Defined for CompiledMethods only." - "Defined for CompiledMethods only" | thisReceiver rawHeader realHeader index newValue | newValue := self stackValue: 0. + index := self stackValue: 1. + ((objectMemory isNonIntegerObject: index) + or: [index = ConstOne and: [(objectMemory isNonIntegerObject: newValue)]]) ifTrue: - index := self stackIntegerValue: 1. - self successful ifFalse: [^self primitiveFailFor: PrimErrBadArgument]. + index := objectMemory integerValueOf: index. thisReceiver := self stackValue: 2. rawHeader := self rawHeaderOf: thisReceiver. realHeader := (self isCogMethodReference: rawHeader) ifTrue: [(self cCoerceSimple: rawHeader to: #'CogMethod *') methodHeader] ifFalse: [rawHeader]. (index > 0 and: [index <= ((self literalCountOfHeader: realHeader) + LiteralStart)]) ifFalse: [^self primitiveFailFor: PrimErrBadIndex]. (index = 1 and: [self isCogMethodReference: rawHeader]) ifTrue: [(self cCoerceSimple: rawHeader to: #'CogMethod *') methodHeader: newValue] ifFalse: [objectMemory storePointer: index - 1 ofObject: thisReceiver withValue: newValue]. self pop: 3 thenPush: newValue! Item was added: + ----- Method: CogVMSimulator>>primitiveObjectAtPut (in category 'object access primitives') ----- + primitiveObjectAtPut + | newValue | + newValue := self stackValue: 0. + ((self stackValue: 1) = ConstOne + and: [(objectMemory isIntegerObject: newValue) not + or: [(objectMemory integerValueOf: newValue) < 0]]) ifTrue: + [self halt]. + ^super primitiveObjectAtPut! Item was changed: ----- Method: InterpreterPrimitives>>primitiveObjectAtPut (in category 'object access primitives') ----- primitiveObjectAtPut + "Store a literal into a CompiledMethod at the given index. Defined for CompiledMethods only." - "Defined for CompiledMethods only" | thisReceiver index newValue | newValue := self stackValue: 0. + index := self stackValue: 1. + ((objectMemory isNonIntegerObject: index) + or: [index = ConstOne and: [(objectMemory isNonIntegerObject: newValue)]]) ifTrue: - index := self stackIntegerValue: 1. - self successful ifFalse: [^self primitiveFailFor: PrimErrBadArgument]. + index := objectMemory integerValueOf: index. thisReceiver := self stackValue: 2. (index > 0 and: [index <= ((self literalCountOf: thisReceiver) + LiteralStart)]) ifFalse: [^self primitiveFailFor: PrimErrBadIndex]. objectMemory storePointer: index - 1 ofObject: thisReceiver withValue: newValue. self pop: 3 thenPush: newValue!

1 0

How to debug vm without heartbeat interrupting
by Javier Pimás 15 Feb '12

15 Feb '12

I want to debug asm instruction per instruction with gdb, but the heartbeat keeps interrupting. Is there a way to disable it or make gdb ignore it in some way? Cheers, Javier -- Lic. Javier Pimás Ciudad de Buenos Aires

3 4

VM Maker: VMMaker-dtl.266.mcz
by commits＠source.squeak.org 14 Feb '12

14 Feb '12

David T. Lewis uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker-dtl.266.mcz ==================== Summary ==================== Name: VMMaker-dtl.266 Author: dtl Time: 14 February 2012, 12:45:43.869 am UUID: d868a20c-7741-49cc-a7f6-2403bc1643ed Ancestors: VMMaker-dtl.265 VMMaker 4.8.2 Several refactorings to eliminate extra intermediate variables in generated code. The extra intermediate variables had been incorrectly attributed to a slang inlining issue (see commit comment for VMMaker-dtl.264), but root cause was unnecessary dispatching to ObjectMemory. With these changes, the generated code is equivalent to (or trivially better than) that of VMMaker 4.7.20 prior to Interpreter / ObjectMemory refactoring. Remaining differences are due to variable declaration order and variable renaming artifacts (expected variation, no functional impact). =============== Diff against VMMaker-dtl.265 =============== Item was removed: - ----- Method: Interpreter>>allocateMemory:minimum:imageFile:headerSize: (in category 'image save/restore') ----- - allocateMemory: heapSize minimum: minimumMemory imageFile: fileStream headerSize: headerSize - - "Translate to C function call with (case sensitive) camelCase. The purpose of this - method is to document the translation. - The default implementation is sqAllocateMemory(minimumMemory, heapSize). This may - be redefined to make use of the image file and header size parameters for efficient - implementation with mmap(). - See CCodeGenerator>>emitDefaultMacrosOn: which specifies a default implementation." - - <inline: true> - <returnTypeC: 'char *'> - <var: #fileStream type: 'sqImageFile'> - ^ self - allocateMemory: heapSize - Minimum: minimumMemory - ImageFile: fileStream - HeaderSize: headerSize! Item was changed: ----- Method: Interpreter>>internalActivateNewMethod (in category 'message sending') ----- internalActivateNewMethod | methodHeader newContext tempCount argCount2 needsLarge where | <inline: true> methodHeader := self headerOf: newMethod. needsLarge := methodHeader bitAnd: LargeContextBit. (needsLarge = 0 and: [objectMemory freeContexts ~= objectMemory nilContext]) ifTrue: [newContext := objectMemory freeContexts. + objectMemory setFreeContextsAfter: newContext] - objectMemory freeContexts: (objectMemory fetchPointer: 0 ofObject: newContext)] ifFalse: ["Slower call for large contexts or empty free list" self externalizeIPandSP. newContext := objectMemory allocateOrRecycleContext: needsLarge. self internalizeIPandSP]. tempCount := (methodHeader >> 19) bitAnd: 16r3F. "Assume: newContext will be recorded as a root if necessary by the call to newActiveContext: below, so we can use unchecked stores." where := newContext + objectMemory baseHeaderSize. self longAt: where + (SenderIndex << objectMemory shiftForWord) put: activeContext. self longAt: where + (InstructionPointerIndex << objectMemory shiftForWord) put: (objectMemory integerObjectOf: (((LiteralStart + (self literalCountOfHeader: methodHeader)) * objectMemory bytesPerWord) + 1)). self longAt: where + (StackPointerIndex << objectMemory shiftForWord) put: (objectMemory integerObjectOf: tempCount). self longAt: where + (MethodIndex << objectMemory shiftForWord) put: newMethod. self longAt: where + (ClosureIndex << objectMemory shiftForWord) put: objectMemory nilObj. "Copy the receiver and arguments..." argCount2 := argumentCount. 0 to: argCount2 do: [:i | self longAt: where + ((ReceiverIndex+i) << objectMemory shiftForWord) put: (self internalStackValue: argCount2-i)]. "clear remaining temps to nil in case it has been recycled" methodHeader := objectMemory nilObj. "methodHeader here used just as faster (register?) temp" argCount2+1+ReceiverIndex to: tempCount+ReceiverIndex do: [:i | self longAt: where + (i << objectMemory shiftForWord) put: methodHeader]. self internalPop: argCount2 + 1. reclaimableContextCount := reclaimableContextCount + 1. self internalNewActiveContext: newContext. ! Item was changed: ----- Method: Interpreter>>internalJustActivateNewMethod (in category 'message sending') ----- internalJustActivateNewMethod + "Activate the new method but *do not* copy receiver or arguments from activeContext." - "Activate the new method but *do not* copy receiver or argumernts from activeContext." | methodHeader initialIP newContext tempCount needsLarge where | <inline: true> methodHeader := self headerOf: newMethod. needsLarge := methodHeader bitAnd: LargeContextBit. (needsLarge = 0 and: [objectMemory freeContexts ~= objectMemory nilContext]) ifTrue: [newContext := objectMemory freeContexts. + objectMemory setFreeContextsAfter: newContext] - objectMemory freeContexts: (objectMemory fetchPointer: 0 ofObject: newContext)] ifFalse: ["Slower call for large contexts or empty free list" newContext := objectMemory allocateOrRecycleContext: needsLarge]. initialIP := ((LiteralStart + (self literalCountOfHeader: methodHeader)) * objectMemory bytesPerWord) + 1. tempCount := (methodHeader >> 19) bitAnd: 16r3F. "Assume: newContext will be recorded as a root if necessary by the call to newActiveContext: below, so we can use unchecked stores." where := newContext + objectMemory baseHeaderSize. self longAt: where + (SenderIndex << objectMemory shiftForWord) put: activeContext. self longAt: where + (InstructionPointerIndex << objectMemory shiftForWord) put: (objectMemory integerObjectOf: initialIP). self longAt: where + (StackPointerIndex << objectMemory shiftForWord) put: (objectMemory integerObjectOf: tempCount). self longAt: where + (MethodIndex << objectMemory shiftForWord) put: newMethod. "Set the receiver..." self longAt: where + (ReceiverIndex << objectMemory shiftForWord) put: receiver. "clear all args and temps to nil in case it has been recycled" needsLarge := objectMemory nilObj. "needsLarge here used just as faster (register?) temp" ReceiverIndex + 1 to: tempCount + ReceiverIndex do: [:i | self longAt: where + (i << objectMemory shiftForWord) put: needsLarge]. reclaimableContextCount := reclaimableContextCount + 1. activeContext := newContext.! Item was changed: ----- Method: Interpreter>>mapInterpreterOops (in category 'object memory support') ----- mapInterpreterOops "Map all oops in the interpreter's state to their new values during garbage collection or a become: operation." "Assume: All traced variables contain valid oops." | oop | + objectMemory mapRootObjects. - objectMemory nilObj: (objectMemory remap: objectMemory nilObj). - objectMemory falseObj: (objectMemory remap: objectMemory falseObj). - objectMemory trueObj: (objectMemory remap: objectMemory trueObj). - objectMemory specialObjectsOop: (objectMemory remap: objectMemory specialObjectsOop). compilerInitialized ifFalse: [stackPointer := stackPointer - activeContext. "*rel to active" activeContext := objectMemory remap: activeContext. stackPointer := stackPointer + activeContext. "*rel to active" theHomeContext := objectMemory remap: theHomeContext]. instructionPointer := instructionPointer - method. "*rel to method" method := objectMemory remap: method. instructionPointer := instructionPointer + method. "*rel to method" receiver := objectMemory remap: receiver. messageSelector := objectMemory remap: messageSelector. newMethod := objectMemory remap: newMethod. methodClass := objectMemory remap: methodClass. lkupClass := objectMemory remap: lkupClass. receiverClass := objectMemory remap: receiverClass. 1 to: objectMemory remapBufferCount do: [:i | oop := objectMemory remapBuffer at: i. (objectMemory isIntegerObject: oop) ifFalse: [objectMemory remapBuffer at: i put: (objectMemory remap: oop)]]. "Callback support - trace suspended callback list" 1 to: jmpDepth do:[:i| oop := suspendedCallbacks at: i. (objectMemory isIntegerObject: oop) ifFalse:[suspendedCallbacks at: i put: (objectMemory remap: oop)]. oop := suspendedMethods at: i. (objectMemory isIntegerObject: oop) ifFalse:[suspendedMethods at: i put: (objectMemory remap: oop)]. ]. ! Item was changed: ----- Method: Interpreter>>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 memStart bytesRead bytesToShift heapSize | <var: #f type: 'sqImageFile '> <var: #desiredHeapSize type: 'usqInt'> <var: #headerStart type: 'squeakFileOffsetType '> <var: #dataSize type: 'size_t '> <var: #imageOffset type: 'squeakFileOffsetType '> swapBytes := self checkImageVersionFrom: f startingAt: imageOffset. headerStart := (self sqImageFilePosition: f) - objectMemory 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). savedWindowSize := self getLongFromFile: f swap: swapBytes. fullScreenFlag := self oldFormatFullScreenFlag: (self getLongFromFile: f swap: swapBytes). extraVMMemory := self getLongFromFile: f swap: swapBytes. objectMemory lastHash = 0 ifTrue: [ "lastHash wasn't stored (e.g. by the cloner); use 999 as the seed" objectMemory lastHash: 999]. "decrease Squeak object heap to leave extra memory for the VM" heapSize := self cCode: 'reserveExtraCHeapBytes(desiredHeapSize, extraVMMemory)'. "compare memory requirements with availability". minimumMemory := dataSize + 100000. "need at least 100K of breathing room" heapSize < minimumMemory ifTrue: [ self insufficientMemorySpecifiedError]. "allocate a contiguous block of memory for the Squeak heap" + (objectMemory allocateMemory: heapSize - objectMemory memory: (self - allocateMemory: heapSize minimum: minimumMemory imageFile: f + headerSize: headerSize) = nil ifTrue: [self insufficientMemoryAvailableError]. - headerSize: headerSize). - objectMemory memory = nil ifTrue: [self insufficientMemoryAvailableError]. memStart := objectMemory startOfMemory. objectMemory memoryLimit: (memStart + heapSize) - 24. "decrease memoryLimit a tad for safety" objectMemory endOfMemory: memStart + 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 sqImage: (self pointerForOop: objectMemory memory) read: f size: (self cCode: 'sizeof(unsigned char)') length: dataSize. bytesRead ~= dataSize ifTrue: [self unableToReadImageError]. objectMemory headerTypeBytes at: 0 put: objectMemory bytesPerWord * 2. "3-word header (type 0)" objectMemory headerTypeBytes at: 1 put: objectMemory bytesPerWord. "2-word header (type 1)" objectMemory headerTypeBytes at: 2 put: 0. "free chunk (type 2)" objectMemory headerTypeBytes at: 3 put: 0. "1-word header (type 3)" swapBytes ifTrue: [self reverseBytesInImage]. "compute difference between old and new memory base addresses" bytesToShift := memStart - oldBaseAddr. self initializeInterpreter: bytesToShift. "adjusts all oops to new location" self isBigEnder. "work out the machine endianness and cache the answer" (self imageFormatInitialVersion bitAnd: 1) = 1 ifTrue: ["Low order bit set, indicating that the image was saved from a StackInterpreter (Cog) VM. Storage of all Float objects must be returned to older object memory format." self normalizeFloatOrderingInImage]. ^ dataSize ! Item was added: + ----- Method: ObjectMemory>>allocateMemory:minimum:imageFile:headerSize: (in category 'image save/restore') ----- + allocateMemory: heapSize minimum: minimumMemory imageFile: fileStream headerSize: headerSize + + "Translate to C function call with (case sensitive) camelCase. The purpose of this + method is to document the translation. + The default implementation is sqAllocateMemory(minimumMemory, heapSize). This may + be redefined to make use of the image file and header size parameters for efficient + implementation with mmap(). + See CCodeGenerator>>emitDefaultMacrosOn: which specifies a default implementation." + + <inline: true> + <returnTypeC: 'char *'> + <var: #fileStream type: 'sqImageFile'> + ^ memory := self + allocateMemory: heapSize + Minimum: minimumMemory + ImageFile: fileStream + HeaderSize: headerSize! Item was added: + ----- Method: ObjectMemory>>mapRootObjects (in category 'gc -- compaction') ----- + mapRootObjects + "Remap pointers for root objects that may contains pointers to a remapped memory range" + nilObj := self remap: nilObj. + falseObj := self remap: falseObj. + trueObj := self remap: trueObj. + specialObjectsOop := self remap: specialObjectsOop. + ! Item was added: + ----- Method: ObjectMemory>>setFreeContextsAfter: (in category 'allocation') ----- + setFreeContextsAfter: newContext + freeContexts := self fetchPointer: 0 ofObject: newContext + ! Item was changed: ----- Method: VMMaker class>>versionString (in category 'version testing') ----- versionString "VMMaker versionString" + ^'4.8.2'! - ^'4.8.1'!

1 0

Re: [Pharo-project] SocketPlugin: ignoring unknown option 'TCP_CORK'
by Eliot Miranda 13 Feb '12

13 Feb '12

On Mon, Feb 13, 2012 at 1:14 PM, Philippe Marschall <kustos(a)gmx.net> wrote: > On 13.02.2012 19:25, Eliot Miranda wrote: > >> >> >> On Sun, Feb 12, 2012 at 11:59 PM, Philippe Marschall >> <philippe.marschall(a)netcetera.**ch <philippe.marschall(a)netcetera.ch> >> <mailto:philippe.marschall@**netcetera.ch<philippe.marschall(a)netcetera.ch>>> >> wrote: >> >> On 02/13/2012 12:08 AM, Eliot Miranda wrote: >> >> >> >> >> >> Hi Phillipe, >> >> you'll need to add TCP_CORK to the list of known options in >> platforms/unix/plugins/__**SocketPlugin/sqUnixSocket.c >> >> >> >> Do you accept patches? >> >> >> With gratitude :) >> > > There you go, has also TCP_NOPUSH for Mac OS (no, I didn't actually test > that). > Thanks! While I'm at it, anyone think any other socket options should be added? > > Cheers > Philippe -- best, Eliot

1 0

status of plugins?
by Eliot Miranda 13 Feb '12

13 Feb '12

Hi ALl, I've read http://wiki.squeak.org/squeak/1865 but it's light on details. Can anyone summarise the state of Squeak VM plugin support for Safari 5.x? -- best, Eliot

2 1

TZAG everyone! I'm a Coyo, and I'm interested in SqueaksVM development. Hope you dont mind if i poke in here :3
by Alex Maurin 13 Feb '12

13 Feb '12

Hey all, my name is Coyo / Alex, either one is fine. I recently discovered OpenCobalt, and one of the developers there pointed me at Squeak. it seems an interesting language. The developer in question has a youtube tutorial series, and since i already have virtualbox installed, i looked at the download options, and supposed that a vm option would be fascinating. I dont know why a language would need its own virtual machine or operating system, but i guess i'm about to find out! :D This should be fun.

3 4

Re: [Pharo-project] SocketPlugin: ignoring unknown option 'TCP_CORK'
by Eliot Miranda 13 Feb '12

13 Feb '12

Hi Phillipe, you'll need to add TCP_CORK to the list of known options in platforms/unix/plugins/SocketPlugin/sqUnixSocket.c On Sat, Feb 11, 2012 at 1:51 PM, Philippe Marschall <kustos(a)gmx.net> wrote: > Hi > > I had this crazy idea, what instead of buffering at the application level > I use the native buffer of the socket? I would be doing more or less this: > > set TCP_CORK to 1 > set TCP_NODELAY to 0 > > do individual writes > > set TCP_CORK to 0 > set TCP_NODELAY to 1 > > do last write > > goto 1 > > (use TCP_NOWAIT and TCP_NOPUSH on BSD/MacOS) > > I hacked something together and tried to push it through some benchmarks > but the SocketPlugin was not very impressed: > > SocketPlugin: ignoring unknown option 'TCP_CORK' > > This is on Linux with Cog. > > Cheers > Philippe > > > -- best, Eliot

1 0

VM Maker: VMMaker.oscog-eem.143.mcz
by commits＠source.squeak.org 12 Feb '12

12 Feb '12

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.143.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.143 Author: eem Time: 12 February 2012, 2:49:43.607 pm UUID: a6a2d0c7-ce82-480a-8ba9-58f96628dd82 Ancestors: VMMaker.oscog-eem.142 Better error message for inability to thread. =============== Diff against VMMaker.oscog-eem.142 =============== Item was changed: ----- Method: CoInterpreterMT>>disownVM: (in category 'vm scheduling') ----- disownVM: flags "Release the VM to other threads and answer the current thread's index. Currently valid flags: DisownVMLockOutFullGC - prevent fullGCs while this thread disowns the VM. OwnVMForeignThreadFlag - indicates lowest-level entry from a foreign thread - not to be used explicitly by clients - only set by ownVMFromUnidentifiedThread VMAlreadyOwnedHenceDoNotDisown - indicates an ownVM from a callback was made when the vm was still owned. - not to be used explicitly by clients - only set by ownVMFromUnidentifiedThread This is the entry-point for plugins and primitives that wish to release the VM while performing some operation that may potentially block, and for callbacks returning back to some blocking operation. If this thread does not reclaim the VM before- hand then when the next heartbeat occurs the thread manager will schedule a thread to acquire the VM which may start running the VM in place of this thread. N.B. Most of the state needed to resume after preemption is set in preemptDisowningThread." <api> <inline: false> | vmThread result | <var: #vmThread type: #'CogVMThread *'> self assert: self successful. cogit recordEventTrace ifTrue: [self recordTrace: TraceDisownVM thing: (objectMemory integerObjectOf: flags) source: 0]. processHasThreadId ifFalse: [willNotThreadWarnCount < 10 ifTrue: + [self print: 'warning: VM parameter 48 indicates Process doesn''t have threadId; VM will not thread'; cr. - [self print: 'warning: Process doesn''t have threadId; VM will not thread'; cr. willNotThreadWarnCount := willNotThreadWarnCount + 1]]. vmThread := cogThreadManager currentVMThread. (flags anyMask: VMAlreadyOwnedHenceDoNotDisown) ifTrue: [disowningVMThread := vmThread. vmThread state: CTMUnavailable. ^0]. self cCode: '' inSmalltalk: [| range | range := self cStackRangeForThreadIndex: vmThread index. self assert: (range includes: cogit getCStackPointer). self assert: (range includes: cogit getCFramePointer)]. (flags anyMask: DisownVMForProcessorRelinquish) ifTrue: [| proc | (proc := objectMemory splObj: foreignCallbackProcessSlot) ~= objectMemory nilObject ifTrue: [foreignCallbackPriority := self quickFetchInteger: PriorityIndex ofObject: proc]. relinquishing := true. self sqLowLevelMFence]. (flags anyMask: DisownVMLockOutFullGC) ifTrue: [objectMemory incrementFullGCLock]. (noThreadingOfGUIThread and: [self inGUIThread]) ifTrue: [^vmThread index + LockGUIThreadFlag + (activeProcessAffined ifTrue: [0] ifFalse: [ProcessUnaffinedOnDisown]) + (flags << DisownFlagsShift)]. disownCount := disownCount + 1. disowningVMThread := vmThread. "self cr; cr; print: 'disownVM Csp: '; printHex: vmThread cStackPointer; cr. (0 to: 16 by: 4) do: [:offset| self print: ' *(esp+'; printNum: offset; print: ': '; printHex: (stackPages longAt: cogit processor sp + offset); cr]. cogit processor printIntegerRegistersOn: Transcript." "OwnVMForeignThreadFlag indicates lowest-level of entry by a foreign thread. If that's where we are then release the vmThread. Otherwise indicate the vmThread is off doing something outside of the VM." (flags anyMask: OwnVMForeignThreadFlag) ifTrue: ["I don't think this is quite right. Josh's use case is creating some foreign thread and then registering it with the VM. That's not the same as binding a process to a foreign thread given that the foreign callback process is about to terminate anyway (it is returning from a callback here). So do we need an additional concept, that of a vmThread being either of the set known to the VM or floating?" self flag: 'issue with registering foreign threads with the VM'. (self isBoundProcess: self activeProcess) ifFalse: [cogThreadManager unregisterVMThread: vmThread]] ifFalse: [vmThread state: CTMUnavailable]. result := vmThread index + (activeProcessAffined ifTrue: [0] ifFalse: [ProcessUnaffinedOnDisown]) + (flags << DisownFlagsShift). cogThreadManager releaseVM. ^result!

1 0

VM Maker: VMMaker-dtl.265.mcz
by commits＠source.squeak.org 12 Feb '12

12 Feb '12

David T. Lewis uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker-dtl.265.mcz ==================== Summary ==================== Name: VMMaker-dtl.265 Author: dtl Time: 12 February 2012, 10:32:42.55 am UUID: 9270414b-1312-4578-b5a2-488d25b4cecd Ancestors: VMMaker-dtl.264 VMMaker 4.8.1 Remove duplicate timeStamp variables from subclasses of VMClass (caused Monticello load errors) =============== Diff against VMMaker-dtl.264 =============== Item was changed: VMClass subclass: #InterpreterPlugin instanceVariableNames: 'interpreterProxy moduleName' classVariableNames: '' poolDictionaries: '' category: 'VMMaker-Plugins'! - InterpreterPlugin class - instanceVariableNames: 'timeStamp'! !InterpreterPlugin commentStamp: 'tpr 5/5/2003 11:43' prior: 0! This class provides the basic framework for creating VM plugins. Most of the useful methods are on the class side; particularly take note of the messages like #shouldBeTranslated and #requiresPlatformFiles.! - InterpreterPlugin class - instanceVariableNames: 'timeStamp'! Item was changed: VMClass subclass: #ObjectMemory instanceVariableNames: 'memory youngStart endOfMemory memoryLimit nilObj falseObj trueObj specialObjectsOop rootTable rootTableCount extraRoots extraRootCount weakRoots weakRootCount child field parentField freeBlock lastHash allocationCount lowSpaceThreshold signalLowSpace compStart compEnd fwdTableNext fwdTableLast remapBuffer remapBufferCount allocationsBetweenGCs tenuringThreshold gcSemaphoreIndex gcBiasToGrow gcBiasToGrowGCLimit gcBiasToGrowThreshold statFullGCs statFullGCMSecs statFullGCUsecs statIncrGCs statIncrGCMSecs statIncrGCUsecs statIGCDeltaUsecs statTenures statRootTableOverflows freeContexts freeLargeContexts totalObjectCount shrinkThreshold growHeadroom headerTypeBytes youngStartLocal statMarkCount statSweepCount statMkFwdCount statCompMoveCount statGrowMemory statShrinkMemory statRootTableCount statAllocationCount statSurvivorCount statGCTime statSpecialMarkCount statIGCDeltaTime statpendingFinalizationSignals forceTenureFlag gcStartUsecs' classVariableNames: 'Byte0Mask Byte0Shift Byte1Mask Byte1Shift Byte1ShiftNegated Byte2Mask Byte2Shift Byte3Mask Byte3Shift Byte3ShiftNegated Byte4Mask Byte4Shift Byte4ShiftNegated Byte5Mask Byte5Shift Byte5ShiftNegated Byte6Mask Byte6Shift Byte7Mask Byte7Shift Byte7ShiftNegated Bytes3to0Mask Bytes7to4Mask ClassPseudoContext ClassTranslatedMethod ContextFixedSizePlusHeader Done ExtraRootSize GCTopMarker HashBits HeaderTypeClass HeaderTypeFree HeaderTypeGC InvokeCallbackSelector NilContext RemapBufferSize RootTableRedZone RootTableSize StartField StartObj Upward' poolDictionaries: 'VMBasicConstants VMObjectIndices VMSqueakV3BytecodeConstants VMSqueakV3ObjectRepresentationConstants' category: 'VMMaker-Interpreter'! - ObjectMemory class - instanceVariableNames: 'timeStamp'! !ObjectMemory commentStamp: '<historical>' prior: 0! This class describes a 32-bit direct-pointer object memory for Smalltalk. The model is very simple in principle: a pointer is either a SmallInteger or a 32-bit direct object pointer. SmallIntegers are tagged with a low-order bit equal to 1, and an immediate 31-bit 2s-complement signed value in the rest of the word. All object pointers point to a header, which may be followed by a number of data fields. This object memory achieves considerable compactness by using a variable header size (the one complexity of the design). The format of the 0th header word is as follows: 3 bits reserved for gc (mark, root, unused) 12 bits object hash (for HashSets) 5 bits compact class index 4 bits object format 6 bits object size in 32-bit words 2 bits header type (0: 3-word, 1: 2-word, 2: forbidden, 3: 1-word) If a class is in the compact class table, then this is the only header information needed. If it is not, then it will have another header word at offset -4 bytes with its class in the high 30 bits, and the header type repeated in its low 2 bits. It the objects size is greater than 255 bytes, then it will have yet another header word at offset -8 bytes with its full word size in the high 30 bits and its header type repeated in the low two bits. The object format field provides the remaining information as given in the formatOf: method (including isPointers, isVariable, isBytes, and the low 2 size bits of byte-sized objects). This implementation includes incremental (2-generation) and full garbage collection, each with compaction and rectification of direct pointers. It also supports a bulk-become (exchange object identity) feature that allows many objects to be becomed at once, as when all instances of a class must be grown or shrunk. There is now a simple 64-bit version of the object memory. It is the simplest possible change that could work. It merely sign-extends all integer oops, and extends all object headers and oops by adding 32 zeroes in the high bits. The format of the base header word is changed in one minor, not especially elegant, way. Consider the old 32-bit header: ggghhhhhhhhhhhhcccccffffsssssstt The 64-bit header is almost identical, except that the size field (now being in units of 8 bytes, has a zero in its low-order bit. At the same time, the byte-size residue bits for byte objects, which are in the low order bits of formats 8-11 and 12-15, are now in need of another bit of residue. So, the change is as follows: ggghhhhhhhhhhhhcccccffffsssssrtt where bit r supplies the 4's bit of the byte size residue for byte objects. Oh, yes, this is also needed now for 'variableWord' objects, since their size in 32-bit words requires a low-order bit. See the comment in formatOf: for the change allowing for 64-bit wide bitmaps, now dubbed 'variableLong'.! - ObjectMemory class - instanceVariableNames: 'timeStamp'! Item was changed: ----- Method: VMMaker class>>versionString (in category 'version testing') ----- versionString "VMMaker versionString" + ^'4.8.1'! - ^'4.8'!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Vm-dev February 2012