URL
https://opencores.org/ocsvn/scarts/scarts/trunk
Details |
Compare with Previous |
View Log
Line No. |
Rev |
Author |
Line |
1 |
12 |
jlechner |
-- C39006C1.ADA
|
2 |
|
|
|
3 |
|
|
-- Grant of Unlimited Rights
|
4 |
|
|
--
|
5 |
|
|
-- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687,
|
6 |
|
|
-- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained
|
7 |
|
|
-- unlimited rights in the software and documentation contained herein.
|
8 |
|
|
-- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making
|
9 |
|
|
-- this public release, the Government intends to confer upon all
|
10 |
|
|
-- recipients unlimited rights equal to those held by the Government.
|
11 |
|
|
-- These rights include rights to use, duplicate, release or disclose the
|
12 |
|
|
-- released technical data and computer software in whole or in part, in
|
13 |
|
|
-- any manner and for any purpose whatsoever, and to have or permit others
|
14 |
|
|
-- to do so.
|
15 |
|
|
--
|
16 |
|
|
-- DISCLAIMER
|
17 |
|
|
--
|
18 |
|
|
-- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR
|
19 |
|
|
-- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED
|
20 |
|
|
-- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE
|
21 |
|
|
-- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE
|
22 |
|
|
-- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A
|
23 |
|
|
-- PARTICULAR PURPOSE OF SAID MATERIAL.
|
24 |
|
|
--*
|
25 |
|
|
-- PACKAGE BODY SUBUNIT FOR C39006C0M.ADA.
|
26 |
|
|
|
27 |
|
|
-- TBN 8/19/86
|
28 |
|
|
|
29 |
|
|
SEPARATE (C39006C0M)
|
30 |
|
|
PACKAGE BODY C39006C1 IS
|
31 |
|
|
BEGIN
|
32 |
|
|
IF VAR = IDENT_INT(1) THEN
|
33 |
|
|
ADD1 (VAR);
|
34 |
|
|
FAILED ("PROGRAM_ERROR NOT RAISED");
|
35 |
|
|
END IF;
|
36 |
|
|
EXCEPTION
|
37 |
|
|
WHEN PROGRAM_ERROR =>
|
38 |
|
|
NULL;
|
39 |
|
|
WHEN OTHERS =>
|
40 |
|
|
FAILED ("UNEXPECTED EXCEPTION RAISED");
|
41 |
|
|
END C39006C1;
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.