Re: Running a preprocessor from GPS?

[Simon Wright <simon@pushface.org>]

EGarrulo <egarrulo@gmail.com> writes:

> KISS solution:
>
>        TickCount := (if System.FreeRTOS.Tasks.In_ISR
>                      then xTaskGetTickCountFromISR
>                      else xTaskGetTickCount)
>        return Tick * Time_Base (TickCount);
>
> or:
>
>        if System.FreeRTOS.Tasks.In_ISR then 
>           TickCount := xTaskGetTickCountFromISR;
>        else 
>           TickCount := xTaskGetTickCount;
>        end if;
>        return Tick * Time_Base (TickCount);

Both of these require Tick_Count (!) to be declared, which adds a little
more verbosity. At least the first means you could declare it constant.

      Tick_Count : constant System.Unsigned_32
        := (if System.FreeRTOS.Tasks.In_ISR
            then xTaskGetTickCountFromISR
            else xTaskGetTickCount);
   begin
      ...

This whole code will need revisiting when I get round to making
Ada.Real_Time.Time capable of running for more than 50 days! at which
point I'll be inhibiting interrupts and managing the 32-to-64 bit
extension, and there'll certainly be an analog of Tick_Count there.