Generic procedure: Util.Swap |
Description
Copyright © 2001, 2002 by Thomas Wolf.
This piece of software is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License as published
by the Free Software Foundation; either version 2, or (at your option)
any later version. This software is distributed in the hope that it will
be useful, but without any warranty; without even the implied
warranty of merchantability or fitness for a particular purpose.
See the GNU General Public License for more details. You should have
received a copy of the GNU General Public License with this distribution,
see file "GPL.txt". If not, write to the Free
Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307,
USA.
As a special exception from the GPL, if other files instantiate generics
from this unit, or you link this unit with other files to produce an
executable, this unit does not by itself cause the resulting executable
to be covered by the GPL. This exception does not however invalidate any
other reasons why the executable file might be covered by the GPL.
Version: 1.1
- Author:
Thomas Wolf (TW) <twolf AT acm DOT org>
- Purpose:
A generic swap routine.
- Tasking Semantics
Neither task- nor abortion-safe.
- Storage Semantics
No dynamic storage allocation.
Header
generic
type Item_Type is private;
procedure Util.Swap (Left, Right : in out Item_Type);
pragma Inline (Util.Swap);
pragma Preelaborate (Util.Swap);