api: Remove deprecated Notepads

Notepads where a feature of RTEMS' tasks that simply functioned in
the same way as POSIX keys or threaded local storage (TLS). They were
introduced well before per task variables, which are also deprecated,
and were barely used in favor of their POSIX alternatives.

In addition to their scarce usage, Notepads took up unnecessary memory.
For each task:

 - 16 32-bit integers were allocated.
 - A total of 64 bytes per task per thread.

This is especially critical in low memory and safety-critical applications.

They are also defined as uint32_t, and therefore are not guaranteed to
hold a pointer.

Lastly, they are not portable solutions for SMP and uniprocessor systems,
like POSIX keys and TLS.

updates #2493.

1 files changed, 0 insertions, 38 deletions

diff --git a/c/src/ada/rtems-tasks.adb b/c/src/ada/rtems-tasks.adb
index 1a5706f8e4..b809fcf98e 100644
--- a/c/src/ada/rtems-tasks.adb
+++ b/c/src/ada/rtems-tasks.adb
@@ -203,44 +203,6 @@ package body RTEMS.Tasks is
 
    end Mode;
 
-   procedure Get_Note
-     (ID      : in RTEMS.ID;
-      Notepad : in RTEMS.Notepad_Index;
-      Note    : out RTEMS.Unsigned32;
-      Result  : out RTEMS.Status_Codes)
-   is
-      function Get_Note_Base
-        (ID      : RTEMS.ID;
-         Notepad : RTEMS.Notepad_Index;
-         Note    : access RTEMS.Unsigned32)
-         return    RTEMS.Status_Codes;
-      pragma Import (C, Get_Note_Base, "rtems_task_get_note");
-      Note_Base : aliased RTEMS.Unsigned32;
-   begin
-
-      Result := Get_Note_Base (ID, Notepad, Note_Base'Access);
-      Note   := Note_Base;
-
-   end Get_Note;
-
-   procedure Set_Note
-     (ID      : in RTEMS.ID;
-      Notepad : in RTEMS.Notepad_Index;
-      Note    : in RTEMS.Unsigned32;
-      Result  : out RTEMS.Status_Codes)
-   is
-      function Set_Note_Base
-        (ID      : RTEMS.ID;
-         Notepad : RTEMS.Notepad_Index;
-         Note    : RTEMS.Unsigned32)
-         return    RTEMS.Status_Codes;
-      pragma Import (C, Set_Note_Base, "rtems_task_set_note");
-   begin
-
-      Result := Set_Note_Base (ID, Notepad, Note);
-
-   end Set_Note;
-
    procedure Variable_Add
      (ID            : in RTEMS.ID;
       Task_Variable : in RTEMS.Address;