X-Git-Url: https://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=Ada95%2Fsamples%2Fstatus.ads;h=66fd19e938f07296a1d2179ae6d5e9d0df9b6185;hp=4b81b0a5907fd486d05dd8951c7f4ee11aba9426;hb=d61c3c6a831d18ef0ed6f797ac97d60fffc2f158;hpb=661078ddbde3ce0f3b06e95642fbb9b5fef7dca1 diff --git a/Ada95/samples/status.ads b/Ada95/samples/status.ads index 4b81b0a5..66fd19e9 100644 --- a/Ada95/samples/status.ads +++ b/Ada95/samples/status.ads @@ -7,7 +7,8 @@ -- S P E C -- -- -- ------------------------------------------------------------------------------ --- Copyright (c) 1998 Free Software Foundation, Inc. -- +-- Copyright 2020 Thomas E. Dickey -- +-- Copyright 1998-2002,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 +34,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.11 $ +-- Binding Version 01.00 ------------------------------------------------------------------------------ -- This package has been contributed by Laurent Pautet -- -- -- @@ -44,6 +46,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;