Re: Native rts not working on linux (glibc)

[Simon Wright <simon@pogner.demon.co.uk>]

d96andgi@dtek.chalmers.se (Anders Gidenstam) writes:

> In article <x7vaf1sr9ty.fsf@pogner.demon.co.uk>,
> 	Simon Wright <simon@pogner.demon.co.uk> writes:
> >Tasking programs will run fine on Linux with GNAT. If they don't there
> >is something wrong!
> >
> >As far as I can tell the code that does this is in Set_Priority in s-taprop.adb:
> >
> >      Result := pthread_setschedparam (T.LL.Thread, SCHED_FIFO, Param'Access);
> >      pragma Assert (Result = 0 or else Result = EPERM);
> >
> >If you are root, you get the priority (Result = 0)
> >If not, the request fails quietly     (Result = EPERM)
> >... or something terrible has occurred
> 
> Well, I've found the problem my s-taprop.adb looks like tihs:
> 
>   Result := pthread_setschedparam (T.LL.Thread, SCHED_FIFO, Param'Access);
>   pragma Assert (Result = 0
>                  or else Shutdown ("GNULLI failure---Set_Priority"));
> 
> Not very strange that my programs didn't run...(when I wasn't root)...
> Might it be possible to remove the offending Shutdown and just ignore
> that the call failed? 

Oh dear, I think the code I posted was from a not-yet-released GNAT
version. Now you show me the code you see, I seem to remember finding
the same code last time I looked and being puzzled that tasking was
working!

If you are getting the GNULLI message indicated then it certainly
would seem worth trying this change.