ncurses 5.4

[ncurses.git] / Ada95 / samples / ncurses2-m.adb

diff --git a/Ada95/samples/ncurses2-m.adb b/Ada95/samples/ncurses2-m.adb
index d4f2b8a03286421c7d4e51239ab5360b2a970316..214c735bf9ac685ef6a9330ed7c0c39c53d93607 100644 (file)
--- a/Ada95/samples/ncurses2-m.adb
+++ b/Ada95/samples/ncurses2-m.adb
@@ -7,7 +7,7 @@
 --                                 B O D Y                                  --
 --                                                                          --
 ------------------------------------------------------------------------------
--- Copyright (c) 2000 Free Software Foundation, Inc.                        --
+-- Copyright (c) 2000,2004 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            --
@@ -35,7 +35,7 @@
 ------------------------------------------------------------------------------
 --  Author: Eugene V. Melaragno <aldomel@ix.netcom.com> 2000
 --  Version Control
---  $Revision: 1.1 $
+--  $Revision: 1.2 $
 --  Binding Version 01.00
 ------------------------------------------------------------------------------
 --  TODO use Default_Character where appropriate
@@ -302,7 +302,6 @@ package body ncurses2.m is
    c : Integer;
    c2 : Character;
    optind : Integer := 1; -- must be initialized to one.
-   type stringa is access String;
    optarg : getopt.stringa;
 
    length : Integer;