view run/d/delegate_17_A.d @ 1630:d0efa3ae5522 default tip

run/mini/naked_asm5: New x86_64 ABI passes the arguments in reverse order.
author David Nadlinger <code@klickverbot.at>
date Sat, 23 Apr 2011 22:57:32 +0200
parents 81222734adf3
children
line wrap: on
line source

// $HeadURL$
// $Date$
// $Author$

// @author@	<sky@quit-clan.de>
// @date@	2006-05-24
// @uri@	http://d.puremagic.com/issues/show_bug.cgi?id=155

module dstress.run.d.delegate_17_A;

int status;

class Foo{
	class Bar{
		int delegate() getDelegate(){
			return &sayHello;
		}
	}
	Bar bar;

	int sayHello(){
		return ++status;
	}

	this(){
		bar = new Bar();
	}
}

int main(){
	Foo foo = new Foo();
	int delegate() hallo;

	hallo = foo.bar.getDelegate();

	if(!hallo){
		assert(0);
	}
	if(status != 0){
		assert(0);
	}
	if(hallo() != 1){
		assert(0);
	}
	if(status != 1){
		assert(0);
	}

	return 0;
}