Why doesn't this work (ie. produce output)?
#! perl -slw use strict; use Inline C => Config => BUILD_NOISY => 1; use Inline C => <<'END_C', NAME => 'rand64fast', CLEAN_AFTER_BUILD => + 0; void rnd( int n ) { dSP; static __int64 y = 2463534242; EXTEND( SP, n ); while( --n ) { y ^= y << 13; y ^= y >> 17; y ^= y << 5; mPUSHi( (IV)y ); } return; } END_C print for rnd( 100 );
In reply to XS: EXTEND/mPUSHi by BrowserUk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |