Squeak-dev March 2022

squeak-dev@lists.squeakfoundation.org

33 participants
304 discussions

Re: [squeak-dev] [Vm-dev] Sign-bit bug in character literals > 16r7FFF ... related to SistaV1?
by Nicolas Cellier 09 Mar '22

09 Mar '22

Oups forgot to respond to squeak-dev too... in #interpretNextSistaV1InstructionFor: we se that extB is interpreted as signed char extB := (extB = 0 and: [extByte > 127]) ifTrue: [extByte - 256] ifFalse: [(extB bitShift: 8) + extByte] Then in interpretNext2ByteSistaV1Instruction: bytecode for: client extA: extA extB: extB startPC: startPC ^client pushSpecialConstant: (Character value: (extB bitShift: 8) + byte) In our case, extA=0, extB=-128, bytecode=233 Le mer. 9 mars 2022 à 10:02, Nicolas Cellier < nicolas.cellier.aka.nice(a)gmail.com> a écrit : > Hi Marcel, > yes, I agree, the bug is in bytecode encoding/decoding of immediate > Character value, > I stepped into (Compiler evaluate: (String with: $$ with: (Character > value: 16r8000))), and if we step into executeMethod, we can inspect what > is going on. > > > Le mer. 9 mars 2022 à 08:39, Marcel Taeumel <marcel.taeumel(a)hpi.de> a > écrit : > >> >> Hi Nicolas -- >> >> There is a bug in the EncoderForSistaV1. The behavior is okay for >> EncoderForV3PlusClosures. We can discuss this on squeak-dev now, I suppose. >> >> CompiledCode preferredBytecodeSetEncoderClass: EncoderForSistaV1. >> CompiledCode preferredBytecodeSetEncoderClass: EncoderForV3PlusClosures. >> >> If you do send #halt instead of #asInteger, you get another interesting >> debugger when trying to start debugging: >> >> >> >> Best, >> Marcel >> >> Am 09.03.2022 08:34:11 schrieb Nicolas Cellier < >> nicolas.cellier.aka.nice(a)gmail.com>: >> Ah OK, I see it on macos too >> It remains to determine which operation exactly is involved... >> The TextMorph holding the printed result is correct - a WideString, whose >> last Character is (Character value: 32768). >> >> Le mer. 9 mars 2022 à 08:08, Marcel Taeumel a >> écrit : >> >> > >> > Hi Dave, hi Nicolas -- >> > >> > I am working in Windows 10. >> > >> > > I cannot reproduce on Linux 64 bit either: >> > > (Character value: 16r8000) asInteger hex ==> '16r8000' >> > >> > That's not how you would reproduce it. The bug affects character >> literals, >> > not character objects/instances. You have to evaluate code on that >> > character literal. >> > >> > Maybe this picture helps: >> > >> > >> > >> > Best, >> > Marcel >> > >> > Am 08.03.2022 18:56:09 schrieb David T. Lewis : >> > >> > I cannot reproduce on Linux 64 bit either: >> > >> > (Character value: 16r8000) asInteger hex ==> '16r8000' >> > >> > Dave >> > >> > >> > On Tue, Mar 08, 2022 at 06:45:23PM +0100, Nicolas Cellier wrote: >> > > >> > > Hi Marcel, >> > > which OS ? >> > > I cannot reproduce on macos 64, >> > > >> > > Cog[Spur] VM [CoInterpreterPrimitives VMMaker.oscog-eem.3172] >> > > 5.20211023.2003 >> > > Mac OS X built on Mar 6 2022 15:31:16 CET Compiler: 4.2.1 Compatible >> > Apple >> > > LLVM 10.0.1 (clang-1001.0.46.4) >> > > platform sources revision VM: 202110232003 >> > > >> > > Le mar. 8 mars 2022 ?? 17:57, Marcel Taeumel a >> > > ??crit : >> > > >> > > > >> > > > Hi Eliot, hi all -- >> > > > >> > > > I think we have an sign-bit bug for character literals with code >> > points > >> > > > 16r7FFF. >> > > > >> > > > Steps to reproduce: >> > > > >> > > > 1. Print it: "Character value: 16r8000" >> > > > 2. Inspect the result by evaluating the character literal or send >> > > > #asInteger to it. It will most likely not render in a standard >> Squeak >> > and >> > > > show up like "$? asInteger". >> > > > >> > > > In a 32-bit VM, I will get the (positive) integer value >> 16r3FFF8000. >> > > > In a 64-bit VM, I will get the (negative) integer value '-16r8000'. >> > > > >> > > > Somehow, starting at bit 0, the bits 16 to 29 flip from 0 to 1. In >> > 64-bit, >> > > > this means a negative number. Not sure about bits 30 and 31 here. >> > > > >> > > > Is there a bug in the upper tag bits of immediate characters? >> > > > Is this related to the 2-byte or 3-byte byte codes in SistaV1? >> > > > >> > > > Works fine up to 16r7FFF. (This is unrelated to #leadingChar. Mine >> was >> > 0 >> > > > in this experiment.) >> > > > >> > > > VM: 202112201228 (VMMaker.oscog-eem.3116) >> > > > >> > > > Best, >> > > > Marcel >> > > > >> > >> > >> Ah OK, I see it on macos too >> It remains to determine which operation exactly is involved... >> The TextMorph holding the printed result is correct - a WideString, whose >> last Character is (Character value: 32768). >> >> Le mer. 9 mars 2022 à 08:08, Marcel Taeumel <marcel.taeumel(a)hpi.de> a >> écrit : >> >>> >>> >>> Hi Dave, hi Nicolas -- >>> >>> I am working in Windows 10. >>> >>> > I cannot reproduce on Linux 64 bit either: >>> > (Character value: 16r8000) asInteger hex ==> '16r8000' >>> >>> That's not how you would reproduce it. The bug affects character >>> literals, not character objects/instances. You have to evaluate code on >>> that character literal. >>> >>> Maybe this picture helps: >>> >>> >>> >>> Best, >>> Marcel >>> >>> >>> Am 08.03.2022 18:56:09 schrieb David T. Lewis <lewis(a)mail.msen.com>: >>> >>> I cannot reproduce on Linux 64 bit either: >>> >>> (Character value: 16r8000) asInteger hex ==> '16r8000' >>> >>> Dave >>> >>> >>> On Tue, Mar 08, 2022 at 06:45:23PM +0100, Nicolas Cellier wrote: >>> > >>> > Hi Marcel, >>> > which OS ? >>> > I cannot reproduce on macos 64, >>> > >>> > Cog[Spur] VM [CoInterpreterPrimitives VMMaker.oscog-eem.3172] >>> > 5.20211023.2003 >>> > Mac OS X built on Mar 6 2022 15:31:16 CET Compiler: 4.2.1 Compatible >>> Apple >>> > LLVM 10.0.1 (clang-1001.0.46.4) >>> > platform sources revision VM: 202110232003 >>> > >>> > Le mar. 8 mars 2022 ?? 17:57, Marcel Taeumel a >>> > ??crit : >>> > >>> > > >>> > > Hi Eliot, hi all -- >>> > > >>> > > I think we have an sign-bit bug for character literals with code >>> points > >>> > > 16r7FFF. >>> > > >>> > > Steps to reproduce: >>> > > >>> > > 1. Print it: "Character value: 16r8000" >>> > > 2. Inspect the result by evaluating the character literal or send >>> > > #asInteger to it. It will most likely not render in a standard >>> Squeak and >>> > > show up like "$? asInteger". >>> > > >>> > > In a 32-bit VM, I will get the (positive) integer value 16r3FFF8000. >>> > > In a 64-bit VM, I will get the (negative) integer value '-16r8000'. >>> > > >>> > > Somehow, starting at bit 0, the bits 16 to 29 flip from 0 to 1. In >>> 64-bit, >>> > > this means a negative number. Not sure about bits 30 and 31 here. >>> > > >>> > > Is there a bug in the upper tag bits of immediate characters? >>> > > Is this related to the 2-byte or 3-byte byte codes in SistaV1? >>> > > >>> > > Works fine up to 16r7FFF. (This is unrelated to #leadingChar. Mine >>> was 0 >>> > > in this experiment.) >>> > > >>> > > VM: 202112201228 (VMMaker.oscog-eem.3116) >>> > > >>> > > Best, >>> > > Marcel >>> > > >>> >>> >>

