RetroForth :: Homepage

retroforth

RetroForum	Welcome, Guest. Please login or register. March 14, 2010, 02:17:26 PM

RetroForth Discussion | Older Boards | Bugs | Topic: next/until infinitive loop fix

« previous next »

Pages: 1

Author

Topic: next/until infinitive loop fix (Read 1576 times)

Alexey Abramov
Library Contributor
Jr. Member

Karma: +0/-0
Offline

Offline

Posts: 47

YO! Forth Forever!

next/until infinitive loop fix
« on: September 01, 2005, 05:07:53 PM »

My code:

Code:

: next m: r> : until m: 1- $8f0f 2, here - 4 - , m: drop ;

You need to fix from "jne - jump if not equal" ($850f)
to "jg - jump if greater" $8f0f

Also move "$c009 2," for speed.
And may "$48 1," replace by "m: 1-";

if counter is negative that will not be a infinitive loop.


« Last Edit: September 01, 2005, 05:10:36 PM by Alexey Abramov »	Logged

Charles Childers
Administrator
Sr. Member

Karma: +2/-0
Offline

Offline

Posts: 745

Re: next/until infinitive loop fix
« Reply #1 on: September 06, 2005, 01:45:23 AM »

Alexey, thank you for bringing this up. It's now fixed in 8.2-dev (the nightly builds)


	Logged

Pages: 1

RetroForth Discussion \| Older Boards \| Bugs \| Topic: next/until infinitive loop fix	« previous next »