Squeak-dev January 2018

squeak-dev@lists.squeakfoundation.org

50 participants
171 discussions

Request size in browse revisions
by Eliot Miranda 14 Jan '18

14 Jan '18

Hi Chris, I just looked for revisions of a large initialization method in VMMaker.oscog and got the reply 'HTTP/1.1 414 Request-URI Too Large server: nginx/1.12.2 date: Fri, 12 Jan 2018 17:26:03 GMT content-type: text/html content-length: 193 connection: close <html> <head><title>414 Request-URI Too Large</title></head> <body bgcolor="white"> <center><h1>414 Request-URI Too Large</h1></center> <hr><center>nginx/1.12.2</center> </body> </html> ' I wonder could the API be changed so that the request doesn't include the body of the method, but only its selector, class and timestamp? The issue would appear to be here: httpGet: actionString for: aMCDefinition ^ HTTPSocket httpGet: self locationWithTrailingSlash args: { 'action'->{actionString}. 'mc-definition'-> {self serializeForRequest: aMCDefinition}} user: self user passwd: self password Copying the aMCDefinition instance and setting its source to something small (nil?, the empty string?, the selector?) would solve the size problem. What info does the server require? _,,,^..^,,,_ best, Eliot

3 3

The Trunk: Kernel-eem.1146.mcz
by commits＠source.squeak.org 14 Jan '18

