Vm-dev November 2011

vm-dev@lists.squeakfoundation.org

20 participants
52 discussions

SystemTracing: SystemTracing-dtl.22.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 27 Nov '11

27 Nov '11

Dave Lewis uploaded a new version of SystemTracing to project SystemTracing: http://www.squeaksource.com/SystemTracing/SystemTracing-dtl.22.mcz ==================== Summary ==================== Name: SystemTracing-dtl.22 Author: dtl Time: 26 November 2011, 10:34:18 am UUID: d5091da9-4f86-4da8-bffe-ca0f1546fb52 Ancestors: SystemTracing-dtl.21 Remove PositionableStream class>>initialize which initialized class variable IntBuffer that does not exist in current images

1 0

What is the process for contributing with the vm?
by Guillermo Polito 26 Nov '11

26 Nov '11

Just wondering :). Thanks, Guille

2 1

VM Maker: VMMaker-dtl.260.mcz
by commits＠source.squeak.org 25 Nov '11

25 Nov '11

David T. Lewis uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker-dtl.260.mcz ==================== Summary ==================== Name: VMMaker-dtl.260 Author: dtl Time: 25 November 2011, 12:41:48.265 pm UUID: 623da38f-a559-4506-af10-c30c6293d9a3 Ancestors: VMMaker-dtl.259 VMMaker 4.7.17 Add InterpreterPrimitives>>primitiveIdentical from oscog. Remove Interpreter>>primitiveEquivalent and replace it with InterpreterPrimitives>>primitiveIdentical in Interpreter class>>initializePrimitiveTable. Update various primitives in InterpreterPrimitives to match oscog. Add primitiveIdentityHash from oscog. Added, Modified, Deleted vs. VMMaker-dtl.259: M Interpreter class>>initializePrimitiveTable D Interpreter>>primitiveEquivalent M InterpreterPrimitives>>primitiveArctan M InterpreterPrimitives>>primitiveEqualLargeIntegers M InterpreterPrimitives>>primitiveExp M InterpreterPrimitives>>primitiveExponent M InterpreterPrimitives>>primitiveFloatDivide M InterpreterPrimitives>>primitiveFloatEqual M InterpreterPrimitives>>primitiveFloatGreaterOrEqual M InterpreterPrimitives>>primitiveFloatGreaterThan M InterpreterPrimitives>>primitiveFloatLessOrEqual M InterpreterPrimitives>>primitiveFloatLessThan M InterpreterPrimitives>>primitiveFloatMultiply M InterpreterPrimitives>>primitiveFloatNotEqual M InterpreterPrimitives>>primitiveFlushExternalPrimitives M InterpreterPrimitives>>primitiveFractionalPart M InterpreterPrimitives>>primitiveGreaterOrEqualLargeIntegers M InterpreterPrimitives>>primitiveGreaterThanLargeIntegers A InterpreterPrimitives>>primitiveIdentical A InterpreterPrimitives>>primitiveIdentityHash M InterpreterPrimitives>>primitiveLessOrEqualLargeIntegers M InterpreterPrimitives>>primitiveLessThanLargeIntegers M InterpreterPrimitives>>primitiveLogN M InterpreterPrimitives>>primitiveMarkHandlerMethod M InterpreterPrimitives>>primitiveMarkUnwindMethod M InterpreterPrimitives>>primitiveMultiplyLargeIntegers M InterpreterPrimitives>>primitiveNotEqualLargeIntegers M InterpreterPrimitives>>primitiveSetDisplayMode M InterpreterPrimitives>>primitiveSine M InterpreterPrimitives>>primitiveSnapshot M InterpreterPrimitives>>primitiveSnapshotEmbedded M InterpreterPrimitives>>primitiveSquareRoot M InterpreterPrimitives>>primitiveTestDisplayDepth M InterpreterPrimitives>>primitiveTimesTwoPower M InterpreterPrimitives>>primitiveTruncated M VMMaker class>>versionString =============== Diff against VMMaker-dtl.259 =============== Item was changed: ----- Method: Interpreter class>>initializePrimitiveTable (in category 'initialization') ----- initializePrimitiveTable "This table generates a C function address table use in primitiveResponse along with dispatchFunctionPointerOn:in:" "NOTE: The real limit here is 2047 because of the method header layout but there is no point in going over the needed size" MaxPrimitiveIndex := 575. PrimitiveTable := Array new: MaxPrimitiveIndex + 1. self table: PrimitiveTable from: #( "Integer Primitives (0-19)" (0 primitiveFail) (1 primitiveAdd) (2 primitiveSubtract) (3 primitiveLessThan) (4 primitiveGreaterThan) (5 primitiveLessOrEqual) (6 primitiveGreaterOrEqual) (7 primitiveEqual) (8 primitiveNotEqual) (9 primitiveMultiply) (10 primitiveDivide) (11 primitiveMod) (12 primitiveDiv) (13 primitiveQuo) (14 primitiveBitAnd) (15 primitiveBitOr) (16 primitiveBitXor) (17 primitiveBitShift) (18 primitiveMakePoint) (19 primitiveFail) "Guard primitive for simulation -- *must* fail" "LargeInteger Primitives (20-39)" (20 primitiveFail) (21 primitiveAddLargeIntegers) (22 primitiveSubtractLargeIntegers) (23 primitiveLessThanLargeIntegers) (24 primitiveGreaterThanLargeIntegers) (25 primitiveLessOrEqualLargeIntegers) (26 primitiveGreaterOrEqualLargeIntegers) (27 primitiveEqualLargeIntegers) (28 primitiveNotEqualLargeIntegers) (29 primitiveMultiplyLargeIntegers) (30 primitiveDivideLargeIntegers) (31 primitiveModLargeIntegers) (32 primitiveDivLargeIntegers) (33 primitiveQuoLargeIntegers) (34 primitiveBitAndLargeIntegers) (35 primitiveBitOrLargeIntegers) (36 primitiveBitXorLargeIntegers) (37 primitiveBitShiftLargeIntegers) (38 primitiveFail) (39 primitiveFail) "Float Primitives (40-59)" (40 primitiveAsFloat) (41 primitiveFloatAdd) (42 primitiveFloatSubtract) (43 primitiveFloatLessThan) (44 primitiveFloatGreaterThan) (45 primitiveFloatLessOrEqual) (46 primitiveFloatGreaterOrEqual) (47 primitiveFloatEqual) (48 primitiveFloatNotEqual) (49 primitiveFloatMultiply) (50 primitiveFloatDivide) (51 primitiveTruncated) (52 primitiveFractionalPart) (53 primitiveExponent) (54 primitiveTimesTwoPower) (55 primitiveSquareRoot) (56 primitiveSine) (57 primitiveArctan) (58 primitiveLogN) (59 primitiveExp) "Subscript and Stream Primitives (60-67)" (60 primitiveAt) (61 primitiveAtPut) (62 primitiveSize) (63 primitiveStringAt) (64 primitiveStringAtPut) (65 primitiveFail) "was primitiveNext which no longer pays its way (normal Smalltalk code is faster)" (66 primitiveFail) "was primitiveNextPut which no longer pays its way (normal Smalltalk code is faster)" (67 primitiveFail) "was primitiveAtEnd which no longer pays its way (normal Smalltalk code is faster)" "StorageManagement Primitives (68-79)" (68 primitiveObjectAt) (69 primitiveObjectAtPut) (70 primitiveNew) (71 primitiveNewWithArg) (72 primitiveArrayBecomeOneWay) "Blue Book: primitiveBecome" (73 primitiveInstVarAt) (74 primitiveInstVarAtPut) (75 primitiveAsOop) (76 primitiveStoreStackp) "Blue Book: primitiveAsObject" (77 primitiveSomeInstance) (78 primitiveNextInstance) (79 primitiveNewMethod) "Control Primitives (80-89)" (80 primitiveBlockCopy) (81 primitiveValue) (82 primitiveValueWithArgs) (83 primitivePerform) (84 primitivePerformWithArgs) (85 primitiveSignal) (86 primitiveWait) (87 primitiveResume) (88 primitiveSuspend) (89 primitiveFlushCache) "Input/Output Primitives (90-109)" (90 primitiveMousePoint) (91 primitiveTestDisplayDepth) "Blue Book: primitiveCursorLocPut" (92 primitiveSetDisplayMode) "Blue Book: primitiveCursorLink" (93 primitiveInputSemaphore) (94 primitiveGetNextEvent) "Blue Book: primitiveSampleInterval" (95 primitiveInputWord) (96 primitiveFail) "primitiveCopyBits" (97 primitiveSnapshot) (98 primitiveStoreImageSegment) (99 primitiveLoadImageSegment) (100 primitivePerformInSuperclass) "Blue Book: primitiveSignalAtTick" (101 primitiveBeCursor) (102 primitiveBeDisplay) (103 primitiveScanCharacters) (104 primitiveFail) "primitiveDrawLoop" (105 primitiveStringReplace) (106 primitiveScreenSize) (107 primitiveMouseButtons) (108 primitiveKbdNext) (109 primitiveKbdPeek) "System Primitives (110-119)" + (110 primitiveIdentical) - (110 primitiveEquivalent) (111 primitiveClass) (112 primitiveBytesLeft) (113 primitiveQuit) (114 primitiveExitToDebugger) (115 primitiveChangeClass) "Blue Book: primitiveOopsLeft" (116 primitiveFlushCacheByMethod) (117 primitiveExternalCall) (118 primitiveDoPrimitiveWithArgs) (119 primitiveFlushCacheSelective) "Squeak 2.2 and earlier use 119. Squeak 2.3 and later use 116. Both are supported for backward compatibility." "Miscellaneous Primitives (120-127)" (120 primitiveCalloutToFFI) (121 primitiveImageName) (122 primitiveNoop) "Blue Book: primitiveImageVolume" (123 primitiveValueUninterruptably) "@@@: Remove this when all VMs have support" (124 primitiveLowSpaceSemaphore) (125 primitiveSignalAtBytesLeft) "Squeak Primitives Start Here" "Squeak Miscellaneous Primitives (128-149)" (126 primitiveDeferDisplayUpdates) (127 primitiveShowDisplayRect) (128 primitiveArrayBecome) (129 primitiveSpecialObjectsOop) (130 primitiveFullGC) (131 primitiveIncrementalGC) (132 primitiveObjectPointsTo) (133 primitiveSetInterruptKey) (134 primitiveInterruptSemaphore) (135 primitiveMillisecondClock) (136 primitiveSignalAtMilliseconds) (137 primitiveSecondsClock) (138 primitiveSomeObject) (139 primitiveNextObject) (140 primitiveBeep) (141 primitiveClipboardText) (142 primitiveVMPath) (143 primitiveShortAt) (144 primitiveShortAtPut) (145 primitiveConstantFill) "NOTE: When removing the obsolete indexed primitives, the following two should go become #primitiveIntegerAt / atPut" (146 primitiveFail) "primitiveReadJoystick" (147 primitiveFail) "primitiveWarpBits" (148 primitiveClone) (149 primitiveGetAttribute) "File Primitives (150-169) - NO LONGER INDEXED" (150 159 primitiveFail) (160 primitiveAdoptInstance) (161 164 primitiveFail) (165 primitiveIntegerAt) "hacked in here for now" (166 primitiveIntegerAtPut) (167 primitiveYield) (168 primitiveCopyObject) (169 primitiveNotIdentical) "Sound Primitives (170-199) - NO LONGER INDEXED" (170 185 primitiveFail) "Old closure primitives" (186 primitiveFail) "was primitiveClosureValue" (187 primitiveFail) "was primitiveClosureValueWithArgs" "Perform method directly" (188 primitiveExecuteMethodArgsArray) (189 primitiveExecuteMethod) "Sound Primitives (continued) - NO LONGER INDEXED" (190 194 primitiveFail) "Unwind primitives" (195 primitiveFindNextUnwindContext) (196 primitiveTerminateTo) (197 primitiveFindHandlerContext) (198 primitiveMarkUnwindMethod) (199 primitiveMarkHandlerMethod) "new closure primitives (were Networking primitives)" (200 primitiveClosureCopyWithCopiedValues) (201 primitiveClosureValue) "value" (202 primitiveClosureValue) "value:" (203 primitiveClosureValue) "value:value:" (204 primitiveClosureValue) "value:value:value:" (205 primitiveClosureValue) "value:value:value:value:" (206 primitiveClosureValueWithArgs) "valueWithArguments:" (207 209 primitiveFail) "reserved for Cog primitives" (210 primitiveAt) "Compatibility with Cog StackInterpreter Context primitives" (211 primitiveAtPut) "Compatibility with Cog StackInterpreter Context primitives" (212 primitiveSize) "Compatibility with Cog StackInterpreter Context primitives" (213 219 primitiveFail) "reserved for Cog primitives" (220 primitiveFail) "reserved for Cog primitives" (221 primitiveClosureValueNoContextSwitch) "valueNoContextSwitch" (222 primitiveClosureValueNoContextSwitch) "valueNoContextSwitch:" (223 229 primitiveFail) "reserved for Cog primitives" (230 primitiveRelinquishProcessor) (231 primitiveForceDisplayUpdate) (232 primitiveFormPrint) (233 primitiveSetFullScreen) (234 primitiveFail) "primBitmapdecompressfromByteArrayat" (235 primitiveFail) "primStringcomparewithcollated" (236 primitiveFail) "primSampledSoundconvert8bitSignedFromto16Bit" (237 primitiveFail) "primBitmapcompresstoByteArray" (238 241 primitiveFail) "serial port primitives" (242 primitiveFail) (243 primitiveFail) "primStringtranslatefromtotable" (244 primitiveFail) "primStringfindFirstInStringinSetstartingAt" (245 primitiveFail) "primStringindexOfAsciiinStringstartingAt" (246 primitiveFail) "primStringfindSubstringinstartingAtmatchTable" (247 primitiveSnapshotEmbedded) (248 primitiveInvokeObjectAsMethod) (249 primitiveArrayBecomeOneWayCopyHash) "VM Implementor Primitives (250-255)" (250 clearProfile) (251 dumpProfile) (252 startProfiling) (253 stopProfiling) (254 primitiveVMParameter) (255 primitiveInstVarsPutFromStack) "Never used except in Disney tests. Remove after 2.3 release." "Quick Push Const Methods" (256 primitivePushSelf) (257 primitivePushTrue) (258 primitivePushFalse) (259 primitivePushNil) (260 primitivePushMinusOne) (261 primitivePushZero) (262 primitivePushOne) (263 primitivePushTwo) "Quick Push Const Methods" (264 519 primitiveLoadInstVar) "These ranges used to be used by obsiolete indexed primitives." (520 529 primitiveFail) (530 539 primitiveFail) (540 549 primitiveFail) (550 559 primitiveFail) (560 569 primitiveFail) "External primitive support primitives" (570 primitiveFlushExternalPrimitives) (571 primitiveUnloadModule) (572 primitiveListBuiltinModule) (573 primitiveListExternalModule) (574 primitiveFail) "reserved for addl. external support prims" "Unassigned Primitives" (575 primitiveFail)). ! Item was removed: - ----- Method: Interpreter>>primitiveEquivalent (in category 'object access primitives') ----- - primitiveEquivalent - "is the receiver the same object as the argument?" - | thisObject otherObject | - otherObject := self popStack. - thisObject := self popStack. - self pushBool: thisObject = otherObject! Item was changed: ----- Method: InterpreterPrimitives>>primitiveArctan (in category 'arithmetic float primitives') ----- primitiveArctan | rcvr | + <var: #rcvr type: #double> - <var: #rcvr type: 'double '> rcvr := self popFloat. self successful ifTrue: [self pushFloat: (self cCode: 'atan(rcvr)' inSmalltalk: [rcvr arcTan])] ifFalse: [self unPop: 1]! Item was changed: ----- Method: InterpreterPrimitives>>primitiveEqualLargeIntegers (in category 'arithmetic largeint primitives') ----- primitiveEqualLargeIntegers "Primitive comparison operations for large integers in 64 bit range" | integerRcvr integerArg | <export: true> <var: 'integerRcvr' type: 'sqLong'> <var: 'integerArg' type: 'sqLong'> integerArg := self signed64BitValueOf: (self stackValue: 0). integerRcvr := self signed64BitValueOf: (self stackValue: 1). + self successful ifTrue: + [self pop: 2 thenPushBool: integerRcvr = integerArg]! - self successful ifTrue:[ - self pop: 2. - self pushBool: integerRcvr = integerArg - ]. - ! Item was changed: ----- Method: InterpreterPrimitives>>primitiveExp (in category 'arithmetic float primitives') ----- primitiveExp "Computes E raised to the receiver power." | rcvr | + <var: #rcvr type: #double> - <var: #rcvr type: 'double '> rcvr := self popFloat. self successful ifTrue: [self pushFloat: (self cCode: 'exp(rcvr)' inSmalltalk: [rcvr exp])] ifFalse: [self unPop: 1]! Item was changed: ----- Method: InterpreterPrimitives>>primitiveExponent (in category 'arithmetic float primitives') ----- primitiveExponent "Exponent part of this float." | rcvr frac pwr | + <var: #rcvr type: #double> + <var: #frac type: #double> + <var: #pwr type: #int> - <var: #rcvr type: 'double '> - <var: #frac type: 'double '> - <var: #pwr type: 'int '> rcvr := self popFloat. self successful ifTrue: [ "rcvr = frac * 2^pwr, where frac is in [0.5..1.0)" self cCode: 'frac = frexp(rcvr, &pwr)' inSmalltalk: [pwr := rcvr exponent]. self pushInteger: pwr - 1] + ifFalse: [self unPop: 1]! - ifFalse: [self unPop: 1].! Item was changed: ----- Method: InterpreterPrimitives>>primitiveFloatDivide (in category 'arithmetic float primitives') ----- primitiveFloatDivide + self primitiveFloatDivide: (self stackValue: 1) byArg: self stackTop! - ^ self primitiveFloatDivide: (self stackValue: 1) byArg: self stackTop! Item was changed: ----- Method: InterpreterPrimitives>>primitiveFloatEqual (in category 'arithmetic float primitives') ----- primitiveFloatEqual | aBool | aBool := self primitiveFloatEqual: (self stackValue: 1) toArg: self stackTop. + self successful ifTrue: + [self pop: 2 thenPushBool: aBool]! - self successful ifTrue: [self pop: 2. self pushBool: aBool]. - ! Item was changed: ----- Method: InterpreterPrimitives>>primitiveFloatGreaterOrEqual (in category 'arithmetic float primitives') ----- primitiveFloatGreaterOrEqual | aBool | aBool := self primitiveFloatGreaterOrEqual: (self stackValue: 1) toArg: self stackTop. + self successful ifTrue: [self pop: 2 thenPushBool: aBool]! - self successful ifTrue: [self pop: 2. self pushBool: aBool].! Item was changed: ----- Method: InterpreterPrimitives>>primitiveFloatGreaterThan (in category 'arithmetic float primitives') ----- primitiveFloatGreaterThan | aBool | aBool := self primitiveFloatGreater: (self stackValue: 1) thanArg: self stackTop. + self successful ifTrue: + [self pop: 2 thenPushBool: aBool]! - self successful ifTrue: [self pop: 2. self pushBool: aBool]. - ! Item was changed: ----- Method: InterpreterPrimitives>>primitiveFloatLessOrEqual (in category 'arithmetic float primitives') ----- primitiveFloatLessOrEqual | aBool | aBool := self primitiveFloatLessOrEqual: (self stackValue: 1) toArg: self stackTop. + self successful ifTrue: [self pop: 2 thenPushBool: aBool]! - self successful ifTrue: [self pop: 2. self pushBool: aBool].! Item was changed: ----- Method: InterpreterPrimitives>>primitiveFloatLessThan (in category 'arithmetic float primitives') ----- primitiveFloatLessThan | aBool | aBool := self primitiveFloatLess: (self stackValue: 1) thanArg: self stackTop. + self successful ifTrue: + [self pop: 2 thenPushBool: aBool]! - self successful ifTrue: [self pop: 2. self pushBool: aBool]. - ! Item was changed: ----- Method: InterpreterPrimitives>>primitiveFloatMultiply (in category 'arithmetic float primitives') ----- primitiveFloatMultiply + self primitiveFloatMultiply: (self stackValue: 1) byArg: self stackTop! - ^ self primitiveFloatMultiply: (self stackValue: 1) byArg: self stackTop! Item was changed: ----- Method: InterpreterPrimitives>>primitiveFloatNotEqual (in category 'arithmetic float primitives') ----- primitiveFloatNotEqual | aBool | aBool := self primitiveFloatEqual: (self stackValue: 1) toArg: self stackTop. + self successful ifTrue: + [self pop: 2 thenPushBool: aBool not]! - self successful ifTrue: [self pop: 2. self pushBool: aBool not]. - ! Item was changed: ----- Method: InterpreterPrimitives>>primitiveFlushExternalPrimitives (in category 'plugin primitives') ----- primitiveFlushExternalPrimitives "Primitive. Flush all the existing external primitives in the image thus forcing a reload on next invokation." + self flushExternalPrimitives! - ^self flushExternalPrimitives! Item was changed: ----- Method: InterpreterPrimitives>>primitiveFractionalPart (in category 'arithmetic float primitives') ----- primitiveFractionalPart | rcvr frac trunc | + <var: #rcvr type: #double> + <var: #frac type: #double> + <var: #trunc type: #double> - <var: #rcvr type: 'double '> - <var: #frac type: 'double '> - <var: #trunc type: 'double '> rcvr := self popFloat. self successful ifTrue: [self cCode: 'frac = modf(rcvr, &trunc)' inSmalltalk: [frac := rcvr fractionPart]. self pushFloat: frac] ifFalse: [self unPop: 1]! Item was changed: ----- Method: InterpreterPrimitives>>primitiveGreaterOrEqualLargeIntegers (in category 'arithmetic largeint primitives') ----- primitiveGreaterOrEqualLargeIntegers "Primitive comparison operations for large integers in 64 bit range" | integerRcvr integerArg | <export: true> <var: 'integerRcvr' type: 'sqLong'> <var: 'integerArg' type: 'sqLong'> integerArg := self signed64BitValueOf: (self stackValue: 0). integerRcvr := self signed64BitValueOf: (self stackValue: 1). + self successful ifTrue: + [self pop: 2 thenPushBool: integerRcvr >= integerArg]! - self successful ifTrue:[ - self pop: 2. - self pushBool: integerRcvr >= integerArg - ]. - ! Item was changed: ----- Method: InterpreterPrimitives>>primitiveGreaterThanLargeIntegers (in category 'arithmetic largeint primitives') ----- primitiveGreaterThanLargeIntegers "Primitive comparison operations for large integers in 64 bit range" | integerRcvr integerArg | <export: true> <var: 'integerRcvr' type: 'sqLong'> <var: 'integerArg' type: 'sqLong'> integerArg := self signed64BitValueOf: (self stackValue: 0). integerRcvr := self signed64BitValueOf: (self stackValue: 1). + self successful ifTrue: + [self pop: 2 thenPushBool: integerRcvr > integerArg]! - self successful ifTrue:[ - self pop: 2. - self pushBool: integerRcvr > integerArg - ]. - ! Item was added: + ----- Method: InterpreterPrimitives>>primitiveIdentical (in category 'object access primitives') ----- + primitiveIdentical + "is the receiver/first argument the same object as the (last) argument?. + pop argumentCount because this can be used as a mirror primitive." + | thisObject otherObject | + otherObject := self stackValue: 1. + thisObject := self stackTop. + self pop: argumentCount + 1 thenPushBool: thisObject = otherObject! Item was added: + ----- Method: InterpreterPrimitives>>primitiveIdentityHash (in category 'object access primitives') ----- + primitiveIdentityHash + | thisReceiver | + thisReceiver := self stackTop. + (self isIntegerObject: thisReceiver) + ifTrue: [self primitiveFail] + ifFalse: [self pop:1 thenPushInteger: (self hashBitsOf: thisReceiver)]! Item was changed: ----- Method: InterpreterPrimitives>>primitiveLessOrEqualLargeIntegers (in category 'arithmetic largeint primitives') ----- primitiveLessOrEqualLargeIntegers "Primitive comparison operations for large integers in 64 bit range" | integerRcvr integerArg | <export: true> <var: 'integerRcvr' type: 'sqLong'> <var: 'integerArg' type: 'sqLong'> integerArg := self signed64BitValueOf: (self stackValue: 0). integerRcvr := self signed64BitValueOf: (self stackValue: 1). + self successful ifTrue: + [self pop: 2 thenPushBool: integerRcvr <= integerArg]! - self successful ifTrue:[ - self pop: 2. - self pushBool: integerRcvr <= integerArg - ]. - ! Item was changed: ----- Method: InterpreterPrimitives>>primitiveLessThanLargeIntegers (in category 'arithmetic largeint primitives') ----- primitiveLessThanLargeIntegers "Primitive comparison operations for large integers in 64 bit range" | integerRcvr integerArg | <export: true> <var: 'integerRcvr' type: 'sqLong'> <var: 'integerArg' type: 'sqLong'> integerArg := self signed64BitValueOf: (self stackValue: 0). integerRcvr := self signed64BitValueOf: (self stackValue: 1). + self successful ifTrue: + [self pop: 2 thenPushBool: integerRcvr < integerArg]! - self successful ifTrue:[ - self pop: 2. - self pushBool: integerRcvr < integerArg - ]. - ! Item was changed: ----- Method: InterpreterPrimitives>>primitiveLogN (in category 'arithmetic float primitives') ----- primitiveLogN "Natural log." | rcvr | + <var: #rcvr type: #double> - <var: #rcvr type: 'double '> rcvr := self popFloat. self successful ifTrue: [self pushFloat: (self cCode: 'log(rcvr)' inSmalltalk: [rcvr ln])] ifFalse: [self unPop: 1]! Item was changed: ----- Method: InterpreterPrimitives>>primitiveMarkHandlerMethod (in category 'control primitives') ----- primitiveMarkHandlerMethod "Primitive. Mark the method for exception handling. The primitive must fail after marking the context so that the regular code is run." <inline: false> + self primitiveFail! - ^self primitiveFail! Item was changed: ----- Method: InterpreterPrimitives>>primitiveMarkUnwindMethod (in category 'control primitives') ----- primitiveMarkUnwindMethod + "Primitive. Mark the method for exception unwinding. The primitive must fail after marking the context so that the regular code is run. It must also *not* allow a context switch." - "Primitive. Mark the method for exception unwinding. The primitive must fail after marking the context so that the regular code is run." <inline: false> ^self primitiveFail! Item was changed: ----- Method: InterpreterPrimitives>>primitiveMultiplyLargeIntegers (in category 'arithmetic largeint primitives') ----- primitiveMultiplyLargeIntegers "Primitive arithmetic operations for large integers in 64 bit range" | integerRcvr integerArg result oopResult | <export: true> <var: 'integerRcvr' type: 'sqLong'> <var: 'integerArg' type: 'sqLong'> <var: 'result' type: 'sqLong'> integerArg := self signed64BitValueOf: (self stackValue: 0). integerRcvr := self signed64BitValueOf: (self stackValue: 1). self successful ifFalse:[^nil]. + result := self + cCode: [integerRcvr * integerArg] + inSmalltalk: + [| twoToThe64 r | + twoToThe64 := 2 raisedTo: 64. + r := integerRcvr * integerArg bitAnd: twoToThe64 - 1. + (r bitAt: 64) = 0 ifTrue: [r] ifFalse: [r - twoToThe64]]. - result := integerRcvr * integerArg. "check for C overflow by seeing if computation is reversible" ((integerArg = 0) or: [(result // integerArg) = integerRcvr]) ifTrue:[oopResult := self signed64BitIntegerFor: result] ifFalse: [self primitiveFail]. + self successful ifTrue:[self pop: 2 thenPush: oopResult]! - self successful ifTrue:[self pop: 2 thenPush: oopResult]. - ! Item was changed: ----- Method: InterpreterPrimitives>>primitiveNotEqualLargeIntegers (in category 'arithmetic largeint primitives') ----- primitiveNotEqualLargeIntegers "Primitive comparison operations for large integers in 64 bit range" | integerRcvr integerArg | <export: true> <var: 'integerRcvr' type: 'sqLong'> <var: 'integerArg' type: 'sqLong'> integerArg := self signed64BitValueOf: (self stackValue: 0). integerRcvr := self signed64BitValueOf: (self stackValue: 1). + self successful ifTrue: + [self pop: 2 thenPushBool: integerRcvr ~= integerArg]! - self successful ifTrue:[ - self pop: 2. - self pushBool: integerRcvr ~= integerArg - ]. - ! Item was changed: ----- Method: InterpreterPrimitives>>primitiveSetDisplayMode (in category 'I/O primitives') ----- primitiveSetDisplayMode "Set to OS to the requested display mode. See also DisplayScreen setDisplayDepth:extent:fullscreen:" | fsFlag h w d okay | fsFlag := self booleanValueOf: (self stackTop). h := self stackIntegerValue: 1. w := self stackIntegerValue: 2. d := self stackIntegerValue: 3. self successful ifTrue: [okay := self cCode:'ioSetDisplayMode(w, h, d, fsFlag)']. + self successful ifTrue: [self pop: 5 thenPushBool: okay "Pop args+rcvr"]! - self successful ifTrue: [ - self pop: 5. "Pop args+rcvr" - self pushBool: okay].! Item was changed: ----- Method: InterpreterPrimitives>>primitiveSine (in category 'arithmetic float primitives') ----- primitiveSine | rcvr | + <var: #rcvr type: #double> - <var: #rcvr type: 'double '> rcvr := self popFloat. self successful ifTrue: [self pushFloat: (self cCode: 'sin(rcvr)' inSmalltalk: [rcvr sin])] ifFalse: [self unPop: 1]! Item was changed: ----- Method: InterpreterPrimitives>>primitiveSnapshot (in category 'system control primitives') ----- primitiveSnapshot + "save a normal snapshot under the same name as it was loaded unless it has been renamed by the last primitiveImageName" - "save a normal snapshot under the same name as it was loaded unless it has been renamed by the last primitiveImageName" <inline: false> + self snapshot: false - ^self snapshot: false ! Item was changed: ----- Method: InterpreterPrimitives>>primitiveSnapshotEmbedded (in category 'system control primitives') ----- primitiveSnapshotEmbedded + "save an embedded snapshot" - "save an embedded snapshot" <inline: false> + self snapshot: true! - ^self snapshot: true! Item was changed: ----- Method: InterpreterPrimitives>>primitiveSquareRoot (in category 'arithmetic float primitives') ----- primitiveSquareRoot | rcvr | + <var: #rcvr type: #double> - <var: #rcvr type: 'double '> rcvr := self popFloat. self success: rcvr >= 0.0. self successful ifTrue: [self pushFloat: (self cCode: 'sqrt(rcvr)' inSmalltalk: [rcvr sqrt])] ifFalse: [self unPop: 1]! Item was changed: ----- Method: InterpreterPrimitives>>primitiveTestDisplayDepth (in category 'I/O primitives') ----- primitiveTestDisplayDepth "Return true if the host OS does support the given display depth." | bitsPerPixel okay| bitsPerPixel := self stackIntegerValue: 0. self successful ifTrue: [okay := self ioHasDisplayDepth: bitsPerPixel]. + self successful ifTrue: [self pop: 2 thenPushBool: okay"Pop arg+rcvr"]! - self successful ifTrue: [ - self pop: 2. "Pop arg+rcvr" - self pushBool: okay].! Item was changed: ----- Method: InterpreterPrimitives>>primitiveTimesTwoPower (in category 'arithmetic float primitives') ----- primitiveTimesTwoPower | rcvr arg | + <var: #rcvr type: #double> - <var: #rcvr type: 'double '> arg := self popInteger. rcvr := self popFloat. self successful ifTrue: [ self pushFloat: (self cCode: 'ldexp(rcvr, arg)' inSmalltalk: [rcvr timesTwoPower: arg]) ] + ifFalse: [ self unPop: 2 ]! - ifFalse: [ self unPop: 2 ].! Item was changed: ----- Method: InterpreterPrimitives>>primitiveTruncated (in category 'arithmetic float primitives') ----- primitiveTruncated | rcvr frac trunc | + <var: #rcvr type: #double> + <var: #frac type: #double> + <var: #trunc type: #double> - <var: #rcvr type: 'double '> - <var: #frac type: 'double '> - <var: #trunc type: 'double '> rcvr := self popFloat. self successful ifTrue: [self cCode: 'frac = modf(rcvr, &trunc)' inSmalltalk: [trunc := rcvr truncated]. self flag: #Dan. "The ranges are INCORRECT if SmallIntegers are wider than 31 bits." self cCode: 'success((-1073741824.0 <= trunc) && (trunc <= 1073741823.0))' inSmalltalk: [self success: (trunc between: SmallInteger minVal and: SmallInteger maxVal)]]. self successful ifTrue: [self cCode: 'pushInteger((sqInt) trunc)' inSmalltalk: [self pushInteger: trunc]] ifFalse: [self unPop: 1]! Item was changed: ----- Method: VMMaker class>>versionString (in category 'version testing') ----- versionString "VMMaker versionString" + ^'4.7.17'! - ^'4.7.16'!