1 2

The Trunk: Tools-mt.1140.mcz
by commits＠source.squeak.org 09 Mar '22

09 Mar '22

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1140.mcz ==================== Summary ==================== Name: Tools-mt.1140 Author: mt Time: 9 March 2022, 12:47:29.695769 pm UUID: bfe6316b-34ad-e74f-8ade-996dda16ffc1 Ancestors: Tools-mt.1139 Minor fix in DependencyBrowser to match implementation in PackagePaneBrowser. =============== Diff against Tools-mt.1139 =============== Item was changed: ----- Method: DependencyBrowser>>selectedPackageName (in category 'package list') ----- selectedPackageName + ^ self hasPackageSelected + ifFalse: [nil] + ifTrue: [self packageList at: packageListIndex]! - ^ self packageList at: self packageListIndex!

1 0

Slightly incorrect implementation of #resignalAs: ??
by mail＠jaromir.net 09 Mar '22

09 Mar '22

Hi all, I think Squeak's implementation of #resignalAs: is not following the ANSI specification precisely. Currently it reads: resignalAs: replacementException signalContext resumeEvaluating: [replacementException signal] ANSI says: " The active exception action is aborted and the exception environment *and the evaluation context* are restored to the same states that were in effect when the receiver was originally signaled. This message (i.e. resignalAs:) causes the replacementException to be treated as if it had been originally signaled instead of the receiver. " This is very similar to #retry (or #retryUsing:) specification so I'd suggest the following implementation: resignalAs: replacementException signalContext restartWithNewReceiver: replacementException The current implementation leads to building the new resignaled contexts on top of the previous signal contexts (and the resignalAs context itself) instead of simply *restarting* the previous signal context with the replacement exception as the new receiver. In my opinion the suggested implementation precisely follows the ANSI specification, and is consistent with current #retry and #retryUsing: implementation - compare: retryUsing: alternativeBlock "Abort an exception handler and evaluate a new block in place of the handler's protected block." handlerContext restartWithNewReceiver: alternativeBlock Other dialects: Pharo and Cuis copied Squeak's but VW implemented resignalAs: to comply with ANSI precisely. One consideration: the current implementation allows "exception resignalAs: Error", i.e. allows Exception class as an argument but ANSI's version requires "exception resignalAs: Error new". All senders (there are just a few) in the base image seem use "Error new" anyway. My arguments for are: consistency, readability and less complexity (especially while debugging) What do you think? Inbox it? best, ~~~ ^[^ Jaromir Sent from Squeak Inbox Talk

4 6

The Trunk: Multilingual-mt.267.mcz
by commits＠source.squeak.org 09 Mar '22

09 Mar '22

