Patch title: Release 85 bulk changes
Abstract:
File: /pliant/language/basic/cast.c
Key:
    Removed line
    Added line
// Copyright  Hubert Tonneau  hubert.tonneau@pliant.cx
//
// This program is free software; you can redistribute it and/or
// modify it under the terms of the GNU General Public License version 2
// as published by the Free Software Foundation.
// 
// This program 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
// version 2 along with this program; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.

/*
abstract
  text "Some basic casting functions"
*/
 

FUNCTION Address cast_Arrow_Address(Arrow *a) {
  return *a; }


FUNCTION Void cast_Address_Arrow(Address address,Arrow *arrow) {
  Arrow_set(arrow,address); }


FUNCTION Address trivial_cast(Address adr) {
  return adr; }