1 0

VM Maker: VMMaker-dtl.259.mcz
by commits＠source.squeak.org 24 Nov '11

24 Nov '11

David T. Lewis uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker-dtl.259.mcz ==================== Summary ==================== Name: VMMaker-dtl.259 Author: dtl Time: 24 November 2011, 12:07:26.814 pm UUID: e90c28da-0c64-4bfd-8c77-7928ee6e472b Ancestors: VMMaker-dtl.258 VMMaker 4.7.16 Restore implementation of #buildCodeGeneratorUpTo: required for B3DEnginePlugin and improperly deprecated in VMMaker-dtl.247 =============== Diff against VMMaker-dtl.258 =============== Item was changed: ----- Method: Object>>buildCodeGeneratorUpTo: (in category '*VMMaker-translation support') ----- + buildCodeGeneratorUpTo: aClass + "Build a CCodeGenerator for this class. By default, generate only the + the methods for aClass." + | cg | + cg := self codeGeneratorClass new initialize. + cg declareModuleName: self name. + cg addClass: aClass. + ^cg - buildCodeGeneratorUpTo: unused - "deprecated but retained here in case of use by externally maintained plugins" - - ^self buildCodeGenerator ! Item was changed: ----- Method: VMMaker class>>versionString (in category 'version testing') ----- versionString "VMMaker versionString" + ^'4.7.16'! - ^'4.7.15'!

