1310419Sdelphij-- Copyright 2011-2023 Free Software Foundation, Inc. 2290001Sglebius-- 3290001Sglebius-- This program is free software; you can redistribute it and/or modify 4290001Sglebius-- it under the terms of the GNU General Public License as published by 5290001Sglebius-- the Free Software Foundation; either version 3 of the License, or 6310419Sdelphij-- (at your option) any later version. 7290001Sglebius-- 8290001Sglebius-- This program is distributed in the hope that it will be useful, 9290001Sglebius-- but WITHOUT ANY WARRANTY; without even the implied warranty of 10290001Sglebius-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 11290001Sglebius-- GNU General Public License for more details. 12290001Sglebius-- 13290001Sglebius-- You should have received a copy of the GNU General Public License 14290001Sglebius-- along with this program. If not, see <http://www.gnu.org/licenses/>. 15290001Sglebius 16290001Sglebiuspackage body Pck is 17290001Sglebius procedure Do_Nothing (A : System.Address) is 18290001Sglebius begin 19290001Sglebius null; 20290001Sglebius end Do_Nothing; 21290001Sglebiusend Pck; 22290001Sglebius