[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