1 0

[commit] r2516 - rename DPRINTF -> DPRINTF3D
by commits＠squeakvm.org 23 Nov '11

23 Nov '11

Author: piumarta Date: 2011-11-23 11:43:53 -0800 (Wed, 23 Nov 2011) New Revision: 2516 Modified: trunk/platforms/unix/ChangeLog trunk/platforms/unix/vm-display-X11/sqUnixX11.c Log: rename DPRINTF -> DPRINTF3D Modified: trunk/platforms/unix/ChangeLog =================================================================== --- trunk/platforms/unix/ChangeLog 2011-11-18 18:13:10 UTC (rev 2515) +++ trunk/platforms/unix/ChangeLog 2011-11-23 19:43:53 UTC (rev 2516) @@ -1,3 +1,7 @@ +2011-11-23 Ian Piumarta <com -dot- gmail -at- piumarta (backwards)> + + * vm-display-X11/sqUnixX11.c: Rename DPRINTF -> DPRINTF3D. + 2011-10-30 Ian Piumarta <com -dot- gmail -at- piumarta (backwards)> * plugins/B3DAcceleratorPlugin/sqUnixOpenGL.c: Rename DPRINTF -> Modified: trunk/platforms/unix/vm-display-X11/sqUnixX11.c =================================================================== --- trunk/platforms/unix/vm-display-X11/sqUnixX11.c 2011-11-18 18:13:10 UTC (rev 2515) +++ trunk/platforms/unix/vm-display-X11/sqUnixX11.c 2011-11-23 19:43:53 UTC (rev 2516) @@ -5549,12 +5549,12 @@ _renderWindow(r)= 0; _renderContext(r)= 0; - DPRINTF(3, (fp, "---- Creating new renderer ----\r\r")); + DPRINTF3D(3, (fp, "---- Creating new renderer ----\r\r")); /* sanity checks */ if (w < 0 || h < 0) { - DPRINTF(1, (fp, "Negative extent (%i@%i)!\r", w, h)); + DPRINTF3D(1, (fp, "Negative extent (%i@%i)!\r", w, h)); goto fail; } /* choose visual and create context */ @@ -5570,20 +5570,20 @@ } if (!visinfo) { - DPRINTF(1, (fp, "No OpenGL visual found!\r")); + DPRINTF3D(1, (fp, "No OpenGL visual found!\r")); goto fail; } - DPRINTF(3, (fp, "\r#### Selected GLX visual ID 0x%lx ####\r", visinfo->visualid)); + DPRINTF3D(3, (fp, "\r#### Selected GLX visual ID 0x%lx ####\r", visinfo->visualid)); if (verboseLevel >= 3) printVisual(visinfo); /* create context */ if (!(_renderContext(r)= glXCreateContext(stDisplay, visinfo, 0, GL_TRUE))) { - DPRINTF(1, (fp, "Creating GLX context failed!\r")); + DPRINTF3D(1, (fp, "Creating GLX context failed!\r")); goto fail; } - DPRINTF(3, (fp, "\r#### Created GLX context ####\r" )); + DPRINTF3D(3, (fp, "\r#### Created GLX context ####\r" )); /* create window */ { @@ -5604,12 +5604,12 @@ visinfo->depth, InputOutput, visinfo->visual, valuemask, &attributes))) { - DPRINTF(1, (fp, "Failed to create client window\r")); + DPRINTF3D(1, (fp, "Failed to create client window\r")); goto fail; } XMapWindow(stDisplay, renderWindow(r)); } - DPRINTF(3, (fp, "\r#### Created window ####\r" )); + DPRINTF3D(3, (fp, "\r#### Created window ####\r" )); XFree(visinfo); visinfo= 0; } @@ -5617,14 +5617,14 @@ /* Make the context current */ if (!glXMakeCurrent(stDisplay, renderWindow(r), renderContext(r))) { - DPRINTF(1, (fp, "Failed to make context current\r")); + DPRINTF3D(1, (fp, "Failed to make context current\r")); goto fail; } - DPRINTF(3, (fp, "\r### Renderer created! ###\r")); + DPRINTF3D(3, (fp, "\r### Renderer created! ###\r")); return 1; fail: - DPRINTF(1, (fp, "OpenGL initialization failed\r")); + DPRINTF3D(1, (fp, "OpenGL initialization failed\r")); if (visinfo) XFree(visinfo); if (renderContext(r)) @@ -5654,7 +5654,7 @@ { if (!glXMakeCurrent(stDisplay, renderWindow(r), renderContext(r))) { - DPRINTF(1, (fp, "Failed to make context current\r")); + DPRINTF3D(1, (fp, "Failed to make context current\r")); return 0; } } @@ -5694,13 +5694,13 @@ glXGetConfig(stDisplay, visinfo, GLX_DEPTH_SIZE, &depth); if (slow != GLX_SLOW_CONFIG) - { DPRINTF(3, (fp,"===> OpenGL visual\r")) } + { DPRINTF3D(3, (fp,"===> OpenGL visual\r")) } else - { DPRINTF(3, (fp,"---> slow OpenGL visual\r")) } + { DPRINTF3D(3, (fp,"---> slow OpenGL visual\r")) } - DPRINTF(3, (fp,"rgbaBits = %i+%i+%i+%i\r", red, green, blue, alpha)); - DPRINTF(3, (fp,"stencilBits = %i\r", stencil)); - DPRINTF(3, (fp,"depthBits = %i\r", depth)); + DPRINTF3D(3, (fp,"rgbaBits = %i+%i+%i+%i\r", red, green, blue, alpha)); + DPRINTF3D(3, (fp,"stencilBits = %i\r", stencil)); + DPRINTF3D(3, (fp,"depthBits = %i\r", depth)); } glGetError(); /* reset error flag */ } @@ -5714,7 +5714,7 @@ for (i= 0; i < nvisuals; i++) { - DPRINTF(3, (fp,"#### Checking pixel format (visual ID 0x%lx)\r", visinfo[i].visualid)); + DPRINTF3D(3, (fp,"#### Checking pixel format (visual ID 0x%lx)\r", visinfo[i].visualid)); printVisual(&visinfo[i]); } XFree(visinfo);

