OpenEuphoria

Re: Well I did it! (variable_id, etc..)

• Posted by Robert Craig <rds at RapidEuphoria.com> Nov 26, 2004
• 632 views

Greg Haberek wrote:
> I'll put out the source once I get all the features in that I'd like.
> As far as speed, well, it definitly needs to be run with the C
> backend.
> 
> sorting test - 10,000 random integers 0 - 999
> 
>     exw.exe -   0.020 seconds
>     euw.exe - 11.376 seconds
> 
> That's 568% slower!

Try my new version of opASSIGN_SUBS...

procedure opASSIGN_SUBS() -- also ASSIGN_SUBS_CHECK, ASSIGN_SUBS_I
-- LHS single subscript and assignment
    object x, subs

    a = Code[pc+1]  -- the sequence
    b = Code[pc+2]  -- the subscript
    if sequence(val[b]) then
        RTFatal("subscript must be an atom\n(assigning to subscript of a sequenc
    end if
    c = Code[pc+3]  -- the RHS value
    x = val[a]
    lhs_check_subs(x, val[b])
    x = val[c]
    subs = val[b]
    val[a][subs] = x  -- single LHS subscript
    pc += 4
end procedure

I think you'll be pleasantly surprised.

Regards,
   Rob Craig
   Rapid Deployment Software
   http://www.RapidEuphoria.com