Marcel Taeumel uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-mt.267.mcz ==================== Summary ==================== Name: Multilingual-mt.267 Author: mt Time: 9 March 2022, 11:26:54.12999 am UUID: 57708974-d740-2747-a900-f8c2a981c1f2 Ancestors: Multilingual-mt.266 Fixes latin-1 tables for EUC converters. Makes the CNGBTextConverter available under the more consistent name EUCCNTextConverter. =============== Diff against Multilingual-mt.266 =============== Item was changed: + EUCCNTextConverter subclass: #CNGBTextConverter - EUCTextConverter subclass: #CNGBTextConverter instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Multilingual-TextConversion'! - - !CNGBTextConverter commentStamp: '<historical>' prior: 0! - Text converter for Simplified Chinese variation of EUC. (Even though the name doesn't look so, it is what it is.)! Item was removed: - ----- Method: CNGBTextConverter class>>encodingNames (in category 'utilities') ----- - encodingNames - - ^ #('gb2312' ) copy - ! Item was removed: - ----- Method: CNGBTextConverter>>languageEnvironment (in category 'private') ----- - languageEnvironment - - ^ SimplifiedChineseEnvironment. - ! Item was removed: - ----- Method: CNGBTextConverter>>leadingChar (in category 'private') ----- - leadingChar - - ^ GB2312 leadingChar - ! Item was added: + EUCTextConverter subclass: #EUCCNTextConverter + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Multilingual-TextConversion'! + + !EUCCNTextConverter commentStamp: 'mt 3/9/2022 11:14' prior: 0! + Text converter for Simplified Chinese variation of EUC. ! Item was added: + ----- Method: EUCCNTextConverter class>>encodingNames (in category 'utilities') ----- + encodingNames + + ^ #('gb2312' 'euc-cn') copy! Item was added: + ----- Method: EUCCNTextConverter>>languageEnvironment (in category 'private') ----- + languageEnvironment + + ^ SimplifiedChineseEnvironment. + ! Item was added: + ----- Method: EUCCNTextConverter>>leadingChar (in category 'private') ----- + leadingChar + + ^ GB2312 leadingChar + ! Item was added: + ----- Method: EUCTextConverter class>>initializeLatin1MapAndEncodings (in category 'class initialization') ----- + initializeLatin1MapAndEncodings + + latin1Map := ByteArray new: 256 withAll: 1. + latin1Encodings := Array new: 256 withAll: nil. + 0 to: 127 do: [:i | latin1Map at: i+1 put: 0].! Item was changed: ----- Method: EUCTextConverter>>nextPut:toStream: (in category 'conversion') ----- nextPut: aCharacter toStream: aStream | charCode leadingChar nonUnicodeChar | aStream isBinary ifTrue: [^aCharacter storeBinaryOn: aStream]. charCode := aCharacter charCode. leadingChar := aCharacter leadingChar. (leadingChar = 0 and: [ charCode < 256 ]) ifTrue: [ (latin1Encodings at: charCode + 1) + ifNil: [ (latin1Map at: charCode + 1) = 0 "Really no translation needed." + ifTrue: [ aStream basicNextPut: aCharacter ] + ifFalse: [ UndefinedConversion signalFor: charCode toEncoding: self ] ] - ifNil: [ aStream basicNextPut: aCharacter ] ifNotNil: [ :encodedString | aStream basicNextPutAll: encodedString ]. ^aCharacter ]. aCharacter isTraditionalDomestic ifFalse: [ nonUnicodeChar := self nonUnicodeClass charFromUnicode: charCode ] ifTrue: [ nonUnicodeChar := Character value: charCode ]. nonUnicodeChar ifNotNil: [ charCode := nonUnicodeChar charCode. aStream basicNextPut: (Character value: charCode // 94 + 161); basicNextPut: (Character value: charCode \\ 94 + 161) ]. ^aCharacter ! Item was changed: + (PackageInfo named: 'Multilingual') postscript: 'EUCTextConverter withAllSubclassesDo: [:ea | ea initializeTables].'! - (PackageInfo named: 'Multilingual') postscript: 'KOI8TextConverter withAllSubclassesDo: [:ea | ea initializeTables].'!

1 0

The Trunk: Multilingual-mt.266.mcz
by commits＠source.squeak.org 09 Mar '22

09 Mar '22

