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


Groups > comp.lang.forth > #19741

Re: Loop structures

From mhx@iae.nl (Marcel Hendrix)
Subject Re: Loop structures
Newsgroups comp.lang.forth
Message-ID <12790388018434@frunobulax.edu> (permalink)
Date 2013-02-15 00:56 +0200
References <kfjppa$ouj$1@online.de>
Organization Wanadoo

Show all headers | View raw


Bernd Paysan <bernd.paysan@gmx.de> writes Re: Loop structures

> Albert van der Horst wrote:
>> That would defeat the purpose of this security feature.
>> It is intended for people like me. If I write two whiles
>> between BEGIN and REPEAT, I want a warning because I'm
>> making a mistake.
>
> You don't make a mistake if you close the second WHILE with a THEN (by 
> definition of how that structure is supposed to work).  If you don't, you 
> will generate an error, e.g. in Gforth:

> : test begin while while repeat ; 
> :4: unstructured 
> : test begin while while repeat >>>;<<<

OK, but what's wrong with this?

: test begin repeat ;
:1: expected orig
: test begin >>>repeat<<< ;
Backtrace:
$7EBA2B0C throw
$7EBAB874 c(abort")
$7EBABEE4 orig?
$7EBAC0F0 THEN

In iForth:

FORTH> : test begin repeat ;   ok
FORTH> ' test idis
$01402640  : [trashed]
$0140264A  pop           rbx
$0140264B  lea           rax, [rax 0 +] qword
$01402650  jmp           $01402650 offset SHORT
$01402652  push          rbx
$01402653  ;
FORTH>

Perfect reasonable: REPEAT is the same as AGAIN.

-marcel

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


Thread

 Loop structures kenney@cix.compulink.co.uk - 2013-02-06 03:55 -0600
  Re: Loop structures Andrew Haley <andrew29@littlepinkcloud.invalid> - 2013-02-06 04:24 -0600
  Re: Loop structures Pablo Hugo Reda <pabloreda@gmail.com> - 2013-02-06 05:38 -0800
  Re: Loop structures Hugh Aguilar <hughaguilar96@yahoo.com> - 2013-02-06 10:43 -0800
    Re: Loop structures "Rod Pemberton" <do_not_have@notemailnotz.cnm> - 2013-02-08 03:46 -0500
  Re: Loop structures awegel@arcor.de (Alex Wegel) - 2013-02-06 20:19 +0100
    Re: Loop structures "Ed" <invalid@nospam.com> - 2013-02-07 20:27 +1100
      Re: Loop structures Coos Haak <chforth@hccnet.nl> - 2013-02-07 17:03 +0100
        Re: Loop structures awegel@arcor.de (Alex Wegel) - 2013-02-08 00:43 +0100
          Re: Loop structures "Ed" <invalid@nospam.com> - 2013-02-09 20:52 +1100
            Re: Loop structures Andrew Haley <andrew29@littlepinkcloud.invalid> - 2013-02-09 18:05 -0600
              Re: Loop structures "Ed" <invalid@nospam.com> - 2013-02-10 11:48 +1100
            Re: Loop structures awegel@arcor.de (Alex Wegel) - 2013-02-11 01:41 +0100
              Re: Loop structures "Ed" <invalid@nospam.com> - 2013-02-11 12:56 +1100
                Re: Loop structures "Elizabeth D. Rather" <erather@forth.com> - 2013-02-10 17:54 -1000
                Re: Loop structures "Ed" <invalid@nospam.com> - 2013-02-12 15:11 +1100
                Re: Loop structures Andrew Haley <andrew29@littlepinkcloud.invalid> - 2013-02-13 09:49 -0600
                Re: Loop structures Mark Wills <forthfreak@gmail.com> - 2013-02-11 23:32 -0800
                Re: Loop structures "Ed" <invalid@nospam.com> - 2013-02-13 12:34 +1100
                Re: Loop structures "Elizabeth D. Rather" <erather@forth.com> - 2013-02-12 15:49 -1000
                Re: Loop structures "Ed" <invalid@nospam.com> - 2013-02-13 14:48 +1100
                Re: Loop structures Alex McDonald <blog@rivadpm.com> - 2013-02-12 23:02 -0800
                Re: Loop structures Alex McDonald <blog@rivadpm.com> - 2013-02-12 23:29 -0800
                Re: Loop structures albert@spenarnc.xs4all.nl (Albert van der Horst) - 2013-02-13 13:35 +0000
                Re: Loop structures Bernd Paysan <bernd.paysan@gmx.de> - 2013-02-13 15:17 +0100
                Re: Loop structures Alex McDonald <blog@rivadpm.com> - 2013-02-13 09:01 -0800
                Re: Loop structures albert@spenarnc.xs4all.nl (Albert van der Horst) - 2013-02-13 20:22 +0000
                Re: Loop structures anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2013-02-14 16:29 +0000
                Re: Loop structures albert@spenarnc.xs4all.nl (Albert van der Horst) - 2013-02-14 18:41 +0000
                Re: Loop structures Bernd Paysan <bernd.paysan@gmx.de> - 2013-02-14 21:44 +0100
                Re: Loop structures albert@spenarnc.xs4all.nl (Albert van der Horst) - 2013-02-14 21:06 +0000
                Re: Loop structures Bernd Paysan <bernd.paysan@gmx.de> - 2013-02-14 23:51 +0100
                Re: Loop structures mhx@iae.nl (Marcel Hendrix) - 2013-02-15 00:56 +0200
                Re: Loop structures anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2013-02-15 09:53 +0000
                Re: Loop structures m.a.m.hendrix@tue.nl - 2013-02-15 03:36 -0800
                Re: Loop structures anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2013-02-15 09:44 +0000
                Re: Loop structures Lars Brinkhoff <lars.spam@nocrew.org> - 2013-03-04 13:04 +0100
                Re: Loop structures albert@spenarnc.xs4all.nl (Albert van der Horst) - 2013-03-04 13:22 +0000
                Re: Loop structures "Ed" <invalid@nospam.com> - 2013-02-15 13:09 +1100
                Re: Loop structures Alex McDonald <blog@rivadpm.com> - 2013-02-14 19:21 -0800
                Re: Loop structures albert@spenarnc.xs4all.nl (Albert van der Horst) - 2013-02-15 13:01 +0000
                Re: Loop structures Alex McDonald <blog@rivadpm.com> - 2013-02-15 07:51 -0800
                Re: Loop structures Brad Eckert <hwfwguy@gmail.com> - 2013-02-13 10:51 -0800
                Re: Loop structures "Ed" <invalid@nospam.com> - 2013-02-15 13:11 +1100
                Re: Loop structures "Elizabeth D. Rather" <erather@forth.com> - 2013-02-14 21:31 -1000
                Re: Loop structures Mark Wills <forthfreak@gmail.com> - 2013-02-13 00:18 -0800
                Re: Loop structures alberto@hal-pc.org - 2013-02-13 14:27 +0000
                Re: Loop structures Mark Wills <forthfreak@gmail.com> - 2013-02-13 07:08 -0800
                Re: Loop structures m.a.m.hendrix@tue.nl - 2013-02-13 08:23 -0800
                Re: Loop structures stephenXXX@mpeforth.com (Stephen Pelc) - 2013-02-13 17:32 +0000
                Re: Loop structures Mark Wills <forthfreak@gmail.com> - 2013-02-13 23:17 -0800
                Re: Loop structures stephenXXX@mpeforth.com (Stephen Pelc) - 2013-02-14 10:53 +0000
                Re: Loop structures stephenXXX@mpeforth.com (Stephen Pelc) - 2013-02-14 13:42 +0000
                Re: Loop structures "Clyde W. Phillips Jr." <cwpjr02@gmail.com> - 2013-02-14 21:25 -0800
                Re: Loop structures "Clyde W. Phillips Jr." <cwpjr02@gmail.com> - 2013-02-14 21:18 -0800
                Re: Loop structures Mark Wills <forthfreak@gmail.com> - 2013-02-13 23:15 -0800
                Re: Loop structures mhx@iae.nl (Marcel Hendrix) - 2013-02-14 22:08 +0200
                Re: Loop structures Mark Wills <forthfreak@gmail.com> - 2013-02-14 22:53 -0800
                Re: Loop structures awegel@arcor.de (Alex Wegel) - 2013-02-12 16:00 +0100
  Re: Loop structures kenney@cix.compulink.co.uk - 2013-02-13 03:49 -0600

csiph-web