14 Jan '18

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1146.mcz ==================== Summary ==================== Name: Kernel-eem.1146 Author: eem Time: 13 January 2018, 7:16:52.936871 pm UUID: 3ff238e6-dc26-491f-96de-a9b1520c4608 Ancestors: Kernel-eem.1145 Follow Clément's lead and redefine CompiledCode>>#= in terms of the subclass responsibility hasSameLiteralsAs: which avoids comparing the last literal in COmpiledBlock (the outerCode pointer) which neatly eliminates infinite recursion and considers iotherwise identical blocks embedded in different methiods as being equal. =============== Diff against Kernel-eem.1145 =============== Item was added: + ----- Method: CompiledBlock>>hasSameLiteralsAs: (in category 'comparing') ----- + hasSameLiteralsAs: aMethod + "Answer whether the receiver has the same sequence of literals as the argument. + Do not fully compare the last literal as this is the outerCode back pointer to the + containing method or block, and following it would cause infinite recursion. In any + case this is a useful definition because it considers identical block methods in other- + wise different containing blocks or methods to be the same, which makes sense." + | numLits | + numLits := self numLiterals. + numLits = aMethod numLiterals ifFalse: [^false]. + 1 to: numLits - 1 do: + [:i| | lit1 lit2 | + lit1 := self literalAt: i. + lit2 := aMethod literalAt: i. + (lit1 == lit2 or: [lit1 literalEqual: lit2]) ifFalse: + [^false]]. + ^(self literalAt: numLits) isCompiledCode = (aMethod literalAt: numLits) isCompiledCode! Item was changed: ----- Method: CompiledCode>>= (in category 'comparing') ----- + = aMethod + "Answer whether the receiver implements the same code as the argument, aMethod. - = method - "Answer whether the receiver implements the same code as the argument, method. Here ``same code'' means that if the receiver's source is compiled with the same compiler it should produce the same sequence of bytecodes and literals, same trailer and same properties. Hence this definition of #= (only one of many plausible definitions) can be used to quickly identify changes in the compiler's output." + self == aMethod ifTrue: - | numLits | - self == method ifTrue: [^true]. + (aMethod isCompiledCode + and: [self size = aMethod size + and: [self header = aMethod header]]) ifFalse:"N.B. includes numLiterals comparison." + [^false]. - method isCompiledCode ifFalse: [^false]. - self size = method size ifFalse: [^false]. - self header = method header ifFalse: [^false]. "N.B. includes numLiterals comparison." self initialPC to: self endPC do: + [:i | (self at: i) = (aMethod at: i) ifFalse: [^false]]. + ^self hasSameLiteralsAs: aMethod! - [:i | (self at: i) = (method at: i) ifFalse: [^false]]. - numLits := self numLiterals. - 1 to: numLits do: - [:i| | lit1 lit2 | - lit1 := self literalAt: i. - lit2 := method literalAt: i. - (lit1 == lit2 or: [lit1 literalEqual: lit2]) ifFalse: - [(i = 1 and: [#(117 120) includes: self primitive]) - ifTrue: - [lit1 isArray - ifTrue: - [(lit2 isArray and: [(lit1 first: 2) = (lit2 first: 2)]) ifFalse: - [^false]] - ifFalse: "ExternalLibraryFunction" - [(lit1 analogousCodeTo: lit2) ifFalse: - [^false]]] - ifFalse: - [i = (numLits - 1) - ifTrue: "properties" - [(self properties analogousCodeTo: method properties) - ifFalse: [^false]] - ifFalse: "last literal (methodClassAssociation) of class-side methods is not unique" - "last literal of CompiledBlock is outerMethod and may not be unique." - [(self isCompiledBlock - and: [lit1 isCompiledCode - and: [lit2 isCompiledCode]]) ifTrue: - [^true]. - (i = numLits - and: [lit1 isVariableBinding - and: [lit2 isVariableBinding - and: [lit1 key == lit2 key - and: [lit1 value == lit2 value]]]]) ifFalse: - [^false]]]]]. - ^true! Item was added: + ----- Method: CompiledCode>>hasSameLiteralsAs: (in category 'comparing') ----- + hasSameLiteralsAs: aMethod + "Answer whether the receiver has the same sequence of literals as the argument." + self subclassResponsibility! Item was added: + ----- Method: CompiledMethod>>hasSameLiteralsAs: (in category 'comparing') ----- + hasSameLiteralsAs: aMethod + "Answer whether the receiver has the same sequence of literals as the argument. + Compare the last literal, which is the class association, specially so as not to + differentiate between otherwise identical methods installed in different classes. + Compare the first literal carefully if it is the binding informaiton for an FFI or + external primitive call. Don't compare all of the state so that linked and unlinked + methods are still considered equal." + | numLits | + numLits := self numLiterals. + numLits = aMethod numLiterals ifFalse: [^false]. + 1 to: numLits do: + [:i| | lit1 lit2 | + lit1 := self literalAt: i. + lit2 := aMethod literalAt: i. + (lit1 == lit2 or: [lit1 literalEqual: lit2]) ifFalse: + [(i = 1 and: [#(117 120) includes: self primitive]) + ifTrue: + [lit1 isArray + ifTrue: + [(lit2 isArray and: [(lit1 first: 2) = (lit2 first: 2)]) ifFalse: + [^false]] + ifFalse: "ExternalLibraryFunction" + [(lit1 analogousCodeTo: lit2) ifFalse: + [^false]]] + ifFalse: + [i = (numLits - 1) + ifTrue: "properties" + [(self properties analogousCodeTo: aMethod properties) + ifFalse: [^false]] + ifFalse: "last literal (methodClassAssociation) of class-side methods is not unique" + "last literal of CompiledBlock is outerMethod and may not be unique." + [(self isCompiledBlock + and: [lit1 isCompiledCode + and: [lit2 isCompiledCode]]) ifTrue: + [^true]. + (i = numLits + and: [lit1 isVariableBinding + and: [lit2 isVariableBinding + and: [lit1 key == lit2 key + and: [lit1 value == lit2 value]]]]) ifFalse: + [^false]]]]]. + ^true!

1 0

Re: [squeak-dev] [Doodle] OpenSmalltalk VM Meeting
by Fabio Niephaus 13 Jan '18

13 Jan '18

Hi all, This is a friendly reminder that you can still sign up for the below until tomorrow evening. Best, Fabio -- On Mon, Jan 8, 2018 at 8:46 PM Fabio Niephaus <lists(a)fniephaus.com> wrote: > Hi all, > > When Clément and I recently talked about the next VM release, we thought > it might be good to organize a meeting and invite everyone who would be > interested. The agenda is yet to be finalized, but I think it would be > great if Clément and/or Eliot could give an update on their work on Sista. > And I could give an overview of what still needs to be done for the release > or how we plan to sign and update the release bundles. I'm sure there is a > lot more we can talk about. > > If you would like to attend, please indicate your availability using this > Doodle link by Sunday, 14th January: > https://doodle.com/poll/cyei4ax4sd43m522. > > Looking forward to seeing you all soon. > > Best, > Fabio >

3 2

The Trunk: Compiler-eem.373.mcz
by commits＠source.squeak.org 13 Jan '18