Marcel Taeumel uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-mt.266.mcz ==================== Summary ==================== Name: Multilingual-mt.266 Author: mt Time: 9 March 2022, 11:01:38.89217 am UUID: 1df9d92a-f722-f147-b3d7-00872089abad Ancestors: Multilingual-mt.265 Clean up and extend KOI-8 converters. =============== Diff against Multilingual-mt.265 =============== Item was added: + KOI8TextConverter subclass: #KOI8BTextConverter + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Multilingual-TextConversion'! Item was added: + ----- Method: KOI8BTextConverter class>>encodingNames (in category 'utilities') ----- + encodingNames + + ^ #('koi8-b') copy + ! Item was added: + ----- Method: KOI8BTextConverter class>>initializeDecodeTable (in category 'class initialization') ----- + initializeDecodeTable + + super initializeDecodeTable. + decodeTable at: 16rA3 + 1 put: 16r0451. + decodeTable at: 16rB3 + 1 put: 16r0401. + decodeTable at: 16rFF + 1 put: 16r042A. + self setCurrencySignToDollar.! Item was added: + KOI8TextConverter subclass: #KOI8ETextConverter + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Multilingual-TextConversion'! Item was added: + ----- Method: KOI8ETextConverter class>>encodingNames (in category 'utilities') ----- + encodingNames + + ^ #('koi8-e' 'iso-ir-111') copy + ! Item was added: + ----- Method: KOI8ETextConverter class>>initializeDecodeTable (in category 'class initialization') ----- + initializeDecodeTable + + super initializeDecodeTable. + decodeTable := self createTableFrom: ((decodeTable copyFrom: 16r00+1 to: 16r9F+1) , #( + 16r00A0 16r0452 16r0453 16r0451 16r0454 16r0455 16r0456 16r0457 + 16r0458 16r0459 16r045A 16r045B 16r045C 16r00AD 16r045E 16r045F + 16r2116 16r0402 16r0403 16r0401 16r0404 16r0405 16r0406 16r0407 + 16r0408 16r0409 16r040A 16r040B 16r040C 16r00A4 16r040E 16r040F), + (decodeTable copyFrom: 16rC0 + 1 to: 16rFE + 1), + #(16r042A)). + self setCurrencySignToDollar.! Item was added: + KOI8TextConverter subclass: #KOI8FTextConverter + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Multilingual-TextConversion'! Item was added: + ----- Method: KOI8FTextConverter class>>encodingNames (in category 'utilities') ----- + encodingNames + + ^ #('koi8-f') copy + ! Item was added: + ----- Method: KOI8FTextConverter class>>initializeDecodeTable (in category 'class initialization') ----- + initializeDecodeTable + + super initializeDecodeTable. + decodeTable := self createTableFrom: ((decodeTable copyFrom: 1 to: 128) , #( + 16r2500 16r2502 16r250C 16r2510 16r2514 16r2518 16r251C 16r2524 + 16r252C 16r2534 16r253C 16r2580 16r2584 16r2588 16r258C 16r2590 + 16r2591 16r2018 16r2019 16r201C 16r201D 16r2219 16r2013 16r2014 + 16r00A9 16r2122 16r00A0 16r00BB 16r00AE 16r00AB 16r00B7 16r00A4 + 16r00A0 16r0452 16r0453 16r0451 16r0454 16r0455 16r0456 16r0457 + 16r0458 16r0459 16r045A 16r045B 16r045C 16r0491 16r045E 16r045F + 16r2116 16r0402 16r0403 16r0401 16r0404 16r0405 16r0406 16r0407 + 16r0408 16r0409 16r040A 16r040B 16r040C 16r0490 16r040E 16r040F), + (decodeTable copyFrom: 16rC0 + 1 to: 16rFE + 1), + #(16r042A)). + self setCurrencySignToDollar.! Item was changed: + KOI8TextConverter subclass: #KOI8RTextConverter - TextConverter subclass: #KOI8RTextConverter instanceVariableNames: '' + classVariableNames: '' - classVariableNames: 'FromTable' poolDictionaries: '' category: 'Multilingual-TextConversion'! Item was changed: + ----- Method: KOI8RTextConverter class>>encodingNames (in category 'utilities') ----- - ----- Method: KOI8RTextConverter class>>encodingNames (in category 'as yet unclassified') ----- encodingNames ^ #('koi8-r') copy ! Item was removed: - ----- Method: KOI8RTextConverter class>>initialize (in category 'as yet unclassified') ----- - initialize - " - KOI8RTextConverter initialize - " - FromTable := Dictionary new. - FromTable at: 16r2500 put: 16r80. - FromTable at: 16r2502 put: 16r81. - FromTable at: 16r250C put: 16r82. - FromTable at: 16r2510 put: 16r83. - FromTable at: 16r2514 put: 16r84. - FromTable at: 16r2518 put: 16r85. - FromTable at: 16r251C put: 16r86. - FromTable at: 16r2524 put: 16r87. - FromTable at: 16r252C put: 16r88. - FromTable at: 16r2534 put: 16r89. - FromTable at: 16r253C put: 16r8A. - FromTable at: 16r2580 put: 16r8B. - FromTable at: 16r2584 put: 16r8C. - FromTable at: 16r2588 put: 16r8D. - FromTable at: 16r258C put: 16r8E. - FromTable at: 16r2590 put: 16r8F. - FromTable at: 16r2591 put: 16r90. - FromTable at: 16r2592 put: 16r91. - FromTable at: 16r2593 put: 16r92. - FromTable at: 16r2320 put: 16r93. - FromTable at: 16r25A0 put: 16r94. - FromTable at: 16r2219 put: 16r95. - FromTable at: 16r221A put: 16r96. - FromTable at: 16r2248 put: 16r97. - FromTable at: 16r2264 put: 16r98. - FromTable at: 16r2265 put: 16r99. - FromTable at: 16r00A0 put: 16r9A. - FromTable at: 16r2321 put: 16r9B. - FromTable at: 16r00B0 put: 16r9C. - FromTable at: 16r00B2 put: 16r9D. - FromTable at: 16r00B7 put: 16r9E. - FromTable at: 16r00F7 put: 16r9F. - FromTable at: 16r2550 put: 16rA0. - FromTable at: 16r2551 put: 16rA1. - FromTable at: 16r2552 put: 16rA2. - FromTable at: 16r0451 put: 16rA3. - FromTable at: 16r2553 put: 16rA4. - FromTable at: 16r2554 put: 16rA5. - FromTable at: 16r2555 put: 16rA6. - FromTable at: 16r2556 put: 16rA7. - FromTable at: 16r2557 put: 16rA8. - FromTable at: 16r2558 put: 16rA9. - FromTable at: 16r2559 put: 16rAA. - FromTable at: 16r255A put: 16rAB. - FromTable at: 16r255B put: 16rAC. - FromTable at: 16r255C put: 16rAD. - FromTable at: 16r255D put: 16rAE. - FromTable at: 16r255E put: 16rAF. - FromTable at: 16r255F put: 16rB0. - FromTable at: 16r2560 put: 16rB1. - FromTable at: 16r2561 put: 16rB2. - FromTable at: 16r0401 put: 16rB3. - FromTable at: 16r2562 put: 16rB4. - FromTable at: 16r2563 put: 16rB5. - FromTable at: 16r2564 put: 16rB6. - FromTable at: 16r2565 put: 16rB7. - FromTable at: 16r2566 put: 16rB8. - FromTable at: 16r2567 put: 16rB9. - FromTable at: 16r2568 put: 16rBA. - FromTable at: 16r2569 put: 16rBB. - FromTable at: 16r256A put: 16rBC. - FromTable at: 16r256B put: 16rBD. - FromTable at: 16r256C put: 16rBE. - FromTable at: 16r00A9 put: 16rBF. - FromTable at: 16r044E put: 16rC0. - FromTable at: 16r0430 put: 16rC1. - FromTable at: 16r0431 put: 16rC2. - FromTable at: 16r0446 put: 16rC3. - FromTable at: 16r0434 put: 16rC4. - FromTable at: 16r0435 put: 16rC5. - FromTable at: 16r0444 put: 16rC6. - FromTable at: 16r0433 put: 16rC7. - FromTable at: 16r0445 put: 16rC8. - FromTable at: 16r0438 put: 16rC9. - FromTable at: 16r0439 put: 16rCA. - FromTable at: 16r043A put: 16rCB. - FromTable at: 16r043B put: 16rCC. - FromTable at: 16r043C put: 16rCD. - FromTable at: 16r043D put: 16rCE. - FromTable at: 16r043E put: 16rCF. - FromTable at: 16r043F put: 16rD0. - FromTable at: 16r044F put: 16rD1. - FromTable at: 16r0440 put: 16rD2. - FromTable at: 16r0441 put: 16rD3. - FromTable at: 16r0442 put: 16rD4. - FromTable at: 16r0443 put: 16rD5. - FromTable at: 16r0436 put: 16rD6. - FromTable at: 16r0432 put: 16rD7. - FromTable at: 16r044C put: 16rD8. - FromTable at: 16r044B put: 16rD9. - FromTable at: 16r0437 put: 16rDA. - FromTable at: 16r0448 put: 16rDB. - FromTable at: 16r044D put: 16rDC. - FromTable at: 16r0449 put: 16rDD. - FromTable at: 16r0447 put: 16rDE. - FromTable at: 16r044A put: 16rDF. - FromTable at: 16r042E put: 16rE0. - FromTable at: 16r0410 put: 16rE1. - FromTable at: 16r0411 put: 16rE2. - FromTable at: 16r0426 put: 16rE3. - FromTable at: 16r0414 put: 16rE4. - FromTable at: 16r0415 put: 16rE5. - FromTable at: 16r0424 put: 16rE6. - FromTable at: 16r0413 put: 16rE7. - FromTable at: 16r0425 put: 16rE8. - FromTable at: 16r0418 put: 16rE9. - FromTable at: 16r0419 put: 16rEA. - FromTable at: 16r041A put: 16rEB. - FromTable at: 16r041B put: 16rEC. - FromTable at: 16r041C put: 16rED. - FromTable at: 16r041D put: 16rEE. - FromTable at: 16r041E put: 16rEF. - FromTable at: 16r041F put: 16rF0. - FromTable at: 16r042F put: 16rF1. - FromTable at: 16r0420 put: 16rF2. - FromTable at: 16r0421 put: 16rF3. - FromTable at: 16r0422 put: 16rF4. - FromTable at: 16r0423 put: 16rF5. - FromTable at: 16r0416 put: 16rF6. - FromTable at: 16r0412 put: 16rF7. - FromTable at: 16r042C put: 16rF8. - FromTable at: 16r042B put: 16rF9. - FromTable at: 16r0417 put: 16rFA. - FromTable at: 16r0428 put: 16rFB. - FromTable at: 16r042D put: 16rFC. - FromTable at: 16r0429 put: 16rFD. - FromTable at: 16r0427 put: 16rFE. - FromTable at: 16r042A put: 16rFF. - ! Item was added: + ----- Method: KOI8RTextConverter class>>initializeDecodeTable (in category 'class initialization') ----- + initializeDecodeTable + + super initializeDecodeTable. + decodeTable := self createTableFrom: ((decodeTable copyFrom: 1 to: 128) , #( + 16r2500 16r2502 16r250C 16r2510 16r2514 16r2518 16r251C 16r2524 + 16r252C 16r2534 16r253C 16r2580 16r2584 16r2588 16r258C 16r2590 + 16r2591 16r2592 16r2593 16r2320 16r25A0 16r2219 16r221A 16r2248 + 16r2264 16r2265 16r00A0 16r2321 16r00B0 16r00B2 16r00B7 16r00F7 + 16r2550 16r2551 16r2552 16r0451 16r2553 16r2554 16r2555 16r2556 + 16r2557 16r2558 16r2559 16r255A 16r255B 16r255C 16r255D 16r255E + 16r255F 16r2560 16r2561 16r0401 16r2562 16r2563 16r2564 16r2565 + 16r2566 16r2567 16r2568 16r2569 16r256A 16r256B 16r256C 16r00A9), + (decodeTable copyFrom: 16rC0 + 1 to: 16rFE + 1), + #(16r042A)). + self setCurrencySignToDollar.! Item was removed: - ----- Method: KOI8RTextConverter>>fromSqueak: (in category 'as yet unclassified') ----- - fromSqueak: char - - ^ Character value: (FromTable at: char charCode ifAbsent: [char asciiValue])! Item was removed: - ----- Method: KOI8RTextConverter>>nextFromStream: (in category 'as yet unclassified') ----- - nextFromStream: aStream - - | character1 | - aStream isBinary ifTrue: [^ aStream basicNext]. - character1 := aStream basicNext. - character1 isNil ifTrue: [^ nil]. - ^ self toSqueak: character1. - ! Item was removed: - ----- Method: KOI8RTextConverter>>nextPut:toStream: (in category 'as yet unclassified') ----- - nextPut: aCharacter toStream: aStream - - | charCode | - aStream isBinary ifTrue: [ ^aCharacter storeBinaryOn: aStream ]. - (charCode := aCharacter charCode) < 256 - ifFalse: [ aStream basicNextPut: ((Character value: (self fromSqueak: aCharacter) charCode)) ] - ifTrue: [ - (latin1Encodings at: charCode + 1) - ifNil: [ aStream basicNextPut: aCharacter ] - ifNotNil: [ :encodedString | aStream basicNextPutAll: encodedString ] ]. - ^aCharacter - ! Item was removed: - ----- Method: KOI8RTextConverter>>toSqueak: (in category 'as yet unclassified') ----- - toSqueak: char - - | value | - value := char charCode. - - value < 128 ifTrue: [^ char]. - value > 255 ifTrue: [^ char]. - ^ Character leadingChar: RussianEnvironment leadingChar code: (#( - 16r2500 16r2502 16r250C 16r2510 16r2514 16r2518 16r251C 16r2524 - 16r252C 16r2534 16r253C 16r2580 16r2584 16r2588 16r258C 16r2590 - 16r2591 16r2592 16r2593 16r2320 16r25A0 16r2219 16r221A 16r2248 - 16r2264 16r2265 16r00A0 16r2321 16r00B0 16r00B2 16r00B7 16r00F7 - 16r2550 16r2551 16r2552 16r0451 16r2553 16r2554 16r2555 16r2556 - 16r2557 16r2558 16r2559 16r255A 16r255B 16r255C 16r255D 16r255E - 16r255F 16r2560 16r2561 16r0401 16r2562 16r2563 16r2564 16r2565 - 16r2566 16r2567 16r2568 16r2569 16r256A 16r256B 16r256C 16r00A9 - 16r044E 16r0430 16r0431 16r0446 16r0434 16r0435 16r0444 16r0433 - 16r0445 16r0438 16r0439 16r043A 16r043B 16r043C 16r043D 16r043E - 16r043F 16r044F 16r0440 16r0441 16r0442 16r0443 16r0436 16r0432 - 16r044C 16r044B 16r0437 16r0448 16r044D 16r0449 16r0447 16r044A - 16r042E 16r0410 16r0411 16r0426 16r0414 16r0415 16r0424 16r0413 - 16r0425 16r0418 16r0419 16r041A 16r041B 16r041C 16r041D 16r041E - 16r041F 16r042F 16r0420 16r0421 16r0422 16r0423 16r0416 16r0412 - 16r042C 16r042B 16r0417 16r0428 16r042D 16r0429 16r0427 16r042A - ) at: (value - 128 + 1)). - ! Item was added: + KOI8TextConverter subclass: #KOI8RUTextConverter + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Multilingual-TextConversion'! Item was added: + ----- Method: KOI8RUTextConverter class>>encodingNames (in category 'utilities') ----- + encodingNames + + ^ #('koi8-ru') copy + ! Item was added: + ----- Method: KOI8RUTextConverter class>>initializeDecodeTable (in category 'class initialization') ----- + initializeDecodeTable + + super initializeDecodeTable. + decodeTable := self createTableFrom: ((decodeTable copyFrom: 1 to: 128) , #( + 16r2500 16r2502 16r250C 16r2510 16r2514 16r2518 16r251C 16r2524 + 16r252C 16r2534 16r253C 16r2580 16r2584 16r2588 16r258C 16r2590 + 16r2591 16r2592 16r2593 16r201C 16r25A0 16r2219 16r201D 16r2014 + 16r2116 16r2122 16r00A0 16r00BB 16r00AE 16r00AB 16r00B7 16r00A4 + 16r2550 16r2551 16r2552 16r0451 16r0454 16r2554 16r0456 16r0457 + 16r2557 16r2558 16r2559 16r255A 16r255B 16r0491 16r045E 16r255E + 16r255F 16r2560 16r2561 16r0401 16r0404 16r2563 16r0406 16r0407 + 16r2566 16r2567 16r2568 16r2569 16r256A 16r0490 16r040E 16r00A9), + (decodeTable copyFrom: 16rC0 + 1 to: 16rFE + 1), + #(16r042A)). + self setCurrencySignToDollar.! Item was added: + ByteTextConverter subclass: #KOI8TextConverter + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Multilingual-TextConversion'! Item was added: + ----- Method: KOI8TextConverter class>>encodingNames (in category 'utilities') ----- + encodingNames + + ^ #('koi-8') copy! Item was added: + ----- Method: KOI8TextConverter class>>initializeDecodeTable (in category 'class initialization') ----- + initializeDecodeTable + + decodeTable := (0 to: 255) asArray. + decodeTable := self createTableFrom: ((decodeTable copyFrom: 1 to: 128) , #( + -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 + -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 + -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 + -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 + -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 + -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 + -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 + -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 -16r001 + 16r044E 16r0430 16r0431 16r0446 16r0434 16r0435 16r0444 16r0433 + 16r0445 16r0438 16r0439 16r043A 16r043B 16r043C 16r043D 16r043E + 16r043F 16r044F 16r0440 16r0441 16r0442 16r0443 16r0436 16r0432 + 16r044C 16r044B 16r0437 16r0448 16r044D 16r0449 16r0447 16r044A + 16r042E 16r0410 16r0411 16r0426 16r0414 16r0415 16r0424 16r0413 + 16r0425 16r0418 16r0419 16r041A 16r041B 16r041C 16r041D 16r041E + 16r041F 16r042F 16r0420 16r0421 16r0422 16r0423 16r0416 16r0412 + 16r042C 16r042B 16r0417 16r0428 16r042D 16r0429 16r0427 -16r001)). + + self setCurrencySignToUniversal.! Item was added: + ----- Method: KOI8TextConverter class>>setCurrencySignToDollar (in category 'class initialization') ----- + setCurrencySignToDollar + + decodeTable at: 16r24 + 1 put: 16r24.! Item was added: + ----- Method: KOI8TextConverter class>>setCurrencySignToUniversal (in category 'class initialization') ----- + setCurrencySignToUniversal + + decodeTable at: 16r24 + 1 put: 16rA4.! Item was added: + KOI8TextConverter subclass: #KOI8UTextConverter + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Multilingual-TextConversion'! Item was added: + ----- Method: KOI8UTextConverter class>>encodingNames (in category 'utilities') ----- + encodingNames + + ^ #('koi8-u') copy + ! Item was added: + ----- Method: KOI8UTextConverter class>>initializeDecodeTable (in category 'class initialization') ----- + initializeDecodeTable + + super initializeDecodeTable. + decodeTable := self createTableFrom: ((decodeTable copyFrom: 1 to: 128) , #( + 16r2500 16r2502 16r250C 16r2510 16r2514 16r2518 16r251C 16r2524 + 16r252C 16r2534 16r253C 16r2580 16r2584 16r2588 16r258C 16r2590 + 16r2591 16r2592 16r2593 16r2320 16r25A0 16r2219 16r221A 16r2248 + 16r2264 16r2265 16r00A0 16r2321 16r00B0 16r00B2 16r00B7 16r00F7 + 16r2550 16r2551 16r2552 16r0451 16r0454 16r2554 16r0456 16r0457 + 16r2557 16r2558 16r2559 16r255A 16r255B 16r0491 16r255D 16r255E + 16r255F 16r2560 16r2561 16r0401 16r0404 16r2563 16r0406 16r0407 + 16r2566 16r2567 16r2568 16r2569 16r256A 16r0490 16r256C 16r00A9), + (decodeTable copyFrom: 16rC0 + 1 to: 16rFE + 1), + #(16r042A)). + self setCurrencySignToDollar.! Item was changed: + (PackageInfo named: 'Multilingual') postscript: 'KOI8TextConverter withAllSubclassesDo: [:ea | ea initializeTables].'! - (PackageInfo named: 'Multilingual') postscript: 'ShiftJISTextConverter initializeLatin1MapAndEncodings.'!

1 0

The Trunk: Morphic-mt.1929.mcz
by commits＠source.squeak.org 09 Mar '22

09 Mar '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1929.mcz ==================== Summary ==================== Name: Morphic-mt.1929 Author: mt Time: 9 March 2022, 9:16:45.47146 am UUID: 8e8fb7b8-28a2-ac44-b147-92e037eb4742 Ancestors: Morphic-mt.1928 Complements Graphics-mt.494. =============== Diff against Morphic-mt.1928 =============== Item was changed: ----- Method: GrafPort>>installTTCFont: (in category 'private') ----- installTTCFont: aTTCFont + aTTCFont foregroundColor: (lastFontForegroundColor ifNil: [Color black]). + + ^ self installTTCFont: aTTCFont foregroundColor: aTTCFont foregroundColor backgroundColor: (lastFontBackgroundColor ifNil: [Color transparent]). - ^ self installTTCFont: aTTCFont foregroundColor: (lastFontForegroundColor ifNil: [Color black]) backgroundColor: (lastFontBackgroundColor ifNil: [Color transparent]). !

1 0

The Trunk: TrueType-mt.86.mcz
by commits＠source.squeak.org 09 Mar '22

09 Mar '22

Marcel Taeumel uploaded a new version of TrueType to project The Trunk: http://source.squeak.org/trunk/TrueType-mt.86.mcz ==================== Summary ==================== Name: TrueType-mt.86 Author: mt Time: 9 March 2022, 9:15:34.52246 am UUID: f92f4d82-8235-3f4c-aa15-b2456dc2c14a Ancestors: TrueType-mt.85 Complements Graphics-mt.494 =============== Diff against TrueType-mt.85 =============== Item was added: + ----- Method: TTCFont>>displayString:on:from:to:at:kern:from:baselineY: (in category 'displaying') ----- + displayString: aString on: aBitBlt from: startIndex to: stopIndex at: aPoint kern: kernDelta from: fromFont baselineY: baselineY + "I am used as a fallback for fromFont, which is most likely a StrikeFont." + + aBitBlt installTTCFont: self. + ^ self displayString: aString on: aBitBlt from: startIndex to: stopIndex at: aPoint kern: kernDelta baselineY: baselineY! Item was changed: ----- Method: TTCFont>>formOf: (in category 'character shapes') ----- formOf: char | code form | + cache ifNil: [self foregroundColor: Color black]. "make sure we have a cache" - char charCode > self maxAscii - ifTrue: [^ self fallbackFont formOf: char]. - cache ifNil:[self foregroundColor: Color black]. "make sure we have a cache" - code := char charCode. form := cache at: (code + 1). + + form ifNil: [ - "form class == Association ifTrue:[^self computeForm: code]. ""in midst of loading" - form ifNil:[ form := self computeForm: code. form ifNil:[^nil]. cache at: code+1 put: form. GlyphCacheData at: (GlyphCacheIndex := GlyphCacheIndex \\ GlyphCacheSize + 1) put: form. ]. ^form ! Item was changed: ----- Method: TTCFont>>glyphInfoOf:into: (in category 'displaying') ----- glyphInfoOf: aCharacter into: glyphInfoArray "return the glyph info for aCharacter; if I don't have such a character, try my fallback font" | form | (self hasGlyphOf: aCharacter) ifFalse: [ + ^ self fallbackFont + foregroundColor: self foregroundColor; + glyphInfoOf: aCharacter into: glyphInfoArray]. + - ^ self fallbackFont glyphInfoOf: aCharacter into: glyphInfoArray. - ]. form := self formOf: aCharacter. glyphInfoArray at: 1 put: form; at: 2 put: 0; "hereX -- relative, unlike StrikeFont" at: 3 put: form advanceWidth; "nextX -- relative, unlike StrikeFont" at: 4 put: self ascent "(self ascentOf: aCharacter)"; at: 5 put: self. ^ glyphInfoArray. !

