Skip to content
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 0 additions & 2 deletions rp2040_src/s-bbbosu.adb
Original file line number Diff line number Diff line change
Expand Up @@ -164,8 +164,6 @@ package body System.BB.Board_Support is

Install_Trap_Handler
(Interrupt_Handler'Address, Interrupt_Request_Vector);

Enable_Interrupts (Priority'Last);
end Initialize_Board;

package body Time is
Expand Down
2 changes: 0 additions & 2 deletions rp2350_src/s-bbbosu.adb
Original file line number Diff line number Diff line change
Expand Up @@ -199,8 +199,6 @@ package body System.BB.Board_Support is

Install_Trap_Handler
(Interrupt_Handler'Address, Interrupt_Request_Vector);

Enable_Interrupts (Priority'Last);
end Initialize_Board;

package body Time is
Expand Down
9 changes: 9 additions & 0 deletions tests/testcases/test_exceptions/opt.py
Original file line number Diff line number Diff line change
@@ -0,0 +1,9 @@
import support.target_info
import pytest


def check_test_conditions(target_info: support.target_info.TargetInfo):
if target_info.runtime_profile != "embedded":
pytest.skip(
f"Test is not applicable for '{target_info.runtime_profile}' runtimes"
)
27 changes: 27 additions & 0 deletions tests/testcases/test_exceptions/test.adb
Original file line number Diff line number Diff line change
@@ -0,0 +1,27 @@
with Ada.Text_IO;
with Ada.Exceptions;

-- Test with all the tasking stuff in the closure too

with Ada.Real_Time;
pragma Unreferenced (Ada.Real_Time);

procedure Test is
procedure Raise_Ex with No_Inline is
begin
raise Constraint_Error with "Hello";
end Raise_Ex;
begin
Raise_Ex;
Ada.Text_IO.Put_Line ("Exception not caught!");
Ada.Text_IO.Put_Line ("===TEST COMPLETE===");

exception
when Ex : Constraint_Error =>
Ada.Text_IO.Put_Line ("Caught: " & Ada.Exceptions.Exception_Name (Ex));

Ada.Text_IO.Put_Line
("Message: " & Ada.Exceptions.Exception_Message (Ex));

Ada.Text_IO.Put_Line ("===TEST COMPLETE===");
end Test;
3 changes: 3 additions & 0 deletions tests/testcases/test_exceptions/test.out
Original file line number Diff line number Diff line change
@@ -0,0 +1,3 @@
Caught: CONSTRAINT_ERROR
Message: Hello
===TEST COMPLETE===
Loading