1 0

How to build a standard Unix interpreter VM on Linux using a Squeak trunk image
by David T. Lewis 23 Nov '11

23 Nov '11

This is a topic that deserves an occasional update, so here is an updated step-by-step recipe for building with Squeak on Linux. These instructions are saved on the swiki at <http://wiki.squeak.org/squeak/6177> Start with a fresh image such as http://ftp.squeak.org/4.3alpha/Squeak4.3gamma-11793.zip (any recent Squeak image will do). Open a new Morphic project in which to work, and enter the project. Open a new workspace for taking notes as you work, and a transcript to display any transcript output that might appear. Open a Monticello browser. In the Monticello browser, add a new repository (+Repository button). Select "HTTP" repository type, and edit the repository information as follows: MCHttpRepository location: 'http://www.squeaksource.com/VMMaker' user: '' password: '' Open the new repository (select the new entry and click the Open button to get a new repository browser). In the repository browser, select category "update" from the list in the left panel, and select the top entry in the right panel (update-dtl.9.mcm as of this writing). Click the "Load" button to load VMMaker. This will load VMMaker and various related packages and plugins. This will load a base version of these packages (but you do not yet have the latest updates, see the next step below). You can see a version identification for your VMMaker package by evaluating "VMMaker versionString" in your workspace: VMMaker versionString ==> '4.7.9' In the workspace, evaluate the expression "VMMaker updateFromServer". This will update VMMaker and the other packages to the most up to date versions. During the merge process, a merge browser will open with a label such as "Merging FFI-Pools-eem.3". Highlight the entries and click "Keep", then click the "Merge" button to accept the merge and proceed (this merge conflict will not effect your VM, so it is safe to ignore it and proceed). When the update process is complete, you will have the latest VMMaker version: VMMaker versionString ==> '4.7.14' Save your image. Your image is now prepared for VM code generation, so the next steps will be to load the platform source code that is required for code generation and VM building. In a Linux terminal window (outside of Squeak), change your directory to your working Squeak directory (the same directory that you are using to run your image. lewis@linux-jh8m:~> cd squeak/Squeak4.3 lewis@linux-jh8m:~/squeak/Squeak4.3> Check out an up to date copy of the platforms source code. You will need to have Subversion installed on your Linux system: lewis@linux-jh8m:~/squeak/Squeak4.3> svn co http://squeakvm.org/svn/squeak/trunk <lots of messages snipped> Checked out revision 2515. lewis@linux-jh8m:~/squeak/Squeak4.3> svn co http://squeakvm.org/svn/squeak/trunk This will place all of the platform sources in a subdirectory called trunk/platforms. It is easier for VMMaker to find this directory if the platforms directory is in directly in your Squeak directory, so use a symbolic link to make it so: lewis@linux-jh8m:~/squeak/Squeak4.3> ln -s trunk/platforms platforms The platforms sources are now ready for use, so return to your Squeak image to generate your VM source code. Open a VMMaker tool withy world menu -> open... -> VMMaker Click the Help button and have a quick look at the help information. You can come back to it later to read in more detail. A list of available plugins appears in the left panel ("Plugins not built"). You can drag entiries from this panel into the "Internal Plugins" panel or the "External Plugins" panel, or you can right click on the panel and use the menu to copy all plugins from one panel to another (plugins that cannot be built on your platform will remain in the "Plugins not built" panel). We are building our first VM, so we will select just a few important plugins to build and omit many others for now. After you are confident that you can build a VM, you can add other plugins and any operating system libraries that may be needed to support them. You can also use a VMMaker configuration file to load a saved configuration, but for now we will do the work by hand to show how it is done. Use the mouse to drag and drop the following plugin entries from the "Plugins not built" panel to the "Internal plugins" panel. BalloonEnginePlugin BitBltSimulation DeflatePlugin FilePlugin LargeIntegersPlugin LocalePlugin SecurityPlugin SocketPlugin Now add some external plugins by dragging the following entries to the "External plugins" panel: UUIDPlugin UnixAioPlugin UnixOSProcessPlugin XDisplayControlPlugin Click the "Clean out" button to make sure the output directory is empty. This is not really necessary now, but it is good practice, and you will want to do it any time you want to guarantee that you are generating a complete fresh copy of the VM sources. In the "Generate:" panel, click the "Entire" button. This will generate all of the VM and plugin source code. In other words, it will translate the Smalltalk classes in your image into C code, and store the resulting source code in the "src" directory in your Squeak directory. This generated source, in combination with the platforms source code that you downloaded from the Subversion repository, is the complete source code for your new Squeak VM. Now go back to your Linux terminal window to compile and install the VM. You will need to have the CMake package installed on your Linux system, so make sure this is done before proceeding. You should now have all necessary sources in the "platforms" and "src" directories in your Squeak working directory: lewis@linux-jh8m:~/squeak/Squeak4.3> ls -ltd platforms src drwxr-xr-x 4 lewis users 4096 2011-11-19 10:10 src lrwxrwxrwx 1 lewis users 15 2011-11-19 09:39 platforms -> trunk/platforms Create a "build" directory for building the VM, and change into that directory: lewis@linux-jh8m:~/squeak/Squeak4.3> mkdir build lewis@linux-jh8m:~/squeak/Squeak4.3> cd build lewis@linux-jh8m:~/squeak/Squeak4.3/build> We will first run a configuration procedure that uses CMake to configure the sources for your system. You will find documention for this in platforms/unix/CMake.txt. The script that runs this procedure has introductory help, so read this first: lewis@linux-jh8m:~/squeak/Squeak4.3/build> ../platforms/unix/cmake/configure --help Now, from your empty build directory, run the actual configuration process. The parameters specify the location of the generated sources, and also specify that GL libaries should be avoided (they are not needed for this simple build, and might cause problems if you do not have the necessary libraries in place). If you are using a 64-bit operating system, this configuration will build a 64-bit VM (see the configuration help above if you want to specify CFLAGS to build a 32-bit VM, which you may later want to do if you are building some of the plugins that work in 32-bit mode). lewis@linux-jh8m:~/squeak/Squeak4.3/build> ../platforms/unix/cmake/configure --src=../src --without-gl When the configuration is complete, use make to build the VM: lewis@linux-jh8m:~/squeak/Squeak4.3/build> make If you have any errors or problems with the build, you may need to do some troubleshooting. In most cases the problem will relate to missing development software that you will need to install on your Linux system. When the build is complete, your new VM is read to be installed. lewis@linux-jh8m:~/squeak/Squeak4.3/build> make install Depending on the security settings of your system, you may need to log in as root (or use sudo) to perform this last step (but never use root access for any of the other build steps described above). Your new Squeak VM is now built and installed, ready to be run as /usr/local/bin/squeak. You can verify the version of the VM you are running as follows: lewis@linux-jh8m:~/squeak/Squeak4.3/build> squeak -version 4.7.14-2515 #1 XShm Sat Nov 19 10:27:11 EST 2011 gcc 4.5.0 Linux linux-jh8m 2.6.34.7-0.7-desktop #1 SMP PREEMPT 2010-12-13 11:13:53 +0100 x86_64 x86_64 x86_64 GNU/Linux plugin path: /usr/local/lib/squeak/4.7.14-2515 [default: /usr/local/lib/squeak/4.7.14-2515/] Congratulations, you are now a VM builder. You will probably want to add some more plugins, and you can save and load your VMMaker configurations for various combinations of plugins with the "Load" and "Save" buttons on your VMMaker window. For reference, here is a configuration file that matches the configuration of recent official Unix Squeak VMs on www.squeakvm.org (note that you will need to locate and install KedamaPlugin and GStreamer plugin to build a VM that fully matches the standard Unix VM). Contents of standard-vmmaker-unix.config file: #(#(#ADPCMCodecPlugin #AsynchFilePlugin #BMPReadWriterPlugin #BalloonEnginePlugin #BitBltSimulation #CroquetPlugin #DSAPlugin #DeflatePlugin #DropPlugin #FFTPlugin #FT2Plugin #FilePlugin #FloatArrayPlugin #FloatMathPlugin #GeniePlugin #JPEGReadWriter2Plugin #JPEGReaderPlugin #JoystickTabletPlugin #KlattSynthesizerPlugin #LargeIntegersPlugin #LocalePlugin #MD5Plugin #Matrix2x3Plugin #MiscPrimitivePlugin #RandPlugin #RePlugin #SHA256Plugin #SecurityPlugin #SerialPlugin #SlangTestPlugin #SlangTestSupportPlugin #SocketPlugin #SoundCodecPlugin #SoundGenerationPlugin #SoundPlugin #StarSqueakPlugin #SurfacePlugin ) #(#B3DAcceleratorPlugin #B3DEnginePlugin #ClipboardExtendedPlugin #DBusPlugin #FFIPlugin #FileCopyPlugin #GStreamerPlugin #HostWindowPlugin #KedamaPlugin #KedamaPlugin2 #MIDIPlugin #Mpeg3Plugin #RomePlugin #UUIDPlugin #UnixAioPlugin #UnixOSProcessPlugin #XDisplayControlPlugin ) true false 'unix' 'src' 'platforms' 4 true true 'Interpreter' )

