Mercurial > projects > dstress
changeset 387:b1bb3423e2c3
contains a circular reference
author | thomask |
---|---|
date | Wed, 06 Apr 2005 07:42:30 +0000 |
parents | d856607ea5cd |
children | ba4a13eb7774 |
files | nocompile/debug_info_01.d nocompile/debug_info_02.d run/debug_info_01.d run/debug_info_02.d |
diffstat | 4 files changed, 59 insertions(+), 56 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/nocompile/debug_info_01.d Wed Apr 06 07:42:30 2005 +0000 @@ -0,0 +1,29 @@ +// $HeadURL$ +// $Date$ +// $Author$ + +// @author@ Regan Heath <regan@netwin.co.nz> +// @date@ 2005-03-25 +// @uri@ news:opsn61vgpg23k2f5@nrage.netwin.co.nz + +// __DSTRESS_ELINE__ 13 + +module dstress.nocompile.debug_info_01; + +typedef fn function() fn; + +byte status; + +fn foo() { + status++; + return &foo; +} + +int main(){ + assert(status==0); + fn p = foo(); + assert(status==1); + p(); + assert(status==2); + return 0; +}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/nocompile/debug_info_02.d Wed Apr 06 07:42:30 2005 +0000 @@ -0,0 +1,30 @@ +// $HeadURL$ +// $Date$ +// $Author$ + +// @author@ Regan Heath <regan@netwin.co.nz> +// @date@ 2005-03-25 +// @uri@ news:opsn61vgpg23k2f5@nrage.netwin.co.nz + +// __DSTRESS_DFLAGS__ -g +// __DSTRESS_ELINE__ 14 + +module dstress.nocompile.debug_info_02; + +typedef fn function() fn; + +byte status; + +fn foo() { + status++; + return &foo; +} + +int main(){ + assert(status==0); + fn p = foo(); + assert(status==1); + p(); + assert(status==2); + return 0; +}
--- a/run/debug_info_01.d Wed Apr 06 07:21:34 2005 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,27 +0,0 @@ -// $HeadURL$ -// $Date$ -// $Author$ - -// @author@ Regan Heath <regan@netwin.co.nz> -// @date@ 2005-03-25 -// @uri@ news:opsn61vgpg23k2f5@nrage.netwin.co.nz - -module dstress.run.debug_info_01; - -typedef fn function() fn; - -byte status; - -fn foo() { - status++; - return &foo; -} - -int main(){ - assert(status==0); - fn p = foo(); - assert(status==1); - p(); - assert(status==2); - return 0; -} \ No newline at end of file
--- a/run/debug_info_02.d Wed Apr 06 07:21:34 2005 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,29 +0,0 @@ -// $HeadURL$ -// $Date$ -// $Author$ - -// @author@ Regan Heath <regan@netwin.co.nz> -// @date@ 2005-03-25 -// @uri@ news:opsn61vgpg23k2f5@nrage.netwin.co.nz - -// __DSTRESS_DFLAGS__ -g - -module dstress.run.debug_info_02; - -typedef fn function() fn; - -byte status; - -fn foo() { - status++; - return &foo; -} - -int main(){ - assert(status==0); - fn p = foo(); - assert(status==1); - p(); - assert(status==2); - return 0; -} \ No newline at end of file