Thanks, I appreciate the help. I'm glad that the issue was a simple fix. :D
On Saturday, May 8, 2021 at 3:14:33 PM UTC-4 gmhwxi wrote: > This is due to a missing type annotation for 'ifcase' > in your code: > > val ret_fbc = > ( > > ifcase > | tr=0 => > (FBT_CONS(fbc.0) | fbc.1+1, fbc.2) > | tr=1 => > (FBT_CONS(fbc.0) | fbc.1, fbc.2+1) > | _ => (FBT_CONS(fbc.0) | fbc.1+1, fbc.2+1) > ) : [f1,b1:nat] fb_count(a, f1, b1) > > In general, if-exp, case-exp and ifcase-exp should all be given a type > annotation. > > > On Sat, May 8, 2021 at 9:39 AM d4v3y_5c0n3s <[email protected]> wrote: > >> So, I'm having difficulty understanding a constraint that is failing >> in my code. The constraint that is failing is "f1 + f1 = 1", which I am >> confused by, because there appears to be no such constraint in my code. >> *Here's what (most of) my code is:* >> dataprop FBT_IN (int, a:addr) = >> | FBT_NIL(0, a) >> | {n:nat} FBT_CONS(n+1, a) of FBT_IN(n, a) >> >> typedef fb_count (a:addr, f:int, b:int) = [c:nat | f >= 0; b >= >> 0] (FBT_IN(c, a) | int f, int b) >> typedef f_ind (a:addr, f:int, i:int) = int i >> typedef b_ind (a:addr, b:int, i:int) = int i >> >> fn tri_fb_test {c:nat}{l:addr} >> ( >> pfin: FBT_IN(c, l) | t: ctri, dv: plane >> ): (FBT_IN(c+1, l) | intBtwe(0,2)) = >> if ctri_inside_plane(t, dv) then (FBT_CONS(pfin) | 0) >> else if ctri_outside_plane(t, dv) then (FBT_CONS(pfin) | 1) >> else (FBT_CONS(pfin) | 2) >> >> fun loop1 {i,j:nat | i <= j}{a:addr}{f1,b1:nat} >> ( a: !arrayptr(ctri, a, j), dv: plane, >> fbc: fb_count(a, f1, b1), >> j: int j, i: int i ): [f2,b2:nat] fb_count(a, f2, b2) = ( >> if i < j then let >> val c: ctri = a[i] >> val (pf_tr | tr) = tri_fb_test(fbc.0 | c, dv) >> val ret_fbc = ifcase >> | tr=0 => (FBT_CONS(fbc.0) | fbc.1+1, fbc.2) >> | tr=1 => (FBT_CONS(fbc.0) | fbc.1, fbc.2+1) >> | _ => (FBT_CONS(fbc.0) | fbc.1+1, fbc.2+1) >> in >> loop1(a, dv, ret_fbc, j, i+1) // <-- constraint fails on >> this line at "ret_fbc" >> end else fbc >> *And here's the error produced:* >> $ patscc -tcats cmesh.dats >> /home/tmj90/Goldelish-Engine/source/assets/cmesh.dats: 8604(line=235, >> offs=26) -- 8611(line=235, offs=33): error(3): unsolved constraint: >> C3NSTRprop(C3TKmain(); S2Eeqeq(S2Evar(f1(8784)); >> S2Eapp(S2Ecst(add_int_int); S2Evar(f1(8784)), S2Eintinf(1)))) >> typechecking has failed: there are some unsolved constraints: please >> inspect the above reported error message(s) for information. >> exit(ATS): uncaught exception: >> _2tmp_2ATS_2dPostiats_2src_2pats_error_2esats__FatalErrorExn(1025) >> >> I suspect the issue is an implicitly generated constraint of some kind, >> but I have no idea where it's coming from. *However*, I discovered that >> if I comment out these lines: >> val ret_fbc = ifcase >> //| tr=0 => (FBT_CONS(fbc.0) | fbc.1+1, fbc.2) >> //| tr=1 => (FBT_CONS(fbc.0) | fbc.1, fbc.2+1) >> | _ => (FBT_CONS(fbc.0) | fbc.1+1, fbc.2+1) >> then everything typechecks. That's the biggest hint I could find, but I >> don't know what going wrong. Please let me know if you'd like me to >> provide more code, I just didn't want to clutter my initial post. >> >> -- >> You received this message because you are subscribed to the Google Groups >> "ats-lang-users" group. >> To unsubscribe from this group and stop receiving emails from it, send an >> email to [email protected]. >> To view this discussion on the web visit >> https://groups.google.com/d/msgid/ats-lang-users/dcf7d7eb-d69f-4746-800b-24c02084ee65n%40googlegroups.com >> >> <https://groups.google.com/d/msgid/ats-lang-users/dcf7d7eb-d69f-4746-800b-24c02084ee65n%40googlegroups.com?utm_medium=email&utm_source=footer> >> . >> > -- You received this message because you are subscribed to the Google Groups "ats-lang-users" group. To unsubscribe from this group and stop receiving emails from it, send an email to [email protected]. To view this discussion on the web visit https://groups.google.com/d/msgid/ats-lang-users/c2070b8f-d112-426c-a69a-a2c23ca2dcffn%40googlegroups.com.
