Mercurial > projects > dstress
view run/foreach_10.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 | 20d8ee6523e1 |
children |
line wrap: on
line source
// $HeadURL$ // $Date$ // $Author$ module dstress.run.foreach_10; class MyArray{ double[] array; this(){ array=new double[3]; array[0]=0.0; array[1]=4.0; array[2]=8.0; } int opApply(int delegate(ref double) dg){ double result; for(int i=0; i<array.length; i++){ result = dg(array[i]); if(result){ return i; } } return array.length; } } int main(){ MyArray array=new MyArray(); double test=0.0; assert(test==0.0); foreach(double value; array){ test+=value; } assert(test==12.0); return 0; }