home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / mp / mp_shiftl.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-07  |  975 b   |  35 lines
  1.  
  2. /*          Copyright (C) 1994 W. Schelter
  3.  
  4. This file is part of GNU Common Lisp, herein referred to as GCL
  5.  
  6. GCL is free software; you can redistribute it and/or modify it under
  7. the terms of the GNU LIBRARY GENERAL PUBLIC LICENSE as published by
  8. the Free Software Foundation; either version 2, or (at your option)
  9. any later version.
  10.  
  11. GCL is distributed in the hope that it will be useful, but WITHOUT
  12. ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  13. FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  14. for more details.
  15.  
  16. You should have received a copy of the GNU library general public
  17. license along with GCL; see the file COPYING.  If not, write to the
  18. Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  19. */
  20.  
  21. typedef unsigned long ulong;
  22. ulong hiremainder,overflow;
  23.  
  24. int shiftl(x,y)
  25.      ulong x,y;
  26. {
  27.   hiremainder=x>>(32-y);return (x<<y);
  28. }
  29.  
  30. int shiftlr(x,y)
  31.      ulong x,y;
  32. {
  33.   hiremainder=x<<(32-y);return (x>>y);
  34. }
  35.