Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.lang.forth > #44217

Re: Stoked

Path csiph.com!eternal-september.org!feeder.eternal-september.org!aioe.org!.POSTED!not-for-mail
From "Rod Pemberton" <boo@fasdfrewar.cdm>
Newsgroups comp.lang.forth
Subject Re: Stoked
Date Sat, 12 Dec 2015 11:25:12 -0500
Organization Aioe.org NNTP Server
Lines 53
Message-ID <op.x9jg8ac6yfako5@localhost> (permalink)
References <d8be4416-4e14-49f8-b54f-54665bd7639a@googlegroups.com> <ba0d541b-dec8-466b-b5a2-9752323f574d@googlegroups.com> <op.x68mmubnyfako5@localhost>
NNTP-Posting-Host n4wpt9zq8xR26Ttf9mo2BA.user.speranza.aioe.org
Mime-Version 1.0
Content-Type text/plain; charset=iso-8859-1; format=flowed; delsp=yes
Content-Transfer-Encoding 7bit
X-Complaints-To abuse@aioe.org
User-Agent Opera Mail/12.16 (Linux)
X-Notice Filtered by postfilter v. 0.8.2
Xref csiph.com comp.lang.forth:44217

Show key headers only | View raw

On Wed, 28 Oct 2015 18:41:08 -0400, Rod Pemberton <boo@fasdfrewar.cdm> wrote:

> On Wed, 28 Oct 2015 12:18:07 -0400, Chris Curl <ccurl609@gmail.com> wrote:

>> It is not very fast though ...
>>
>> : test begin ?dup if 1 - else exit then again ;
>>
>> 10000000 test \ about 6 seconds for 10 million iterations
>>
>
> As you noted, that's 100M.
>
> I get 7 seconds for my interpreted Forth for 100M.
> That uses C's ctime() which reports with only one
> second of accuracy.

Just for reference, I converted the test code to C code
via a conversion program I wrote, and all the high-level
Forth words called by the routine too right down to my
primitives.  Then, I patched in my Forth primitives in
C, C stack code, and other necessary C code to compile it.

So, the test C code is effectively the same exact code
which executes when the Forth is interpreted, but without
the interpreter being present.  The only difference is
the test C code uses C's native control-flow instead of
converting the control-flow words to C, i.e., BEGIN AGAIN
IF ELSE THEN are not converted into equivalent code.

I timed it.  It's right on the boundary between 3 and
4 four seconds.  So, the interpreter is twice as slow
(7 seconds) as the code without the interpreter (3.5
seconds).

Of course, there is a speed improvement due to the use
of C's control-flow instead of needing to interpret
the Forth control-flow words.  I'm not sure if the
overhead is mostly due to the interpreter, or if it's
the control-flow, or if it's an even balance between
them, but I suspect the interpreter itself.

I suspect the equivalent code coded natively in C would
likely be substantially faster.


Rod Pemberton


-- 
The idea sentient beings can be suppressed by a few simple
rules is a farce.  Even so, Isaac Asimov posited such rules
for sentient artificial intelligence.

Back to comp.lang.forth | Previous | Next — Previous in thread | Next in thread | Find similar | Unroll thread

Thread

