OpenEuphoria

Re: Phix : win32lib7 project

• Posted by ChrisB (moderator) Dec 12, 2016
• 1532 views

Hi

I've fixed the background color issue with

--in global function colorValue() 
    --Phix erroring out when passed an empty sequence - will set it to return Black 
    if sequence(pColor) and length(pColor) = 0 then 
        return 0 
    end if 
 

discovered by

? lColor 
? ctrl_Bg_Color[ lId ] 
? colorValue(ctrl_Bg_Color[ lId ]) 

Now ALL the win32demos shipped with Phix work. Will be working through the win32lib demos shipped with win32lib7 next. Unfortunately the IDE still doesn't work - it produces this error

D:\Phix\pEmit2.e:3738 in procedure Or_K_ridt() 
index 0 out of bounds, reading sequence length 44000 
    symidx = 43259 
    flags = 131073 
    p = 0 
    maxparams = 2 
... called from D:\Phix\pmain.e:3106 in function resolveRoutineId() 
    nsi = 0 
    k = 8 
    emsg = <novalue> 
... called from D:\Phix\pmain.e:3900 in function ParamList() 
    signature = {12} 
    paramsOnStack = 0 
    sig = <novalue> 
    act = <novalue> 
    k = <novalue> 
    pidx = 0 
    v = <novalue> 
    pfirst = <novalue> 
    pthis = <novalue> 
    pN = <novalue> 
    mcode = <novalue> 
    siglen = 1 
    sigidx = 1 
    ltype = <novalue> 
    actsig = {} 
    wasRoutineNo = 354 
    bpset = {{700676,1,43259}} 
    txids = {} 
    txcols = <novalue> 
    pmap = <novalue> 
    pdone = <novalue> 
    thisttidx = 15864 
    bpcol = <novalue> 
    rest_must_be_named = 0 
    minsiglen = 1 
    ptext = <novalue> 
    maxparms = <novalue> 
    i = <novalue> 
    j = <novalue> 
    i = <novalue> 
... called from D:\Phix\pmain.e:4883 in procedure Call() 
    rtnNo = 354 
    signature = <novalue> 
    rType = 70'F' 
    paramsOnStack = 0 
    R = <novalue> 
    s1 = 70'F' 
    opcode = <novalue> 
etc.... 

Again any suggestions pointers gratefully accepted

Cheers

Chris