Class new title: ParsedDisjunct
	subclassof: Object
	fields: 'left right rightSize'
	declare: '';
	sharing: ByteCodes

emitForEffect: t1 on: t2 
	[left emitForValue: t1 on: t2.
	rightSize jmpSize emitBfp: t1 on: t2.
	rightSize emitJmp: t1 on: t2.
	right emitForEffect: t1 on: t2]

emitForTruth: t1 falsity: t2 into: t3 on: t4 
	[left emitForTruth: rightSize + t1 falsity: 0 into: t3 on: t4.
	right emitForTruth: t1 falsity: t2 into: t3 on: t4]

emitForValue: t1 on: t2 
	[left emitForValue: t1 on: t2.
	1 + rightSize jmpSize emitBfp: t1 on: t2.
	t1 next_ toLoadTrue.
	rightSize emitJmp: t1 on: t2.
	right emitForValue: t1 on: t2]

emittedReceiver [left]

emittedReceiver_ t1 
	[left _ t1]

findMacros: t1 compilerTemps: t2 
	[left findMacros: t1 compilerTemps: t2.
	right findMacros: t1 compilerTemps: t2]

firstPush 
	[left firstPush]

left: t1 right: t2 
	[left _ t1.
	right _ t2]

printon: t1 
	[t1 append: '('.
	t1 print: left.
	t1 append: ' or '.
	t1 print: right.
	t1 append: ')']

printon: t1 indent: t2 precedence: t3 forValue: t4 decompiler: t5 
	[[t3  2  [t1 append: '(']].
	left printon: t1 indent: t2 precedence: 2 forValue: true decompiler: t5.
	t1 append: ' or '.
	right printon: t1 indent: t2 precedence: 2 forValue: t4 decompiler: t5.
	t3  2  [t1 append: ')']]

sizeForEffect: t1 
	[rightSize _ right sizeForEffect: 1.
	left sizeForValue + 1 + rightSize jmpSize + rightSize]

sizeForTruth: t1 falsity: t2 
	[rightSize _ right sizeForTruth: t1 falsity: t2.
	(left sizeForTruth: rightSize + t1 falsity: 0) + rightSize]

sizeForValue 
	[rightSize _ right sizeForValue.
	left sizeForValue + 2 + rightSize jmpSize + rightSize]