X-Git-Url: https://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=Ada95%2Fsamples%2Fstatus.ads;h=37ad5f1c1b9ddf63d42cb10fa0456427cbda35cb;hp=4b81b0a5907fd486d05dd8951c7f4ee11aba9426;hb=d66080c21038ad4feb2e41a0c4e517d5b4a03ab2;hpb=661078ddbde3ce0f3b06e95642fbb9b5fef7dca1 diff --git a/Ada95/samples/status.ads b/Ada95/samples/status.ads index 4b81b0a5..37ad5f1c 100644 --- a/Ada95/samples/status.ads +++ b/Ada95/samples/status.ads @@ -7,7 +7,7 @@ -- S P E C -- -- -- ------------------------------------------------------------------------------ --- Copyright (c) 1998 Free Software Foundation, Inc. -- +-- Copyright (c) 1998,2003 Free Software Foundation, Inc. -- -- -- -- Permission is hereby granted, free of charge, to any person obtaining a -- -- copy of this software and associated documentation files (the -- @@ -33,10 +33,11 @@ -- sale, use or other dealings in this Software without prior written -- -- authorization. -- ------------------------------------------------------------------------------ --- Author: Juergen Pfeifer 1996 +-- Author: Laurent Pautet +-- Modified by: Juergen Pfeifer, 1997 -- Version Control --- $Revision: 1.3 $ --- Binding Version 00.93 +-- $Revision: 1.10 $ +-- Binding Version 01.00 ------------------------------------------------------------------------------ -- This package has been contributed by Laurent Pautet -- -- -- @@ -44,6 +45,10 @@ with Ada.Interrupts.Names; package Status is + pragma Warnings (Off); -- the next pragma exists since 3.11p + pragma Unreserve_All_Interrupts; + pragma Warnings (On); + protected Process is procedure Stop; function Continue return Boolean;