Path: csiph.com!aioe.org!.POSTED!not-for-mail From: Rod Pemberton Newsgroups: comp.lang.forth Subject: Re: Stack Operator Symbols Date: Thu, 3 Nov 2016 16:55:20 -0400 Organization: Aioe.org NNTP Server Lines: 20 Message-ID: <20161103165520.4e9c04cf@_> References: <2016Oct31.100240@mips.complang.tuwien.ac.at> <2016Nov3.163327@mips.complang.tuwien.ac.at> NNTP-Posting-Host: n4wpt9zq8xR26Ttf9mo2BA.user.gioia.aioe.org Mime-Version: 1.0 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit X-Complaints-To: abuse@aioe.org X-Newsreader: Claws Mail 3.13.1 (GTK+ 2.24.13; x86_64-unknown-linux-gnu) X-Notice: Filtered by postfilter v. 0.8.2 Xref: csiph.com comp.lang.forth:52418 On Thu, 03 Nov 2016 15:33:27 GMT anton@mips.complang.tuwien.ac.at (Anton Ertl) wrote: > Cycles (on a Core i7-6700K) with "gforth-fast --no-dynamic > --ss-number=0" (i.e., direct-threaded code) for the tak benchmark: > > 2077960654 : 3dup ( a b c -- a b c a b c ) >r 2dup r@ -rot r> ; > 1944817489 : 3dup dup 2over rot ; > 2137982996 : 3dup 2 pick 2 pick 2 pick ; > 2376062674 : 3dup { a b c } a b c a b c ; I found the tak benchmark, but how do I get gforth to give me the cycles? I'm interested in seeing how these two compare to those: : 3DUP DUP >R SWAP DUP >R SWAP >R >R DUP R> SWAP R> SWAP R> R> ; : 3DUP OVER >R >R OVER R> SWAP OVER R> SWAP ; Rod Pemberton