- Pharo-dev - lists.pharo.org

[Pharo-project] NativeBoost: perform 10, 000, 000 4096-digit additions fr1 := fr1 + fr1 in a loop in 1971 ms
by Lawson English July 14, 2012

July 14, 2012

embedding assembler in Pharo method using NativeBoost Hooray! L test code: fr1 := GMPfrWrapper new. "create new GNU mpfr floating point number" fr1 prim_mpfr_prec_roundWithPrecision:4096 withRounding: 0. "set to 4096 digits of precision" fr1 set_d: 1. "set it to 1.0" "perform 10,000,000 4096-digit additions fr1 := fr1 + fr1 in a loop" [fr1 test:10000000.] timeToRun =>1971 ms GMPfrWrapper>>test:cnt "function prototype: mpfr_add (mpzf_t gmpf, mpf_t op1, mpf_t op2)" <primitive: #primitiveNativeCall module: #NativeBoostPlugin> ^ NBFFICallout cdecl: #( void (mpfr_t gmpfr, ulong cnt)) emitCall: [:gen | | asm proxy smpfr scnt| asm := gen asm. proxy := gen proxy. "reserve temps for parameters passed in from Smalltalk" smpfr := gen reserveTemp. scnt := gen reserveTemp. "move parameters into temps" asm mov: asm ESP ptr to: asm EAX; mov: asm EAX to: smpfr; "gmpfr -> smpfr" mov: asm ESP ptr + 4 to: asm EAX; mov: asm EAX to: scnt. "cnt -> scnt" "setup loop compare and jmp or push ECX and pass through to function call" asm mov: scnt to: asm ECX; label: #top; cmp: asm ECX with: 0; jz: #bottom; push: asm ECX. "call function" asm cdeclCall: [:call | | gmpfrAddFcnPtr | "handles stack alignment" "push function arguments (note, cdecl push order is from right to left ) " asm push: smpfr; push: smpfr; push: smpfr. "get a function address" gmpfrAddFcnPtr := self nbGetSymbolAddress: 'mpfr_add' module:self nbLibraryNameOrHandle. "put a function address into EAX, and call function " asm mov: gmpfrAddFcnPtr asUImm to: asm EAX. asm call: asm EAX. ] alignment: gen stackAlignment . "restore ECX and jump to top for test" asm pop: asm ECX; dec: asm ECX; jmp: #top. asm label: #bottom. ] -- Squeak from the very start (introduction to Squeak and Pharo Smalltalk for the (almost) complete and compleate beginner). https://www.youtube.com/playlist?list=PL6601A198DF14788D&feature=view_all

1 1

[Pharo-project] Zinc intermittently returning nil
by Sean P. DeNigris July 13, 2012

July 13, 2012

The following all intermittently return nil. When I do the same thing in Safari, I always seem to get the correct answer (plain text). (ZnEasy get: 'https://ci.lille.inria.fr/pharo/job/Pharo-2.0/lastSuccessfulBuild/api/xml?x…') contents. (ZnClient new get: 'https://ci.lille.inria.fr/pharo/job/Pharo-2.0/lastSuccessfulBuild/api/xml?x…') contents. (ZnUrl fromString: 'https://ci.lille.inria.fr/pharo/job/Pharo-2.0/lastSuccessfulBuild/api/xml?x…') retrieveContents. Even this returns nil intermittently (maybe less frequently, not sure): client := ZnClient new. client systemPolicy; url: 'https://ci.lille.inria.fr/pharo/job/Pharo-2.0/lastSuccessfulBuild/api/xml?x…'; accept: ZnMimeType textPlain. client get contents. Sean -- View this message in context: http://forum.world.st/Zinc-intermittently-returning-nil-tp4636820.html Sent from the Pharo Smalltalk mailing list archive at Nabble.com.

3 4

[Pharo-project] start-up and shut-down lists
by Eliot Miranda July 13, 2012

July 13, 2012

Hi All, I'm profiling image startup and consequently want to pause a MessageTally during a snapshot. So I want to add MessageTally to the StartUpList immediately after Delay (the first entry in StartUpList) and to the ShutDownList immediately before Delay. But when I look at the SmalltalkImage accessor I see some confusion: SmalltalkImage>add: aClass toList: startUpOrShutDownList after: predecessor "Add the name of aClass to the startUp or shutDown list. Add it after the name of predecessor, or at the end if predecessor is nil." | name earlierName | name := aClass name. (self at: name ifAbsent: [nil]) == aClass ifFalse: [self error: name , ' cannot be found in Smalltalk dictionary.']. predecessor == nil ifTrue: ["No-op if alredy in the list." (startUpOrShutDownList includes: name) ifFalse: [startUpOrShutDownList == StartUpList ifTrue: ["Add to end of startUp list" startUpOrShutDownList addLast: name] ifFalse: ["Add to front of shutDown list" startUpOrShutDownList addFirst: name]]] ifFalse: ["Add after predecessor, moving it if already there." earlierName := predecessor name. (self at: earlierName) == predecessor ifFalse: [self error: earlierName , ' cannot be found in Smalltalk dictionary.']. (startUpOrShutDownList includes: earlierName) ifFalse: [self error: earlierName , ' cannot be found in the list.']. startUpOrShutDownList remove: name ifAbsent:[]. startUpOrShutDownList add: name after: earlierName] In the predecessor == nil arm adding to the StartUpList adds at the end and adding to the ShutDownList adds at the beginning, which makes sense, at least to me. But if predecessor is not nil then adding to either adds after. The asymmetry is troubling. I guess in the name of stability the only way to solve this is to add an explicit add:toList:before: and sugar (add:toStartUpListBefore: add:toShutDownListBefore:). So what's the rationale for the asymmetry, or is it an unintentional mistake? -- best, Eliot

2 1

[Pharo-project] can someone explain me this method?
by Camillo Bruni July 13, 2012

July 13, 2012

comments? decent variable names? no magic numbers? NOW you can find NONE of that in dayMonthYearDo! ================================================================== dayMonthYearDo: aBlock "Evaluation the block with three arguments: day month, year." | l n i j dd mm yyyy | l := jdn + 68569. n := 4 * l // 146097. l := l - (146097 * n + 3 // 4). i := 4000 * (l + 1) // 1461001. l := l - (1461 * i // 4) + 31. j := 80 * l // 2447. dd := l - (2447 * j // 80). l := j // 11. mm := j + 2 - (12 * l). yyyy := 100 * (n - 49) + i + l. ^ aBlock value: dd value: mm value: yyyy. ================================================================== so can anyone explain me the magic numbers here??

5 5

[Pharo-project] [update 2.0] #20211
by Marcus Denker July 13, 2012

July 13, 2012

20211 ----- Issue 6343: move Windows on screen should take in account the task bar http://code.google.com/p/pharo/issues/detail?id=6343 Issue 6341: ClassDescription>>#organization send #recoverFromMDFaultWithTrace http://code.google.com/p/pharo/issues/detail?id=6341 Issue 5131: Error accepting Trait method referencing undefined class http://code.google.com/p/pharo/issues/detail?id=5131 -- Marcus Denker -- http://marcusdenker.de

1 0

[Pharo-project] Monticello Merge detected conflict
by Dario Trussardi July 13, 2012

July 13, 2012

Hi, i need to intercept conflict for new package before load in a image. I work with Pharo 1.4. Now the conflict is detected only if the method in the image belongs at the same method category of the relative method in the package. For example in my Pharo image i have : CLASS CATEGORY MESSAGE ClasseA *categoriaA description testCategory test and in my loading package i have: ClasseA *categoriaA description *categoriaA test the monticello Merge detect only conflict for description method ( it have the same category ) It's correct ? How i can intercept the test method redefinition before loading the new package ? I wrong something ? Thanks for any consideration. Dario

2 2

[Pharo-project] [update 2.0] #20210
by Marcus Denker July 13, 2012

July 13, 2012

20210 ----- Issue 6360: Fix text context menu in Worspace http://code.google.com/p/pharo/issues/detail?id=6360 Issue 6359: Double entry in tool menu: "Recover lost changes..." http://code.google.com/p/pharo/issues/detail?id=6359 Issue 4423: deprecate PluggableListMorphByItem http://code.google.com/p/pharo/issues/detail?id=4423 Issue 5954: Nautilus subclass generation fails when viewing class side. http://code.google.com/p/pharo/issues/detail?id=5954 -- Marcus Denker -- http://marcusdenker.de

1 0

Re: [Pharo-project] Question on 2.0 : shortcuts for menu items
by Goubier Thierry July 13, 2012

July 13, 2012

Le 13/07/2012 15:57, Goubier Thierry a Ã©crit : > Le 13/07/2012 15:45, Benjamin a Ã©crit : >> in a workspace evaluate >> KMLog setDebug >> >> Open a Transcript, and it will tell what ctrl+r is used for :) > > It only tells you [Ctrl+r] :-( > > Just noticed that my changes to NautilusUI were not taken in account > anyway. Oh, ok, found that I have to do KMRepository reset for them to be taken into account. Thierry -- Thierry Goubier CEA list Laboratoire des Fondations des SystÃ¨mes Temps RÃ©el EmbarquÃ©s 91191 Gif sur Yvette Cedex France Phone/Fax: +33 (0) 1 69 08 32 92 / 83 95

1 0

[Pharo-project] Question on 2.0 : shortcuts for menu items
by Goubier Thierry July 13, 2012

July 13, 2012

Hi, I'm trying to add a Cmd+r command to format code in Nautilus and I'm unable to find how. Would anybody know ? I tried to modify the menus and the CmdKeyTables in SmalltalkEditor to no effect. Thanks, Thierry -- Thierry Goubier CEA list Laboratoire des Fondations des SystÃ¨mes Temps RÃ©el EmbarquÃ©s 91191 Gif sur Yvette Cedex France Phone/Fax: +33 (0) 1 69 08 32 92 / 83 95

3 7

[Pharo-project] pharo-2.0-tests Â» 32,linux - Build # 218 - Failure!
by jenkins-pharo.ci.inria.fr＠jenkins-server.lille.inria.fr July 13, 2012

July 13, 2012

1 0