Fix Stack_Unit_Size to match portmacro.h

 #define portSTACK_TYPE uint8_t
 typedef portSTACK_TYPE StackType_t;

Add a wrapper for xTaskCreate, because it has `static inline`
in IDF FreeRTOS

Author: reznikmm

common/freertos_bindings.c

@@ -105,3 +105,16 @@ portBASE_TYPE _gnat_xSemaphoreGiveFromISR
    portBASE_TYPE *pxHigherPriorityTaskWoken) {
   return xSemaphoreGiveFromISR(xSemaphore, pxHigherPriorityTaskWoken);
 }
+
+
+/* xTaskCreate has `static inline` markers in IDF, so can't be linked */
+IRAM_ATTR BaseType_t xTaskCreate2
+  (TaskFunction_t pvTaskCode,
+   const char * const pcName,
+   const uint16_t usStackDepth,
+   void * const pvParameters,
+   UBaseType_t uxPriority,
+   TaskHandle_t * const pvCreatedTask) {
+  return xTaskCreate( pvTaskCode, pcName, usStackDepth, pvParameters, uxPriority, pvCreatedTask );
+}
+

common/s-fretas.adb

@@ -26,7 +26,7 @@ package body System.FreeRTOS.Tasks is
    --  from portmacro.h,
    --  portSTACK_TYPE is unsigned long (stack size units)
 
-   Stack_Unit_Size : constant := 4;
+   Stack_Unit_Size : constant := 1;
 
    function Create_Task
      (Code        : Task_Code;
@@ -52,7 +52,7 @@ package body System.FreeRTOS.Tasks is
         return Status_Code with
           Import,
           Convention => C,
-          External_Name => "xTaskCreate";
+          External_Name => "xTaskCreate2";
 
       Task_Name : constant String := Name & ASCII.NUL;
       Status : Status_Code := Fail;