OpenEuphoria

Re: 3.0.3 Release Candidate for Windows/DOS

• Posted by Matt Lewis <matthewwalkerlewis at gmail.com> May 27, 2007
• 820 views

Robert Craig wrote:
> 
> Juergen Luethje wrote:
> > }}}
<eucode>
> > sequence s, x
> > 
> > s = "abcdefghi"
> > x = "cde"
> > ? match_from(x, s,  4) 
> > if getc(0) then end if
> > </eucode>
{{{

> > I tested the above code snippet with the EXW interpreter on Windows XP.
> > It should print 0, but it raises a machine-level exception.
> 
> I only did light testing on Matt's new routines.
> I guess Matt will have to look into this.

Apparently, that's all I did, too.  It's a simple change, now committed
to svn:

--- be_runtime.c        (revision 88)
+++ be_runtime.c        (working copy)
@@ -4692,7 +4692,7 @@
     b1 = b->base;
     bp = b1 + c -1;
     a1 = a->base;
-    ntries = lengthb - lengtha + 1;
+    ntries = lengthb - lengtha  - c + 1;
     while (--ntries >= 0) {
        ai = a1;
        bi = bp;

Matt