+------------------------------------------------------------------------------\r
+-- ------------------ M a R T E O S ------------------- --\r
+------------------------------------------------------------------------------\r
+-- {MARTE_VERSION}\r
+--\r
+-- 'C o n t e x t'\r
+--\r
+-- Spec\r
+--\r
+-- File 'context.ads' By MAR\r
+--\r
+-- Processor context for non-local jumps\r
+--\r
+-- IMPORTANT: it must be compiled without any optimization!!\r
+--\r
+-- {MARTE_COPYRIGHT}\r
+--\r
+------------------------------------------------------------------------------\r
+-- {<MAR}\r
+--\r
+-- 02-08-07:version operativa.\r
+--\r
+-- {MAR>} -------------------------------------------------------------------\r
package Context is\r
\r
type Work_Acc is access procedure;\r