[FIX] Named primitive stepping
Bert Freudenberg
bert at isgnw.CS.Uni-Magdeburg.De
Mon Sep 27 08:22:32 UTC 1999
Fixes a walkback when simulating the new compiled primitive stuff, and a
typo in one example.
/bert
Content-Type: TEXT/PLAIN; charset=US-ASCII; name="CcgStepFix-bf.27Sep854am.cs"
Content-ID: <Pine.LNX.3.96.990927102232.31728O at balloon.cs.uni-magdeburg.de>
Content-Description:
'From Squeak 2.6alpha of August 6, 1999 on 27 September 1999 at 8:54:14 am'!
"Change Set: CcgStepFix-bf
Date: 27 September 1999
Author: Bert Freudenberg
Fixes a walkback when simulating the new compiled primitive stuff, and a typo in one example"!
!FlippyArrayPlugin2 methodsFor: 'as yet unclassified' stamp: 'bf 9/24/1999 14:39'!
primReverse
| rcvr t a b |
rcvr _ self
primitive: 'primReverse'
parameters: #()
receiver: #Array.
a _ 0. b _ rcvr size - 1.
[a < b] whileTrue:
[t _ rcvr at: a.
rcvr at: a put: (rcvr at: b).
rcvr at: b put: t.
a _ a + 1. b _ b - 1].
^rcvr asOop: Array! !
!TestCodeGenerator methodsFor: 'C linkage new' stamp: 'bf 9/24/1999 14:53'!
ccgValBlock: valString
^[:index | String streamContents:
[:aStream | aStream
nextPutAll: 'interpreterProxy success: (interpreterProxy ';
nextPutAll: valString;
nextPutAll: ': (interpreterProxy stackValue: ';
nextPutAll: index asString;
nextPutAll: '))']] fixTemps! !
More information about the Squeak-dev
mailing list
|