13 Jan '18

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.373.mcz ==================== Summary ==================== Name: Compiler-eem.373 Author: eem Time: 12 January 2018, 3:37:48.690536 pm UUID: 47f067a5-1d56-4b81-824c-e48560584230 Ancestors: Compiler-eem.372 Decompiler support for full blocks. Also fix bug in doClosureCopy:copiedValues: so as to create a block node with the expected pc association. =============== Diff against Compiler-eem.372 =============== Item was changed: ----- Method: BytecodeEncoder>>pc (in category 'accessing') ----- pc "Answer the pc to store in a node for source range identification." ^blockMethod ifNil: [stream position] + ifNotNil: [:aCompiledBlock| aCompiledBlock -> stream position]! - ifNotNil: [:proxy| proxy -> (stream position)]! Item was changed: ----- Method: Decompiler>>decompileBlock: (in category 'public access') ----- decompileBlock: aBlock "Decompile aBlock, returning the result as a BlockNode. Show temp names from source if available." "Decompiler new decompileBlock: [3 + 4]" + aBlock method decompileWithTemps + ifNil: [^nil] + ifNotNil: + [:methodNode| + methodNode nodesDo: + (aBlock isFullBlock + ifTrue: [[:node| (node pc isVariableBinding and: [node pc key = aBlock method]) ifTrue: [^node]]] + ifFalse: [[:node| node pc = aBlock startpc ifTrue: [^node]]])]. + ^self error: 'cannot find block node matching aBlock'! - | startpc end homeClass blockNode methodNode home | - (home := aBlock home) ifNil: [^nil]. - (homeClass := home methodClass) == #unknown ifTrue: [^nil]. - method := aBlock method. - aBlock isClosure ifTrue: - [(methodNode := method decompileWithTemps) - ifNil: [^nil] - ifNotNil: [methodNode nodesDo: [:node| node pc = aBlock startpc ifTrue: [^node]]]. - ^self error: 'cannot find block node matching aBlock']. - constructor := self constructorForMethod: aBlock method. - - self withTempNames: method methodNode tempNames. - - self initSymbols: homeClass. - startpc := aBlock startpc. - end := aBlock endPC. - stack := OrderedCollection new: method frameSize. - lastJumpIfPcStack := OrderedCollection new. - caseExits := OrderedCollection new. - statements := OrderedCollection new: 20. - super method: method pc: startpc - 5. - blockNode := self blockTo: end. - stack isEmpty ifFalse: [self error: 'stack not empty']. - ^blockNode statements first! Item was changed: ----- Method: Decompiler>>doClosureCopy:copiedValues: (in category 'control') ----- doClosureCopy: aCompiledBlock copiedValues: blockCopiedValues | savedTemps savedTempVarCount savedNumLocalTemps savedMethod savedPC blockArgs blockTemps blockTempsOffset block | savedTemps := tempVars. savedTempVarCount := tempVarCount. savedNumLocalTemps := numLocalTemps. numLocalTemps := aCompiledBlock numTemps - aCompiledBlock numArgs - blockCopiedValues size. blockTempsOffset := aCompiledBlock numArgs + blockCopiedValues size. (blockStartsToTempVars notNil "implies we were intialized with temp names." + and: [blockStartsToTempVars includesKey: aCompiledBlock]) - and: [blockStartsToTempVars includesKey: pc]) ifTrue: + [tempVars := blockStartsToTempVars at: aCompiledBlock] - [tempVars := blockStartsToTempVars at: pc] ifFalse: [blockArgs := (1 to: aCompiledBlock numArgs) collect: [:i| (constructor codeTemp: i - 1 named: 't', (tempVarCount + i) printString) beBlockArg]. blockTemps := (1 to: numLocalTemps) collect: [:i| constructor codeTemp: i + blockTempsOffset - 1 named: 't', (tempVarCount + i + aCompiledBlock numArgs) printString]. tempVars := blockArgs, blockCopiedValues, blockTemps]. tempVarCount := tempVarCount + aCompiledBlock numArgs + numLocalTemps. savedMethod := self method. savedPC := pc. super method: aCompiledBlock pc: aCompiledBlock initialPC. block := [self blockTo: aCompiledBlock endPC] ensure: [super method: savedMethod pc: savedPC]. stack addLast: ((constructor codeArguments: (tempVars copyFrom: 1 to: aCompiledBlock numArgs) temps: (tempVars copyFrom: blockTempsOffset + 1 to: blockTempsOffset + numLocalTemps) block: block) + pc: aCompiledBlock -> pc; "c.f. BytecodeEncoder>>pc" - pc: pc; yourself). tempVars := savedTemps. tempVarCount := savedTempVarCount. numLocalTemps := savedNumLocalTemps! Item was changed: ----- Method: Decompiler>>mapFromBlockKeysIn:toTempVarsFrom:constructor: (in category 'initialize-release') ----- mapFromBlockKeysIn: aMethod toTempVarsFrom: schematicTempNamesString constructor: aDecompilerConstructor + | startMap tempMap | + startMap := aMethod startKeysToBlockExtents. + tempMap := aMethod + mapFromBlockKeys: (startMap keys asArray sort: [:a :b| (startMap at: a) first <= (startMap at: b) first]) + toSchematicTemps: schematicTempNamesString. + tempMap keysAndValuesDo: - | map | - map := aMethod - mapFromBlockKeys: aMethod startKeysToBlockExtents keys asArray sort - toSchematicTemps: schematicTempNamesString. - map keysAndValuesDo: [:startKey :tempNameTupleVector| tempNameTupleVector isEmpty ifFalse: [| subMap numTemps tempVector | subMap := Dictionary new. "Find how many temp slots there are (direct & indirect temp vectors) and for each indirect temp vector find how big it is." tempNameTupleVector do: [:tuple| tuple last isArray ifTrue: [subMap at: tuple last first put: tuple last last. numTemps := tuple last first] ifFalse: [numTemps := tuple last]]. "create the temp vector for this scope level." tempVector := Array new: numTemps. "fill it in with any indirect temp vectors" subMap keysAndValuesDo: [:index :size| tempVector at: index put: (Array new: size)]. "fill it in with temp nodes." tempNameTupleVector do: [:tuple| | itv | tuple last isArray ifTrue: [itv := tempVector at: tuple last first. itv at: tuple last last put: (aDecompilerConstructor codeTemp: tuple last last - 1 named: tuple first)] ifFalse: [tempVector at: tuple last put: (aDecompilerConstructor codeTemp: tuple last - 1 named: tuple first)]]. "replace any indirect temp vectors with proper RemoteTempVectorNodes" subMap keysAndValuesDo: [:index :size| tempVector at: index put: (aDecompilerConstructor codeRemoteTemp: index remoteTemps: (tempVector at: index))]. "and update the entry in the map" + tempMap at: startKey put: tempVector]]. + ^tempMap! - map at: startKey put: tempVector]]. - ^map! Item was changed: ----- Method: Decompiler>>popIntoTemporaryVariable: (in category 'instruction decoding') ----- popIntoTemporaryVariable: offset | maybeTVTag tempVector start | maybeTVTag := stack last. ((maybeTVTag isMemberOf: Association) and: [maybeTVTag key == #pushNewArray]) ifTrue: + [blockStartsToTempVars "implies we were intialized with temp names." + ifNotNil: "Use the provided temps" - [blockStartsToTempVars notNil "implies we were intialized with temp names." - ifTrue: "Use the provided temps" [self assert: ((tempVector := tempVars at: offset + 1 ifAbsent: [ParseNode basicNew]) isTemp and: [tempVector isIndirectTempVector and: [tempVector remoteTemps size = maybeTVTag value size]])] + ifNil: "Synthesize some remote temps" - ifFalse: "Synthesize some remote temps" [tempVector := maybeTVTag value. offset + 1 <= tempVars size ifTrue: [start := 2. tempVector at: 1 put: (tempVars at: offset + 1)] ifFalse: [tempVars := (Array new: offset + 1) replaceFrom: 1 to: tempVars size with: tempVars. start := 1]. start to: tempVector size do: [:i| tempVector at: i put: (constructor codeTemp: numLocalTemps + offset + i - 1 named: 't', (tempVarCount + i) printString)]. tempVars at: offset + 1 put: (constructor codeRemoteTemp: offset + 1 remoteTemps: tempVector)]. tempVarCount := tempVarCount + maybeTVTag value size. stack removeLast. ^self]. stack addLast: (offset >= tempVars size ifTrue: "Handle the case of chained LiteralVariableBinding assigments" [stack at: (offset + 1 - tempVars size)] ifFalse: "A regular argument or temporary" [tempVars at: offset + 1]). self doStore: statements!

