home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / ada / adaed-1.11 / adaed-1 / Adaed-1.11.0a / ipar.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-02-07  |  609 b   |  30 lines
  1. /*
  2.  * Copyright (C) 1985-1992  New York University
  3.  * 
  4.  * This file is part of the Ada/Ed-C system.  See the Ada/Ed README file for
  5.  * warranty (none) and distribution info and also the GNU General Public
  6.  * License for more details.
  7.  
  8.  */
  9.  
  10. #include <stdlib.h>
  11. #include "ipar.h"
  12. #include "int.h"
  13. #include "iparprots.h"
  14.  
  15. int fetch_and_store(int *i, int j)                        /*;fetch_and_store*/
  16. {
  17.     int temp = *i;
  18.     *i = j;
  19.     return temp;
  20. }
  21.  
  22. char *pointer_fetch_and_store(char **i, char *j)    /*;pointer_fetch_and_store*/
  23. {
  24.     /* fetch_and_store rewritten to accept pointer arguments */
  25.  
  26.     char *temp = *i;
  27.     *i = j;
  28.     return temp;
  29. }
  30.