Class new title: ParsedForLoop
	subclassof: Object
	fields: 'var source start stop step doExpr nStatements'
	declare: '';
	sharing: ByteCodes

block: t1 loc: t2 decompiler: t3 | t4 t5 t6 t7 
	[t4 _ t1  t2.
	t1  (t2 + 1) is: ParsedLoop 
		[nStatements _ 2.
		t6 _ t1  (t2 + 1).
		var _ t6 whileExpr  2.
		doExpr _ t6 doExpr.
		t7 _ t4 expr rcvr.
		(t7 is: ParsedMessage) and (t3 selector: t7 op)  to:by: 
			[start _ t7 rcvr.
			stop _ t7 args  1.
			step _ t7 args  2]
		source _ t7]
	nStatements _ 3.
	t5 _ t1  (t2 + 1).
	t6 _ t1  (t2 + 2).
	var _ t5 var.
	start _ [t5 expr  toLoad0  [toLoad1]
			t5 expr rcvr].
	stop _ t4 expr.
	step _ toLoad1.
	doExpr _ t6 doExpr]

nStatements [nStatements]

printon: t1 indent: t2 precedence: t3 forValue: t4 decompiler: t5 
	[source  nil 
		[t1 append: 'for '.
		var printon: t1 indent: t2 precedence: 2 forValue: true decompiler: t5.
		[start  toLoad1  []
		t1 append: ' from: '.
		start printon: t1 indent: t2 precedence: 2 forValue: true decompiler: t5].
		t1 append: ' to: '.
		stop printon: t1 indent: t2 precedence: 2 forValue: true decompiler: t5.
		[step  toLoad1  []
		t1 append: ' by: '.
		step printon: t1 indent: t2 precedence: 2 forValue: true decompiler: t5].
		t1 append: ' do'.
		t1 crtab: t2 + 1.
		doExpr printon: t1 indent: t2 + 1 precedence: 0 forValue: false decompiler: t5]
	t1 append: 'for '.
	var printon: t1 indent: t2 precedence: 2 forValue: true decompiler: t5.
	t1 append: ' from: '.
	source printon: t1 indent: t2 precedence: 2 forValue: true decompiler: t5.
	t1 append: ' do'.
	t1 crtab: t2 + 1.
	doExpr printon: t1 indent: t2 + 1 precedence: 0 forValue: false decompiler: t5]