1 0

The Trunk: Graphics-mt.494.mcz
by commits＠source.squeak.org 09 Mar '22

09 Mar '22

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.494.mcz ==================== Summary ==================== Name: Graphics-mt.494 Author: mt Time: 9 March 2022, 9:14:55.14746 am UUID: 2d79f751-96ed-6c4f-9a7c-6f61717bd265 Ancestors: Graphics-mt.493 Fixes color in glyphs when font is used as a fallback font. =============== Diff against Graphics-mt.493 =============== Item was added: + ----- Method: AbstractFont>>displayString:on:from:to:at:kern:from:baselineY: (in category 'displaying') ----- + displayString: aString on: aBitBlt from: startIndex to: stopIndex at: aPoint kern: kernDelta from: fromFont baselineY: baselineY + "I am used as a fallback for fromFont. I should install myself on aBitBlt. The default implementation does not do that but directly uses my usual displaying method." + + self flag: #subclassResponsibility. "mt: Something like #installStrikeFont: or #installTTCFont:." + ^ self displayString: aString on: aBitBlt from: startIndex to: stopIndex at: aPoint kern: kernDelta baselineY: baselineY! Item was added: + ----- Method: AbstractFont>>foregroundColor (in category 'displaying') ----- + foregroundColor + + ^ Color black! Item was added: + ----- Method: AbstractFont>>foregroundColor: (in category 'displaying') ----- + foregroundColor: fgColor + "Install the given foreground color. This does nothing for other than TrueType fonts. In StrikeFonts, color installation is bound to BitBlt."! Item was added: + ----- Method: BitBlt>>installStrikeFont: (in category 'private') ----- + installStrikeFont: aStrikeFont + + ^ self installStrikeFont: aStrikeFont foregroundColor: Color black backgroundColor: Color transparent! Item was added: + ----- Method: BitBlt>>installTTCFont: (in category 'private') ----- + installTTCFont: aTTCFont + + ^ self installTTCFont: aTTCFont foregroundColor: Color black backgroundColor: Color transparent! Item was added: + ----- Method: FixedFaceFont>>foregroundColor (in category 'displaying') ----- + foregroundColor + + ^ baseFont foregroundColor! Item was added: + ----- Method: FixedFaceFont>>foregroundColor: (in category 'displaying') ----- + foregroundColor: fgColor + + baseFont foregroundColor: fgColor.! Item was added: + ----- Method: StrikeFont>>displayString:on:from:to:at:kern:from:baselineY: (in category 'displaying') ----- + displayString: aString on: aBitBlt from: startIndex to: stopIndex at: aPoint kern: kernDelta from: fromFont baselineY: baselineY + "I am used as a fallback for fromFont, which is most likely a StrikeFont." + + aBitBlt installStrikeFont: self. + ^ self displayString: aString on: aBitBlt from: startIndex to: stopIndex at: aPoint kern: kernDelta baselineY: baselineY!

