Re: [9fans] acid question

[cinap_lenrek@gmx.de]

[-- Attachment #1: Type: text/plain, Size: 134 bytes --]

defn call(addr)
{
	local opc;

	opc = *PC;
	bpset(*PC);
	*SP = *SP - 4;
	**SP = *PC;
	*PC = addr;
	cont();
	bpdel(*PC);
}

[-- Attachment #2: Type: message/rfc822, Size: 3537 bytes --]

From: Philippe Anel <xigh@bouyapop.org>
To: 9fans@9fans.net
Subject: Re: [9fans] acid question
Date: Sat, 17 Jul 2010 17:56:22 +0200
Message-ID: <4C41D2A6.7080402@bouyapop.org>



This one sounds like to work (except it does not save registers) ...

defn call(addr)
{
	local pco;

	// we need stack space, and thus process stopped.
	if status(pid) != "Stopped" then {
		print("Waiting...\n");
		stop(pid);
	}

	// Backup orginal instruction
	pco = fmt(*PC, bpfmt);

	// Put a temporary breakpoint
	**PC = bpinst;

	// update stack pointer
	*SP = *SP - 4;

	// make called function returning to this point
	**SP = *PC;

	// set PC to function to call
	*PC = addr;

	// do the call
	startstop(pid);

	// restore original instruction
	*PC = pco;
}

Phil;