1 0

The Trunk: Kernel-eem.1145.mcz
by commits＠source.squeak.org 13 Jan '18

13 Jan '18

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1145.mcz ==================== Summary ==================== Name: Kernel-eem.1145 Author: eem Time: 12 January 2018, 3:33:18.61074 pm UUID: f591fb75-2cc4-41e4-8d9e-f9f72219c0a6 Ancestors: Kernel-eem.1144 Full blokc support for decompileWithTemps =============== Diff against Kernel-eem.1144 =============== Item was added: + ----- Method: BlockClosure>>homeMethod (in category 'accessing') ----- + homeMethod + ^outerContext method! Item was changed: ----- Method: CompiledCode>>decompileWithTemps (in category 'decompiling') ----- decompileWithTemps "Answer the decompiled parse tree that represents self, but with the temp names obtained either by compiling the source code, or directly if the method has temps in its trailer." + ^self homeMethod decompileWithTemps! - ^self method decompileWithTemps! Item was changed: ----- Method: CompiledMethod>>decompileWithTemps (in category 'decompiling') ----- decompileWithTemps "Return the decompiled parse tree that represents self, but with the temp names obtained either by compiling the sourcecode, or directly if the method has temps in its trailer." | class selector tempNames source | class := self methodClass ifNil: [Object]. selector := self selector ifNil: [self defaultSelector]. self holdsTempNames ifTrue: [tempNames := self tempNamesString] ifFalse: + [| compiler | + "No source file or no source (e.g. doits) and no temp names - ["No source file or no source (e.g. doits) and no temp names -- decompile without temp names " ((self fileIndex > 0 and: [(SourceFiles at: self fileIndex) isNil]) or: [(source := self getSourceFromFile) isNil]) ifTrue: [^self decompile]. + compiler := class newCompiler. + compiler parser encoderClass: self encoderClass. + tempNames := (compiler + parse: source asString + in: class + notifying: nil) + generate: CompiledMethodTrailer empty; + schematicTempNamesString]. - tempNames := (class newCompiler - parse: source asString - in: class - notifying: nil) - generate: CompiledMethodTrailer empty; - schematicTempNamesString]. ^(self decompilerClass new withTempNames: tempNames) decompile: selector in: class method: self methodForDecompile! Item was added: + ----- Method: FullBlockClosure>>homeMethod (in category 'accessing') ----- + homeMethod + ^self compiledBlock homeMethod!

1 0

The Trunk: Kernel-eem.1144.mcz
by commits＠source.squeak.org 12 Jan '18

12 Jan '18

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1144.mcz ==================== Summary ==================== Name: Kernel-eem.1144 Author: eem Time: 12 January 2018, 11:39:55.477887 am UUID: df2a5bb9-ac57-44c9-8d5c-d50a8ead225a Ancestors: Kernel-eem.1143 Have the InstructionPrinter be honest about printing the pushLiteralVariable: bytecode. It's too confusing otherwise. =============== Diff against Kernel-eem.1143 =============== Item was changed: ----- Method: InstructionPrinter>>pushLiteralVariable: (in category 'instruction decoding') ----- pushLiteralVariable: anAssociation + "Print the Push Value Of anAssociation On Top Of Stack bytecode." - "Print the Push Contents Of anAssociation On Top Of Stack bytecode." + self print: 'pushLitVar: ' , (anAssociation printStringLimitedTo: 64)! - self print: 'pushLit: ' , anAssociation key!

1 0

Obsolete classes in the preferences registry
by Eliot Miranda 12 Jan '18

12 Jan '18

Hi All, in a work image I found that the following classes are obsolete: self systemNavigation obsoleteClasses {AnObsoleteHaloThemePreferenceView . AnObsoleteBooleanPreferenceView} Inspecting and chasing pointers the references to both are through PreferenceRegistryView's registries. This is probably due to Monticello being unable to express class renames. In any case the registry should be repopulated with non-obsolete classes, perhaps through a suitable Monticello package postscript. _,,,^..^,,,_ best, Eliot

1 0

The Trunk: System-eem.995.mcz
by commits＠source.squeak.org 12 Jan '18

12 Jan '18

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.995.mcz ==================== Summary ==================== Name: System-eem.995 Author: eem Time: 12 January 2018, 9:15:45.697786 am UUID: cef00121-56e2-4aed-91bc-ac09f60f8e95 Ancestors: System-akg.994 Revise the postscript so that the new PrimitiveError instance replaces the obsolete PrimitiveOSError instance. =============== Diff against System-akg.994 =============== Item was changed: (PackageInfo named: 'System') postscript: '(Smalltalk specialSelectorNames includes: #~~) ifFalse: ["Re-create the specialObjectsArray to let the jit optimize #~~. Also add the new primitive error codes if they are not there yet." | senders | senders := #(#~~ #blockCopy:) gather: [ :selector | "Recompile senders blockCopy: too, just in case." SystemNavigation default allCallsOn: selector ]. Smalltalk recreateSpecialObjectsArray. VariableNode initialize. Decompiler initialize. senders do: [ :methodReference | | class | class := methodReference actualClass. class recompile: methodReference selector from: class ] displayingProgress: ''Recompiling...'']. + "If PrimitiveError is not in the primitiveErrorTable, or if an instance + of a different class is there, then add it." + (Smalltalk primitiveErrorTable size < 21 + or: [(Smalltalk primitiveErrorTable at: 21) class ~~ PrimitiveError]) ifTrue: - "If PrimitiveOSError is not in the primitiveErrorTable, add it." - Smalltalk primitiveErrorTable size < 21 ifTrue: [Smalltalk recreateSpecialObjectsArray]'!

1 0

The Trunk: System-akg.994.mcz
by commits＠source.squeak.org 12 Jan '18

12 Jan '18

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-akg.994.mcz ==================== Summary ==================== Name: System-akg.994 Author: akg Time: 8 January 2018, 3:24:14.764929 pm UUID: ff5974b8-48a2-4d89-92af-a4fc36269edf Ancestors: System-tpr.993 - Rename PrimitiveOSError class to PrimitiveError - Rename #isPrimitiveOSError to #isPrimitiveError PrimitiveError holds an errorName that indicates what type of error it is, e.g. an OS error, thus the class doesn't need the "OS" in the name. =============== Diff against System-tpr.993 =============== Item was added: + ----- Method: Object>>isPrimitiveError (in category '*system-support') ----- + isPrimitiveError + "Answer a boolean indicating if the receiver is an error object returned by a primitive" + ^false! Item was removed: - ----- Method: Object>>isPrimitiveOSError (in category '*System-Support-error handling') ----- - isPrimitiveOSError - ^false! Item was added: + Object subclass: #PrimitiveError + instanceVariableNames: 'errorName errorCode' + classVariableNames: '' + poolDictionaries: '' + category: 'System-Support'! + + !PrimitiveError commentStamp: 'akg 1/8/2018 15:09' prior: 0! + A PrimitiveError is used to answer a primitive failure code that has an associated operating system/library error. + + Instance Variables + errorName: <Symbol> + errorCode: <Integer> + + errorName + - typically #'operating system error' + + errorCode + - the value of the error, a signed 64-bit value, a representation imposed by the VM; specific clients must map this error value into an unsigned value as appropriate if required + + Typical usage is shown in the ficticious method below: + + primitiveOperation + <primitive: 'primitiveOperation' module: 'APlugin' error: error> + ^(error isPrimitiveError) + ifTrue: [ self processErrorCode: error errorCode ] + ifFalse: [ self primitiveFailed ].! Item was added: + ----- Method: PrimitiveError>>errorCode (in category 'accessing') ----- + errorCode + + ^errorCode! Item was added: + ----- Method: PrimitiveError>>errorCode: (in category 'accessing') ----- + errorCode: anInteger + + errorCode := anInteger! Item was added: + ----- Method: PrimitiveError>>errorName (in category 'accessing') ----- + errorName + + ^errorName! Item was added: + ----- Method: PrimitiveError>>errorName: (in category 'accessing') ----- + errorName: aSymbol + + errorName := aSymbol! Item was added: + ----- Method: PrimitiveError>>isPrimitiveError (in category 'testing') ----- + isPrimitiveError + "Answer a boolean indicating if the receiver is an error object returned by a primitive" + ^true! Item was removed: - Object subclass: #PrimitiveOSError - instanceVariableNames: 'errorName errorCode' - classVariableNames: '' - poolDictionaries: '' - category: 'System-Support'! - - !PrimitiveOSError commentStamp: 'eem 12/7/2017 19:31' prior: 0! - A PrimitiveOSError is used to answer a primitive failure code that has an associated operating system/library error. - - Instance Variables - errorName: <Symbol> - errorValue: <Integer> - - errorName - - typically #'operating system error' - - errorValue - - the value of the error, a signed 64-bit value, a representation imposed by the VM; specific clients must map this error value into an unsigned value as appropriate if required! Item was removed: - ----- Method: PrimitiveOSError>>errorCode (in category 'accessing') ----- - errorCode - - ^errorCode! Item was removed: - ----- Method: PrimitiveOSError>>errorCode: (in category 'accessing') ----- - errorCode: anObject - - errorCode := anObject! Item was removed: - ----- Method: PrimitiveOSError>>errorName (in category 'accessing') ----- - errorName - - ^errorName! Item was removed: - ----- Method: PrimitiveOSError>>errorName: (in category 'accessing') ----- - errorName: anObject - - errorName := anObject! Item was removed: - ----- Method: PrimitiveOSError>>isPrimitiveOSError (in category 'testing') ----- - isPrimitiveOSError - ^true! Item was changed: ----- Method: SmalltalkImage>>recreateSpecialObjectsArray (in category 'special objects') ----- recreateSpecialObjectsArray "Smalltalk recreateSpecialObjectsArray" "To external package developers: **** DO NOT OVERRIDE THIS METHOD. ***** If you are writing a plugin and need additional special object(s) for your own use, use addGCRoot() function and use own, separate special objects registry " "The Special Objects Array is an array of objects used by the Squeak virtual machine. Its contents are critical and accesses to it by the VM are unchecked, so don't even think of playing here unless you know what you are doing." | newArray | newArray := Array new: 60. "Nil false and true get used throughout the VM" newArray at: 1 put: nil. newArray at: 2 put: false. newArray at: 3 put: true. "This association holds the active process (a ProcessScheduler)" newArray at: 4 put: (self specialObjectsArray at: 4) "(self bindingOf: #Processor) but it answers an Alias". "Numerous classes below used for type checking and instantiation" newArray at: 5 put: Bitmap. newArray at: 6 put: SmallInteger. newArray at: 7 put: ByteString. newArray at: 8 put: Array. newArray at: 9 put: Smalltalk. newArray at: 10 put: BoxedFloat64. newArray at: 11 put: (self globals at: #Context). newArray at: 12 put: nil. "was BlockContext." newArray at: 13 put: Point. newArray at: 14 put: LargePositiveInteger. newArray at: 15 put: Display. newArray at: 16 put: Message. newArray at: 17 put: CompiledMethod. newArray at: 18 put: ((self specialObjectsArray at: 18) ifNil: [Semaphore new]). "low space Semaphore" newArray at: 19 put: Semaphore. newArray at: 20 put: Character. newArray at: 21 put: #doesNotUnderstand:. newArray at: 22 put: #cannotReturn:. newArray at: 23 put: nil. "This is the process signalling low space." "An array of the 32 selectors that are compiled as special bytecodes, paired alternately with the number of arguments each takes." newArray at: 24 put: #( #+ 1 #- 1 #< 1 #> 1 #<= 1 #>= 1 #= 1 #~= 1 #* 1 #/ 1 #\\ 1 #@ 1 #bitShift: 1 #// 1 #bitAnd: 1 #bitOr: 1 #at: 1 #at:put: 2 #size 0 #next 0 #nextPut: 1 #atEnd 0 #== 1 #class 0 #~~ 1 #value 0 #value: 1 #do: 1 #new 0 #new: 1 #x 0 #y 0 ). "An array of the 255 Characters in ascii order. Cog inlines table into machine code at: prim so do not regenerate it. This is nil in Spur, which has immediate Characters." newArray at: 25 put: (self specialObjectsArray at: 25). newArray at: 26 put: #mustBeBoolean. newArray at: 27 put: ByteArray. newArray at: 28 put: Process. "An array of up to 31 classes whose instances will have compact headers; an empty array in Spur" newArray at: 29 put: self compactClassesArray. newArray at: 30 put: ((self specialObjectsArray at: 30) ifNil: [Semaphore new]). "delay Semaphore" newArray at: 31 put: ((self specialObjectsArray at: 31) ifNil: [Semaphore new]). "user interrupt Semaphore" "Entries 32 - 34 unreferenced. Previously these contained prototype instances to be copied for fast initialization" newArray at: 32 put: nil. "was the prototype Float" newArray at: 33 put: nil. "was the prototype 4-byte LargePositiveInteger" newArray at: 34 put: nil. "was the prototype Point" newArray at: 35 put: #cannotInterpret:. newArray at: 36 put: nil. "was the prototype MethodContext" newArray at: 37 put: BlockClosure. newArray at: 38 put: nil. "was the prototype BlockContext" "array of objects referred to by external code" newArray at: 39 put: (self specialObjectsArray at: 39). "external semaphores" newArray at: 40 put: nil. "Reserved for Mutex in Cog VMs" newArray at: 41 put: ((self specialObjectsArray at: 41) ifNil: [LinkedList new]). "Reserved for a LinkedList instance for overlapped calls in CogMT" newArray at: 42 put: ((self specialObjectsArray at: 42) ifNil: [Semaphore new]). "finalization Semaphore" newArray at: 43 put: LargeNegativeInteger. "External objects for callout. Note: Written so that one can actually completely remove the FFI." newArray at: 44 put: (self at: #ExternalAddress ifAbsent: []). newArray at: 45 put: (self at: #ExternalStructure ifAbsent: []). newArray at: 46 put: (self at: #ExternalData ifAbsent: []). newArray at: 47 put: (self at: #ExternalFunction ifAbsent: []). newArray at: 48 put: (self at: #ExternalLibrary ifAbsent: []). newArray at: 49 put: #aboutToReturn:through:. newArray at: 50 put: #run:with:in:. "51 reserved for immutability message" newArray at: 51 put: #attemptToAssign:withIndex:. newArray at: 52 put: #(nil "nil => generic error" #'bad receiver' #'bad argument' #'bad index' #'bad number of arguments' #'inappropriate operation' #'unsupported operation' #'no modification' #'insufficient object memory' #'insufficient C memory' #'not found' #'bad method' #'internal error in named primitive machinery' #'object may move' #'resource limit exceeded' #'object is pinned' #'primitive write beyond end of object' #'object moved' #'object not pinned' #'callback error'), + {PrimitiveError new errorName: #'operating system error'; yourself}. - {PrimitiveOSError new errorName: #'operating system error'; yourself}. "53 to 55 are for Alien" newArray at: 53 put: (self at: #Alien ifAbsent: []). newArray at: 54 put: #invokeCallbackContext:. "use invokeCallback:stack:registers:jmpbuf: for old Alien callbacks." newArray at: 55 put: (self at: #UnsafeAlien ifAbsent: []). "Used to be WeakFinalizationList for WeakFinalizationList hasNewFinalization, obsoleted by ephemeron support." newArray at: 56 put: nil. "reserved for foreign callback process" newArray at: 57 put: (self specialObjectsArray at: 57 ifAbsent: []). newArray at: 58 put: #unusedBytecode. "59 reserved for Sista counter tripped message" newArray at: 59 put: #conditionalBranchCounterTrippedOn:. "60 reserved for Sista class trap message" newArray at: 60 put: #classTrapFor:. "Now replace the virtual machine's reference in one atomic operation" self specialObjectsArray becomeForward: newArray!

1 0

Animation
by Hilaire 12 Jan '18

12 Jan '18

Hi, I have been trying the Animation package[1] wtih Squeak5.1. I can't get the animation to work, it immediately terminate: || myMorph | myMorph := Morph new topLeft: 100@100; extent: 400@400; openInWorld. myMorph fadeOut.| Looks like the animation registry does not exist: |register|||| AnimAnimationRegistry value|||| ifNil: [self finish]|||| ifNotNil: [:registry | registry register: self].| |AnimAnimationRegistry value| always returns nil. Did not see code to instantiate a singleton one. Code was load through local filetree repo. Can't get the Metacello preview get installed when following instructions[2]. But it is another problem. Thanks Hilaire [1] https://github.com/hpi-swa/animations [2] https://github.com/dalehenrich/metacello-work -- Dr. Geo http://drgeo.eu

2 2

← Newer
1
...
9
10
11
12
13
14
15
...
18
Older →

Jump to page: