Skip to content

Commit

Permalink
update generated code
Browse files Browse the repository at this point in the history
  • Loading branch information
chisandrei committed Oct 31, 2024
1 parent 7397477 commit d73afe4
Showing 1 changed file with 4 additions and 2 deletions.
6 changes: 4 additions & 2 deletions src-gs/gtoolkit-remote.gs
Original file line number Diff line number Diff line change
Expand Up @@ -14769,15 +14769,17 @@ gtRawFor: aView
category: '*GToolkit-RemotePhlow-GemStone'
method: Object
gtRemoteVariableValuePairsWithSelfIf: aBoolean
| instVarNames bindings indexedVarsSize |
| instVarNames bindings instanceVariables indexedVarsSize |
instVarNames := self class allInstVarNames.
indexedVarsSize := self basicSize - instVarNames size.
bindings := OrderedCollection new: instVarNames size + 1.
instanceVariables := OrderedCollection new: instVarNames size + 1.

aBoolean ifTrue: [ bindings add: 'self' -> self ].

instVarNames doWithIndex: [ :each :index |
bindings add: (each -> (self instVarAt: index))].
instanceVariables add: (each -> (self instVarAt: index))].
bindings addAll: (instanceVariables sort: [ :a :b | a key < b key ]).

1 to: (indexedVarsSize min: 21) do: [ :index |
bindings add: (index asString -> (self _at: index)) ].
Expand Down

0 comments on commit d73afe4

Please sign in to comment.