Class new title: ParsedRemote
	subclassof: Object
	fields: 'expr esize toRemoteCopy'
	declare: '';
	sharing: ByteCodes

emitForValue: t1 on: t2 
	[toLoadThisCtxt emitForValue: t1 on: t2.
	toRemoteCopy emitBytes: t1.
	t1 emitLong: toLongJmp by: esize.
	expr emitForValue: t1 on: t2.
	t1 next_ toEnd.
	t2 pop: 1.
	0 - esize emitJmp: t1 on: t2]

expr: t1 
	[expr _ t1]

findMacros: t1 compilerTemps: t2 
	[expr findMacros: t1 compilerTemps: t2]

local [expr]

printon: t1 
	[t1 append: ''.
	t1 print: expr]

printon: t1 indent: t2 precedence: t3 forValue: t4 decompiler: t5 
	[[(expr is: ParsedBlock) and (expr position > 1 or (expr  1 is: ParsedConditional))  [t1 crtab: t2 + 1]].
	expr printon: t1 indent: t2 + 1 precedence: t3 forValue: true decompiler: t5]

remote: t1 
	[toRemoteCopy _ t1 encodeSel: remoteCopy]

sizeForValue 
	[esize _ expr sizeForValue + 3.
	esize + toRemoteCopy sizeForValue + 3]