6 9

DSAPlugin
by David T. Lewis 23 Nov '11

23 Nov '11

Hello Cryptography team, DSAPlugin has had a home in the VMMaker-Plugins package (both VMMaker trunk and oscog) for quite some time, and an essentially identical copy of the same plugin appears in package CryptographyPlugins in the www.squeaksource.com/Cryptography repository. I would like to include the other plugins in package CryptographyPlugins in the configuration map for VMMaker in order to encourage them to be included in future VM distributions. In order to make this possible, it would help if the copy of DSAPlugin in CryptographyPlugins can be moved back out of that package category so the remaining three plugins (DESPlugin, MD5Plugin and SHA256Plugin) can be easily loaded into an image with VMMaker. This can be done by changing the class category for DSAPlugin from 'CryptographyPlugins' to 'VMMaker-Plugins' and saving the updated CryptographyPlugins package in SqS/Cryptography. Can someone make this happen? (Note that the alternative would be to remove DSAPlugin from VMMaker and reference the copy in Cryptography, but the plugin does not seem to have changed in over a decade, so it's probably best to leave it where it is in VMMaker) Thanks! Dave

4 7

Handling function keys in unix
by Guillermo Polito 22 Nov '11

22 Nov '11

So far, what I've learnt/found :). 1) I assume my build is using X11-display, since my keyboard events are generated there :P. 2) The X11 keyboard events are adapted to sq events in sqUnixX11.c >> x2sqKeyPlain 3) This build uses XLookupString, which brings char codes in Latin 1 instead of UTF-8. But X11 seems to support UTF-8 :/. 4) When pressing a function key, XLookupString does not fill the buffer with chars... and the KeySym is not handled. I added a line like case XK_F1: return 50; and Character class>>F1 ^ self value: 50 to test, and It works :). But I'm not sure which code is better to be returned yet :P. 5) My image now handles the F1, but only the keyDown and keyUp, since in sqUnixX11.c >> handleEvent I have something like: if (ucs4) /* only generate a key char event if there's a code. */ recordKeyboardEvent(keyCode, EventKeyChar, modifierState, ucs4); 6) I tried commenting the if, but that generates some garbage in my image when pressing Alt, Shift, Control... So, some questions I have at this point: - Which are the restrictions on the codes returned on translateCode (point 4) ? Are they ascii characters? In the image I see the value is the keychar + the modifiers encoded - Based on the prior question, Which codes should be assigned to function keys? - I don't fully understand yet what a ucs4 code is, but the keysyms are translated to them in sqUnixX11.c >> xkeysym2ucs4 which looks pretty magical :). Does someone know how this works? The comments are not really helpful :(. Thanks! Guille, vming :)

