The Trunk: Kernel-eem.1195.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
2 messages Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: Kernel-eem.1195.mcz

commits-2
Eliot Miranda uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-eem.1195.mcz

==================== Summary ====================

Name: Kernel-eem.1195
Author: eem
Time: 11 November 2018, 7:06:29.274108 pm
UUID: 4269620a-8eb7-4581-a65a-33bf2ea1aa10
Ancestors: Kernel-eem.1194

Eliminate a confusing shadowing in Context>>send:super:numArgs:

=============== Diff against Kernel-eem.1194 ===============

Item was changed:
  ----- Method: Context>>send:super:numArgs: (in category 'instruction decoding') -----
  send: selector super: superFlag numArgs: numArgs
  "Simulate the action of bytecodes that send a message with selector,
+ selector. The argument, superFlag, tells whether the receiver of the
+ message was specified with 'super' in the source method. The arguments
+ of the message are found in the top numArgs locations on the stack and
+ the receiver just below them."
- selector. The argument, superFlag, tells whether the receiver of the
- message was specified with 'super' in the source method. The arguments
- of the message are found in the top numArgs locations on the stack and
- the receiver just below them."
 
+ | thisReceiver arguments lookupClass |
- | receiver arguments lookupClass |
  arguments := Array new: numArgs.
  numArgs to: 1 by: -1 do: [ :i | arguments at: i put: self pop].
+ thisReceiver := self pop.
- receiver := self pop.
  lookupClass := superFlag
  ifTrue: [method methodClassAssociation value superclass]
+ ifFalse: [self objectClass: thisReceiver].
- ifFalse: [self objectClass: receiver].
  QuickStep == self ifTrue:
  [QuickStep := nil.
+ ^self quickSend: selector to: thisReceiver with: arguments lookupIn: lookupClass].
+ ^self send: selector to: thisReceiver with: arguments lookupIn: lookupClass!
- ^self quickSend: selector to: receiver with: arguments lookupIn: lookupClass].
- ^self send: selector to: receiver with: arguments lookupIn: lookupClass!


Reply | Threaded
Open this post in threaded view
|

Re: The Trunk: Kernel-eem.1195.mcz

Tobias Pape
Hi all

> On 12.11.2018, at 04:07, [hidden email] wrote:
>
> Eliot Miranda uploaded a new version of Kernel to project The Trunk:
> http://source.squeak.org/trunk/Kernel-eem.1195.mcz
>
> ==================== Summary ====================
>
> Name: Kernel-eem.1195
> Author: eem
> Time: 11 November 2018, 7:06:29.274108 pm
> UUID: 4269620a-8eb7-4581-a65a-33bf2ea1aa10
> Ancestors: Kernel-eem.1194
>
> Eliminate a confusing shadowing in Context>>send:super:numArgs:
>
> =============== Diff against Kernel-eem.1194 ===============
>
> Item was changed:
>  ----- Method: Context>>send:super:numArgs: (in category 'instruction decoding') -----
>  send: selector super: superFlag numArgs: numArgs
>   "Simulate the action of bytecodes that send a message with selector,
> + selector. The argument, superFlag, tells whether the receiver of the
> + message was specified with 'super' in the source method. The arguments
> + of the message are found in the top numArgs locations on the stack and
> + the receiver just below them."
> - selector. The argument, superFlag, tells whether the receiver of the
> - message was specified with 'super' in the source method. The arguments
> - of the message are found in the top numArgs locations on the stack and
> - the receiver just below them."


Meta comment, nothing to do with he content here.
I would suggest we avoid mixing tabs and spaces for indentation.
That being said, I like the alignment there.
I think we actually should have electric tabstops…

http://nickgravgaard.com/elastic-tabstops/

best regards
        -Tobias

>
> + | thisReceiver arguments lookupClass |
> - | receiver arguments lookupClass |
>   arguments := Array new: numArgs.
>   numArgs to: 1 by: -1 do: [ :i | arguments at: i put: self pop].
> + thisReceiver := self pop.
> - receiver := self pop.
>   lookupClass := superFlag
>   ifTrue: [method methodClassAssociation value superclass]
> + ifFalse: [self objectClass: thisReceiver].
> - ifFalse: [self objectClass: receiver].
>   QuickStep == self ifTrue:
>   [QuickStep := nil.
> + ^self quickSend: selector to: thisReceiver with: arguments lookupIn: lookupClass].
> + ^self send: selector to: thisReceiver with: arguments lookupIn: lookupClass!
> - ^self quickSend: selector to: receiver with: arguments lookupIn: lookupClass].
> - ^self send: selector to: receiver with: arguments lookupIn: lookupClass!
>
>