Add a stub for putchar, needed by libgnat.a

Irvise · Jan 6, 2023 · 6eb78e2 · 6eb78e2
1 parent 7160cdf
commit 6eb78e2
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 0 deletions.
diff --git a/src/neorv32.adb b/src/neorv32.adb
@@ -9,4 +9,10 @@ package body NeoRV32 is
       LEDS_Periph := Mod_To_LED(Value);
    end Set_Leds;
 
+   procedure Putchar (Char : Character)
+   is
+   begin
+      null;
+   end Putchar;
+
 end NeoRV32;
diff --git a/src/neorv32.ads b/src/neorv32.ads
@@ -4,4 +4,10 @@ package NeoRV32 with Preelaborate is
    type Mod_Byte is mod 2**OUT_out_Field'Size with Size => 32;
    procedure Set_Leds(Value : Mod_Byte);
    --  Set the leds to be turned on
+
+   procedure Putchar (Char : Character)
+   with Export,
+        Convention => C,
+        Link_Name => "putchar";
+
 end NeoRV32;