3 4

VM Maker: VMMaker-dtl.258.mcz
by commits＠source.squeak.org 22 Nov '11

22 Nov '11

David T. Lewis uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker-dtl.258.mcz ==================== Summary ==================== Name: VMMaker-dtl.258 Author: dtl Time: 21 November 2011, 10:43:11.493 pm UUID: 7715470a-f07b-4d76-a8fe-58b5cf814e44 Ancestors: VMMaker-dtl.257 VMMaker 4.7.15 Eliminate use of deprecated CrLfFileStream as per oscog =============== Diff against VMMaker-dtl.257 =============== Item was changed: ----- Method: RiscOSVMMaker>>export:forExternalPlugin: (in category 'generate sources') ----- export: exportList forExternalPlugin: aPlugin "it may be useful on certain platforms to do something with the export list of external plugins, just as the internal plugins' exports get added to the VM list. Default is to do nothing though." "For RiscOS using the 'rink' external linker each plugin needs a 'dsc' file that looks like id:SqueakSO main_version:100 code_version:001 entries: // named_entries: getModuleName // with all the exported names in the list. We also need a '/o' directory for the object files" "open a file called plugindir/pluginname.dsc and write into it" | f fd dfd | fd := self externalPluginsDirectoryFor: aPlugin. "If we get an error to do with opening the .dsc file, we need to raise an application error to suit" [(fd directoryExists: 'dsc') ifFalse:[fd createDirectory: 'dsc']. dfd := fd directoryNamed: 'dsc'. + f := VMMaker forceNewFileNamed: (dfd fullNameFor: aPlugin moduleName)] on: FileStreamException do:[^self couldNotOpenFile: (dfd fullNameFor: aPlugin moduleName)]. - f := CrLfFileStream forceNewFileNamed: (dfd fullNameFor: aPlugin moduleName)] on: FileStreamException do:[^self couldNotOpenFile: (dfd fullNameFor: aPlugin moduleName)]. f nextPutAll: 'id:SqueakSO main_version:100 code_version:001 entries: // named_entries: '. exportList do:[:el| f nextPutAll: el. f cr]. f nextPutAll: '//'; cr. f close. (fd directoryNamed: 'o') assureExistence ! Item was added: + ----- Method: VMMaker class>>forceNewFileNamed: (in category 'utilities') ----- + forceNewFileNamed: aFilename + "Always output files in unix lf format. + A single format is friendlier to e.g. external version control systems. + The Microsoft and old MacOS classic C compilers all accept lf format files." + + ^(MultiByteFileStream forceNewFileNamed: aFilename) + lineEndConvention: #lf; + yourself! Item was changed: ----- Method: VMMaker class>>versionString (in category 'version testing') ----- versionString "VMMaker versionString" + ^'4.7.15'! - ^'4.7.14'! Item was changed: ----- Method: VMMaker>>saveConfigurationTo: (in category 'objects from disk') ----- saveConfigurationTo: aFile "Write info about the current configuration to a file. Use a hack CrForSpaceWriteStream so that things appear on separate lines to be friendly to configuration management systems diffing facilities." | stream | stream := CrForSpaceWriteStream on: String new. self configurationInfo storeOn: stream. + (MultiByteFileStream newFileNamed: aFile) + lineEndConvention: #lf; - (CrLfFileStream newFileNamed: aFile) nextPutAll: stream contents; close! Item was changed: ----- Method: VMMaker>>storeExportsOn: (in category 'exports') ----- storeExportsOn: aFilename "Store the exports on the given file" | s | + [s := VMMaker forceNewFileNamed: aFilename] - [s := CrLfFileStream forceNewFileNamed: aFilename] on: FileDoesNotExistException do:[^self couldNotOpenFile: aFilename]. s nextPutAll: '/* '. s nextPutAll: VMMaker headerNotice. s nextPutAll: ' */'; cr. s nextPutAll:'/* This is an automatically generated table of all builtin modules in the VM */'; cr. s cr; nextPutAll:'extern sqExport vm_exports[];'. s cr; nextPutAll: 'extern sqExport os_exports[];'. self internalPluginsDo:[:cls| s cr; nextPutAll: 'extern sqExport '; nextPutAll: cls moduleName; nextPutAll:'_exports[];'. ]. s cr. s cr; nextPutAll:'sqExport *pluginExports[] = {'. s crtab; nextPutAll:'vm_exports,'. s crtab; nextPutAll: 'os_exports,'. self internalPluginsDo:[:cls| s crtab; nextPutAll: cls moduleName; nextPutAll:'_exports,' ]. s crtab; nextPutAll:'NULL'. s cr; nextPutAll:'};'; cr. s close! Item was changed: ----- Method: VMMaker>>storeExternalPluginList (in category 'exports') ----- storeExternalPluginList | s fileName | fileName := self makefileDirectory fullNameFor: 'plugins.ext'. + [s := VMMaker forceNewFileNamed: fileName] - [s := CrLfFileStream forceNewFileNamed: fileName] on: FileDoesNotExistException do:[^self couldNotOpenFile: fileName]. s nextPutAll:'# Automatically generated makefile include for external plugins'. s cr; nextPutAll:'EXTERNAL_PLUGINS ='. self externalPluginsDo:[:cls| s space; nextPutAll: cls moduleName. ]. s cr; close! Item was changed: ----- Method: VMMaker>>storeInternalPluginList (in category 'exports') ----- storeInternalPluginList | s fileName | fileName := self makefileDirectory fullNameFor: 'plugins.int'. + [s := VMMaker forceNewFileNamed: fileName] - [s := CrLfFileStream forceNewFileNamed: fileName] on: FileDoesNotExistException do:[^self couldNotOpenFile: fileName]. s nextPutAll:'# Automatically generated makefile include for internal plugins'. s cr; nextPutAll:'INTERNAL_PLUGINS ='. self internalPluginsDo:[:cls| s space; nextPutAll: cls moduleName. ]. s cr; close!

