git-svn-id: http://www.frescor.org/private/svn/frescor/fosa/trunk@906
35b4ef3e-fd22-0410-ab77-
dab3279adceb
-- {MAR>} -------------------------------------------------------------------
with System.Machine_Code; use System.Machine_Code;
with Ada.Unchecked_Conversion;
-- {MAR>} -------------------------------------------------------------------
with System.Machine_Code; use System.Machine_Code;
with Ada.Unchecked_Conversion;
+with Hardware_Interface;
package body Non_Local_Jump is
use Basic_Integer_Types;
package body Non_Local_Jump is
use Basic_Integer_Types;
Asm ("1: popl %%ebp;",
No_Output_Operands,
No_Input_Operands, "", True);
Asm ("1: popl %%ebp;",
No_Output_Operands,
No_Input_Operands, "", True);
+ Hardware_Interface.Interrupts_Enabled;
end Save_Context;
------------------
end Save_Context;
------------------