view run/line_token_03.d @ 1584:75358a6522ce

[Issue 1829] New: Inline assembler cannot get label addresses <burton-radons@shaw.ca> 2007-02-12 http://d.puremagic.com/issues/show_bug.cgi?id=1829
author thomask
date Fri, 22 Feb 2008 07:55:41 +0000
parents 36bedfa079e6
children
line wrap: on
line source

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

// __DSTRESS_TORTURE_BLOCK__ -release

module dstress.run.line_token_03;

int main(){
	try{
		#line 0 ""
		assert(0);
	}catch(Object o){
		checkFileSpec(o);
		return 0;
	}

	assert(0);
}

/*
 * @WARNING@: this code depends on the phobos implementation.
 * char[]s returned by wrong assertions have to look like:
 *       "blah blah "filename" blah blah"
 */
void checkFileSpec(Object o){
	string x=o.toString();

	int start;
	for(start=0; start<x.length; start++){
		if(x[start]=='('){
			break;
		}
	}

	assert(x[start-1 .. start+3]==" (0)");
}