1 0

Re: [Vm-dev] How to build a standard Unix interpreter VM on Linux using a Squeak trunk image
by Jeff Gonis 21 Nov '11

21 Nov '11

Hi David and Stephane, I sent David an email thanking him very much for this email on the squeak-dev list and I saw this message and I thought that maybe I could state what value David's email had for me, as a vote for David sending it. I had in fact gone and looked at Mariano's blog and also the Deep Into Smalltalk vm course slides to work on building a vm, but I generally use the latest squeak image in my development, and in this image neither Gofer nor Metacello are present. Both of the resources that were listed explicitly place their instructions in the context of operating inside of a Pharo image and using Gofer, and so if you are not in a Pharo image, instead of working on getting a vm built you first have to work on figuring out how to get Gofer and Metacello up and running in your image. This can discourage you and eventually cause you to turn your attention to doing other development in the image which is what happened for me. David's instructions worked for the first time I tried them, even being so thorough as to tell me how to deal with the merge window that popped up, and worked inside a Squeak image. Unfortunately, I attempted the same instructions from inside a pharo 1.3 image and came across several errors with what appear to be unsatisfied dependencies and a syntax error. So it looks like right now we are kind of stuck with a situation in which the instructions for building a VM differ between Pharo and Squeak. But this is why David's email was so valuable, because the most clear directions for VM building for me were pharo specific, and now there are instructions suited to Squeak that I can use. So I don't see his email as duplication but rather as providing the directions that I was unable to get from the other resources. Anyway, just wanted to put in my 2 cents on why I appreciated David's work so much. Thanks, Jeff G.

2 1

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Vm-dev November 2011