Stoked Chris Curl <ccurl609@gmail.com> - 2015-10-28 09:04 -0700
  Re: Stoked Chris Curl <ccurl609@gmail.com> - 2015-10-28 09:18 -0700
    Re: Stoked rickman <gnuarm@gmail.com> - 2015-10-28 12:35 -0400
      Re: Stoked Chris Curl <ccurl609@gmail.com> - 2015-10-28 09:54 -0700
        Re: Stoked lehs <skydda.barnen@gmail.com> - 2015-10-28 10:35 -0700
        Re: Stoked Jason Damisch <jasondamisch@yahoo.com> - 2015-10-28 11:21 -0700
        Re: Stoked rickman <gnuarm@gmail.com> - 2015-10-28 14:24 -0400
          Re: Stoked Chris Curl <ccurl609@gmail.com> - 2015-10-28 13:12 -0700
            Re: Stoked rickman <gnuarm@gmail.com> - 2015-10-28 16:31 -0400
          Re: Stoked Chris Curl <ccurl609@gmail.com> - 2015-10-28 14:55 -0700
            Re: Stoked rickman <gnuarm@gmail.com> - 2015-10-29 01:36 -0400
          Re: Stoked Alfred Singlestone <vitonis@gmail.com> - 2015-10-30 06:01 -0700
            Re: Stoked rickman <gnuarm@gmail.com> - 2015-10-30 13:22 -0400
          Re: Stoked Marcos Cruz <use_the_contact_page@programandala.net> - 2015-11-07 17:50 +0000
            Re: Stoked rickman <gnuarm@gmail.com> - 2015-11-07 13:04 -0500
              Re: Stoked Paul Rubin <no.email@nospam.invalid> - 2015-11-07 10:19 -0800
                Re: Stoked "Elizabeth D. Rather" <erather@forth.com> - 2015-11-07 08:29 -1000
                Re: Stoked hughaguilar96@gmail.com - 2015-11-07 13:28 -0800
                Re: Stoked Paul Rubin <no.email@nospam.invalid> - 2015-11-07 13:33 -0800
                Re: Stoked rickman <gnuarm@gmail.com> - 2015-11-07 16:40 -0500
                Re: Stoked Paul Rubin <no.email@nospam.invalid> - 2015-11-07 14:25 -0800
                Re: Stoked rickman <gnuarm@gmail.com> - 2015-11-07 18:03 -0500
                Re: Stoked Paul Rubin <no.email@nospam.invalid> - 2015-11-07 15:22 -0800
                Re: Stoked rickman <gnuarm@gmail.com> - 2015-11-08 01:13 -0500
                Re: Stoked Paul Rubin <no.email@nospam.invalid> - 2015-11-07 22:35 -0800
                Re: Stoked rickman <gnuarm@gmail.com> - 2015-11-08 01:58 -0500
                Re: Stoked Paul Rubin <no.email@nospam.invalid> - 2015-11-07 23:17 -0800
                Re: Stoked rickman <gnuarm@gmail.com> - 2015-11-08 02:49 -0500
                Re: Stoked Raimond Dragomir <raimond.dragomir@gmail.com> - 2015-11-08 00:06 -0800
                Re: Stoked Paul Rubin <no.email@nospam.invalid> - 2015-11-08 01:40 -0800
                Re: Stoked rickman <gnuarm@gmail.com> - 2015-11-08 15:18 -0500
                Re: Stoked Paul Rubin <no.email@nospam.invalid> - 2015-11-08 13:31 -0800
                Re: Stoked rickman <gnuarm@gmail.com> - 2015-11-08 17:19 -0500
                Re: Stoked Paul Rubin <no.email@nospam.invalid> - 2015-11-11 20:49 -0800
                Re: Stoked rickman <gnuarm@gmail.com> - 2015-11-12 00:57 -0500
                Re: Stoked hughaguilar96@gmail.com - 2015-11-11 22:24 -0800
                Re: Stoked Paul Rubin <no.email@nospam.invalid> - 2015-11-11 23:34 -0800
                Re: Stoked Raimond Dragomir <raimond.dragomir@gmail.com> - 2015-11-12 00:03 -0800
                Re: Stoked Paul Rubin <no.email@nospam.invalid> - 2015-11-12 19:37 -0800
                Re: Stoked rickman <gnuarm@gmail.com> - 2015-11-12 15:24 -0500
                Re: Stoked Paul Rubin <no.email@nospam.invalid> - 2015-11-12 13:18 -0800
                Re: Stoked rickman <gnuarm@gmail.com> - 2015-11-12 16:40 -0500
                Re: Stoked Paul Rubin <no.email@nospam.invalid> - 2015-11-12 20:59 -0800
                Re: Stoked rickman <gnuarm@gmail.com> - 2015-11-13 01:50 -0500
                Re: Stoked Paul Rubin <no.email@nospam.invalid> - 2015-11-12 23:11 -0800
                Re: Stoked forthisit@gmail.com - 2015-11-12 13:47 -0800
                Re: Stoked Paul Rubin <no.email@nospam.invalid> - 2015-11-12 16:27 -0800
                Re: Stoked "Elizabeth D. Rather" <erather@forth.com> - 2015-11-12 12:18 -1000
                Re: Stoked Paul Rubin <no.email@nospam.invalid> - 2015-11-13 00:28 -0800
                Re: Stoked "Elizabeth D. Rather" <erather@forth.com> - 2015-11-11 22:37 -1000
                Re: Stoked hughaguilar96@gmail.com - 2015-11-12 23:37 -0800
                Re: Stoked Albert van der Horst <albert@spenarnc.xs4all.nl> - 2015-11-09 14:19 +0000
                Re: Stoked Lars Brinkhoff <lars.spam@nocrew.org> - 2015-11-23 07:47 +0100
                Re: Stoked Albert van der Horst <albert@spenarnc.xs4all.nl> - 2015-11-23 11:27 +0000
                Re: Stoked Lars Brinkhoff <lars.spam@nocrew.org> - 2015-11-23 13:43 +0100
                Re: Stoked "Elizabeth D. Rather" <erather@forth.com> - 2015-11-08 12:49 -1000
                Re: Stoked rickman <gnuarm@gmail.com> - 2015-11-08 19:20 -0500
                Re: Stoked "Elizabeth D. Rather" <erather@forth.com> - 2015-11-07 23:44 -1000
                Re: Stoked Albert van der Horst <albert@spenarnc.xs4all.nl> - 2015-11-08 18:23 +0000
                Re: Stoked Paul Rubin <no.email@nospam.invalid> - 2015-11-08 10:32 -0800
                Re: Stoked Albert van der Horst <albert@spenarnc.xs4all.nl> - 2015-11-08 18:45 +0000
                Re: Stoked Paul Rubin <no.email@nospam.invalid> - 2015-11-08 10:53 -0800
                Re: Stoked Albert van der Horst <albert@spenarnc.xs4all.nl> - 2015-11-08 21:25 +0000
                Re: Stoked Paul Rubin <no.email@nospam.invalid> - 2015-11-08 14:09 -0800
                Re: Stoked "Rod Pemberton" <boo@fasdfrewar.cdm> - 2015-11-09 05:32 -0500
                Re: Stoked Albert van der Horst <albert@spenarnc.xs4all.nl> - 2015-11-09 14:58 +0000
                Re: Stoked rickman <gnuarm@gmail.com> - 2015-11-08 23:42 -0500
                Re: Stoked Paul Rubin <no.email@nospam.invalid> - 2015-11-08 21:11 -0800
                Re: Stoked Lars Brinkhoff <lars.spam@nocrew.org> - 2015-11-15 12:50 +0100
                Re: Stoked Raimond Dragomir <raimond.dragomir@gmail.com> - 2015-11-07 23:56 -0800
                Re: Stoked rickman <gnuarm@gmail.com> - 2015-11-08 03:24 -0500
                Re: Stoked Paul Rubin <no.email@nospam.invalid> - 2015-11-08 01:31 -0800
                Re: Stoked "Elizabeth D. Rather" <erather@forth.com> - 2015-11-07 23:57 -1000
                Re: Stoked Paul Rubin <no.email@nospam.invalid> - 2015-11-08 02:18 -0800
                Re: Stoked "Elizabeth D. Rather" <erather@forth.com> - 2015-11-08 08:33 -1000
                Re: Stoked rickman <gnuarm@gmail.com> - 2015-11-09 00:07 -0500
                Re: Stoked rickman <gnuarm@gmail.com> - 2015-11-08 23:49 -0500
                Re: Stoked Paul Rubin <no.email@nospam.invalid> - 2015-11-08 21:06 -0800
                Re: Stoked rickman <gnuarm@gmail.com> - 2015-11-09 00:20 -0500
                Re: Stoked Paul Rubin <no.email@nospam.invalid> - 2015-11-08 22:51 -0800
                Re: Stoked rickman <gnuarm@gmail.com> - 2015-11-09 02:22 -0500
                Re: Stoked Alfred Singlestone <vitonis@gmail.com> - 2015-11-10 04:32 -0800
                Re: Stoked Albert van der Horst <albert@spenarnc.xs4all.nl> - 2015-11-10 13:48 +0000
                Re: Stoked rickman <gnuarm@gmail.com> - 2015-11-10 16:17 -0500
                Re: Stoked "Rod Pemberton" <boo@fasdfrewar.cdm> - 2015-11-10 17:26 -0500
                Re: Stoked "Elizabeth D. Rather" <erather@forth.com> - 2015-11-08 21:50 -1000
                Re: Stoked stephen@mpeforth.com (Stephen Pelc) - 2015-11-09 12:15 +0000
                Re: Stoked Albert van der Horst <albert@spenarnc.xs4all.nl> - 2015-11-09 15:09 +0000
                Re: Stoked Lars Brinkhoff <lars.spam@nocrew.org> - 2015-11-24 09:47 +0100
                Re: Stoked stephen@mpeforth.com (Stephen Pelc) - 2015-11-24 12:54 +0000
                Re: Stoked Lars Brinkhoff <lars.spam@nocrew.org> - 2015-11-24 15:03 +0100
                Emulating a 16-bit Forth Lars Brinkhoff <lars.spam@nocrew.org> - 2015-11-25 13:18 +0100
                Re: Emulating a 16-bit Forth Lars Brinkhoff <lars.spam@nocrew.org> - 2015-11-25 14:08 +0100
                Re: Stoked Albert van der Horst <albert@spenarnc.xs4all.nl> - 2015-11-09 14:30 +0000
                Re: Stoked Bernd Linsel <bl1@gmx.com> - 2015-11-09 18:27 +0100
                Re: Stoked Paul Rubin <no.email@nospam.invalid> - 2015-11-10 00:50 -0800
                Re: Stoked "Elizabeth D. Rather" <erather@forth.com> - 2015-11-07 23:52 -1000
                Re: Stoked "Elizabeth D. Rather" <erather@forth.com> - 2015-11-07 23:16 -1000
                Re: Stoked "Elizabeth D. Rather" <erather@forth.com> - 2015-11-07 23:07 -1000
                Re: Stoked Albert van der Horst <albert@spenarnc.xs4all.nl> - 2015-11-08 17:58 +0000
                Re: Stoked "Elizabeth D. Rather" <erather@forth.com> - 2015-11-07 12:00 -1000
                Re: Stoked Albert van der Horst <albert@spenarnc.xs4all.nl> - 2015-11-08 17:49 +0000
        Re: Stoked stephen@mpeforth.com (Stephen Pelc) - 2015-10-28 23:24 +0000
          Re: Stoked Jason Damisch <jasondamisch@yahoo.com> - 2015-10-28 17:30 -0700
          Re: Stoked Waldek Hebisch <hebisch@antispam.uni.wroc.pl> - 2015-10-29 02:40 +0000
            Re: Stoked stephen@mpeforth.com (Stephen Pelc) - 2015-10-29 10:11 +0000
          Re: Stoked Chris Curl <ccurl609@gmail.com> - 2015-10-28 21:07 -0700
            Re: Stoked Paul Rubin <no.email@nospam.invalid> - 2015-10-28 21:16 -0700
            Re: Stoked franck.bensusan@gmail.com - 2015-10-29 01:35 -0700
            Re: Stoked stephen@mpeforth.com (Stephen Pelc) - 2015-10-29 10:16 +0000
              Re: Stoked lehs <skydda.barnen@gmail.com> - 2015-10-29 03:35 -0700
                Re: Stoked lehs <skydda.barnen@gmail.com> - 2015-10-29 03:48 -0700
          Re: Stoked mhx@iae.nl - 2015-10-29 11:31 -0700
            Re: Stoked Chris Curl <ccurl609@gmail.com> - 2015-10-29 12:01 -0700
              Re: Stoked Paul Rubin <no.email@nospam.invalid> - 2015-10-29 12:26 -0700
            Re: Stoked rickman <gnuarm@gmail.com> - 2015-10-29 15:29 -0400
              Re: Stoked mhx@iae.nl - 2015-10-29 13:27 -0700
                Re: Stoked rickman <gnuarm@gmail.com> - 2015-10-29 16:48 -0400
                Re: Stoked josv@planet.nl - 2015-10-29 14:58 -0700
                Re: Stoked rickman <gnuarm@gmail.com> - 2015-10-30 01:36 -0400
                Re: Stoked josv@planet.nl - 2015-10-30 04:34 -0700
                Re: Stoked rickman <gnuarm@gmail.com> - 2015-10-30 13:28 -0400
                Re: Stoked josv@planet.nl - 2015-10-30 12:05 -0700
                Re: Stoked rickman <gnuarm@gmail.com> - 2015-10-30 15:32 -0400
                Re: Stoked "Elizabeth D. Rather" <erather@forth.com> - 2015-10-30 18:53 -1000
                Re: Stoked josv@planet.nl - 2015-11-01 04:28 -0800
                Re: Stoked hughaguilar96@gmail.com - 2015-11-03 22:27 -0800
                Re: Stoked mhx@iae.nl - 2015-10-29 16:47 -0700
                Re: Stoked rickman <gnuarm@gmail.com> - 2015-10-30 01:33 -0400
                Re: Stoked mhx@iae.nl - 2015-10-31 00:55 -0700
                Re: Stoked stephen@mpeforth.com (Stephen Pelc) - 2015-10-30 11:52 +0000
              Re: Stoked josv@planet.nl - 2015-10-29 14:49 -0700
              Re: Stoked stephen@mpeforth.com (Stephen Pelc) - 2015-10-30 11:50 +0000
    Re: Stoked Hans Bezemer <the.beez.speaks@gmail.com> - 2015-10-28 18:39 +0100
      Re: Stoked Chris Curl <ccurl609@gmail.com> - 2015-10-28 11:11 -0700
        Re: Stoked Hans Bezemer <the.beez.speaks@gmail.com> - 2015-10-28 20:01 +0100
        Re: Stoked hughaguilar96@gmail.com - 2015-10-28 12:34 -0700
          Re: Stoked Chris Curl <ccurl609@gmail.com> - 2015-10-28 13:09 -0700
    Re: Stoked François <francois.ganza@wanadoo.fr> - 2015-10-28 15:25 -0700
      Re: Stoked Chris Curl <ccurl609@gmail.com> - 2015-10-28 21:01 -0700
        Re: Stoked "Rod Pemberton" <boo@fasdfrewar.cdm> - 2015-10-29 01:58 -0400
          Re: Stoked Raimond Dragomir <raimond.dragomir@gmail.com> - 2015-10-28 23:34 -0700
        Re: Stoked Lars Brinkhoff <lars.spam@nocrew.org> - 2015-10-29 08:56 +0100
    Re: Stoked "Rod Pemberton" <boo@fasdfrewar.cdm> - 2015-10-28 18:41 -0400
      Re: Stoked josv@planet.nl - 2015-10-29 05:28 -0700
      Re: Stoked "Rod Pemberton" <boo@fasdfrewar.cdm> - 2015-12-12 11:25 -0500
        Re: Stoked "Elizabeth D. Rather" <erather@forth.com> - 2015-12-12 08:43 -1000
          Re: Stoked hughaguilar96@gmail.com - 2015-12-16 13:45 -0800
            Re: Stoked hughaguilar96@gmail.com - 2015-12-17 10:26 -0800
        Re: Stoked Rob Sciuk <rob@controlq.com> - 2015-12-13 23:29 -0500
          Re: Stoked Raimond Dragomir <raimond.dragomir@gmail.com> - 2015-12-13 22:31 -0800
    Re: Stoked Paul Rubin <no.email@nospam.invalid> - 2015-10-28 15:52 -0700
      Re: Stoked anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2015-10-29 16:57 +0000
        Re: Stoked Paul Rubin <no.email@nospam.invalid> - 2015-10-29 12:36 -0700
          Re: Stoked anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2015-10-31 14:57 +0000
            Re: Stoked Bernd Paysan <bernd.paysan@gmx.de> - 2015-10-31 20:25 +0100
        Re: Stoked Paul Rubin <no.email@nospam.invalid> - 2015-11-03 20:39 -0800
    Re: Stoked Pablo Hugo Reda <pabloreda@gmail.com> - 2015-10-28 16:27 -0700
    Re: Stoked Alfred Singlestone <vitonis@gmail.com> - 2015-10-30 05:57 -0700
    Re: Stoked "HAA" <someone@microsoft.com> - 2015-11-02 13:15 +1100
      Re: Stoked François <francois.ganza@wanadoo.fr> - 2015-11-02 02:08 -0800
  Re: Stoked Paul Rubin <no.email@nospam.invalid> - 2015-10-28 09:28 -0700
    Re: Stoked Chris Curl <ccurl609@gmail.com> - 2015-10-28 09:37 -0700
      Re: Stoked Paul Rubin <no.email@nospam.invalid> - 2015-10-28 10:28 -0700
  Re: Stoked Chris Curl <ccurl609@gmail.com> - 2015-10-28 10:52 -0700
    Re: Stoked anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2015-10-28 18:14 +0000
  Re: Stoked François <francois.ganza@wanadoo.fr> - 2015-10-28 15:20 -0700
    Re: Stoked Chris Curl <ccurl609@gmail.com> - 2015-10-28 21:16 -0700
  Re: Stoked Chris Curl <ccurl609@gmail.com> - 2015-10-30 12:13 -0700
    Re: Stoked rickman <gnuarm@gmail.com> - 2015-10-30 15:34 -0400
  Re: Stoked Chris Curl <ccurl609@gmail.com> - 2015-11-07 13:57 -0800
    Re: Stoked rickman <gnuarm@gmail.com> - 2015-11-07 17:19 -0500
  Re: Stoked François <francois.ganza@wanadoo.fr> - 2015-11-09 00:10 -0800
  Re: Stoked Chris Curl <ccurl609@gmail.com> - 2015-12-12 18:52 -0800

csiph-web