1 0

Sign-bit bug in character literals > 16r7FFF ... related to SistaV1?
by Marcel Taeumel 09 Mar '22

09 Mar '22

Hi Eliot, hi all -- I think we have an sign-bit bug for character literals with code points > 16r7FFF. Steps to reproduce: 1. Print it: "Character value: 16r8000" 2. Inspect the result by evaluating the character literal or send #asInteger to it. It will most likely not render in a standard Squeak and show up like "$? asInteger". In a 32-bit VM, I will get the (positive) integer value 16r3FFF8000. In a 64-bit VM, I will get the (negative) integer value '-16r8000'. Somehow, starting at bit 0, the bits 16 to 29 flip from 0 to 1. In 64-bit, this means a negative number. Not sure about bits 30 and 31 here. Is there a bug in the upper tag bits of immediate characters? Is this related to the 2-byte or 3-byte byte codes in SistaV1? Works fine up to 16r7FFF. (This is unrelated to #leadingChar. Mine was 0 in this experiment.) VM: 202112201228 (VMMaker.oscog-eem.3116) Best, Marcel

3 4

Re: [squeak-dev] [Vm-dev] Sign-bit bug in character literals > 16r7FFF ... related to SistaV1?
by Marcel Taeumel 09 Mar '22

09 Mar '22

Hi Nicolas -- There is a bug in the EncoderForSistaV1. The behavior is okay for EncoderForV3PlusClosures. We can discuss this on squeak-dev now, I suppose. CompiledCode preferredBytecodeSetEncoderClass: EncoderForSistaV1. CompiledCode preferredBytecodeSetEncoderClass: EncoderForV3PlusClosures. If you do send #halt instead of #asInteger, you get another interesting debugger when trying to start debugging: Best, Marcel Am 09.03.2022 08:34:11 schrieb Nicolas Cellier <nicolas.cellier.aka.nice(a)gmail.com>: Ah OK, I see it on macos too It remains to determine which operation exactly is involved... The TextMorph holding the printed result is correct - a WideString, whose last Character is (Character value: 32768). Le mer. 9 mars 2022 à 08:08, Marcel Taeumel a écrit : > > Hi Dave, hi Nicolas -- > > I am working in Windows 10. > > > I cannot reproduce on Linux 64 bit either: > > (Character value: 16r8000) asInteger hex ==> '16r8000' > > That's not how you would reproduce it. The bug affects character literals, > not character objects/instances. You have to evaluate code on that > character literal. > > Maybe this picture helps: > > > > Best, > Marcel > > Am 08.03.2022 18:56:09 schrieb David T. Lewis : > > I cannot reproduce on Linux 64 bit either: > > (Character value: 16r8000) asInteger hex ==> '16r8000' > > Dave > > > On Tue, Mar 08, 2022 at 06:45:23PM +0100, Nicolas Cellier wrote: > > > > Hi Marcel, > > which OS ? > > I cannot reproduce on macos 64, > > > > Cog[Spur] VM [CoInterpreterPrimitives VMMaker.oscog-eem.3172] > > 5.20211023.2003 > > Mac OS X built on Mar 6 2022 15:31:16 CET Compiler: 4.2.1 Compatible > Apple > > LLVM 10.0.1 (clang-1001.0.46.4) > > platform sources revision VM: 202110232003 > > > > Le mar. 8 mars 2022 ?? 17:57, Marcel Taeumel a > > ??crit : > > > > > > > > Hi Eliot, hi all -- > > > > > > I think we have an sign-bit bug for character literals with code > points > > > > 16r7FFF. > > > > > > Steps to reproduce: > > > > > > 1. Print it: "Character value: 16r8000" > > > 2. Inspect the result by evaluating the character literal or send > > > #asInteger to it. It will most likely not render in a standard Squeak > and > > > show up like "$? asInteger". > > > > > > In a 32-bit VM, I will get the (positive) integer value 16r3FFF8000. > > > In a 64-bit VM, I will get the (negative) integer value '-16r8000'. > > > > > > Somehow, starting at bit 0, the bits 16 to 29 flip from 0 to 1. In > 64-bit, > > > this means a negative number. Not sure about bits 30 and 31 here. > > > > > > Is there a bug in the upper tag bits of immediate characters? > > > Is this related to the 2-byte or 3-byte byte codes in SistaV1? > > > > > > Works fine up to 16r7FFF. (This is unrelated to #leadingChar. Mine was > 0 > > > in this experiment.) > > > > > > VM: 202112201228 (VMMaker.oscog-eem.3116) > > > > > > Best, > > > Marcel > > > > > Ah OK, I see it on macos too It remains to determine which operation exactly is involved... The TextMorph holding the printed result is correct - a WideString, whose last Character is (Character value: 32768). Le mer. 9 mars 2022 à 08:08, Marcel Taeumel <marcel.taeumel(a)hpi.de [mailto:marcel.taeumel@hpi.de]> a écrit : Hi Dave, hi Nicolas -- I am working in Windows 10. > I cannot reproduce on Linux 64 bit either: > (Character value: 16r8000) asInteger hex ==> '16r8000' That's not how you would reproduce it. The bug affects character literals, not character objects/instances. You have to evaluate code on that character literal. Maybe this picture helps: Best, Marcel Am 08.03.2022 18:56:09 schrieb David T. Lewis <lewis(a)mail.msen.com [mailto:lewis@mail.msen.com]>: I cannot reproduce on Linux 64 bit either: (Character value: 16r8000) asInteger hex ==> '16r8000' Dave On Tue, Mar 08, 2022 at 06:45:23PM +0100, Nicolas Cellier wrote: > > Hi Marcel, > which OS ? > I cannot reproduce on macos 64, > > Cog[Spur] VM [CoInterpreterPrimitives VMMaker.oscog-eem.3172] > 5.20211023.2003 > Mac OS X built on Mar 6 2022 15:31:16 CET Compiler: 4.2.1 Compatible Apple > LLVM 10.0.1 (clang-1001.0.46.4) > platform sources revision VM: 202110232003 > > Le mar. 8 mars 2022 ?? 17:57, Marcel Taeumel a > ??crit : > > > > > Hi Eliot, hi all -- > > > > I think we have an sign-bit bug for character literals with code points > > > 16r7FFF. > > > > Steps to reproduce: > > > > 1. Print it: "Character value: 16r8000" > > 2. Inspect the result by evaluating the character literal or send > > #asInteger to it. It will most likely not render in a standard Squeak and > > show up like "$? asInteger". > > > > In a 32-bit VM, I will get the (positive) integer value 16r3FFF8000. > > In a 64-bit VM, I will get the (negative) integer value '-16r8000'. > > > > Somehow, starting at bit 0, the bits 16 to 29 flip from 0 to 1. In 64-bit, > > this means a negative number. Not sure about bits 30 and 31 here. > > > > Is there a bug in the upper tag bits of immediate characters? > > Is this related to the 2-byte or 3-byte byte codes in SistaV1? > > > > Works fine up to 16r7FFF. (This is unrelated to #leadingChar. Mine was 0 > > in this experiment.) > > > > VM: 202112201228 (VMMaker.oscog-eem.3116) > > > > Best, > > Marcel > >

1 0

← Newer
1
...
23
24
25
26
27
28
29
30
31
Older →

Jump to page: