> PS: I forgot you also need a C function

> #include TSO.h        /* in ghc/includes */
> 
> cmp_thread( StgTSO *tso1, *tso2 ) {
>   StgThreadID id1 = tso1->id;
>   StgThreadId id2 = tso2->id;
> 
>   if (tso1 < tso2) return (-1);
>   if (tso1 > tso2) return 1;
>   return 0
> }

Shouldn't that be   

    if (id1 < id2) return (-1);
    if (id1 > id2) return 1;

?

J

Reply via email to