home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mitsch75.zip / scheme-7_5_17-src.zip / scheme-7.5.17 / src / compiler / machines / sparc / coerce.scm < prev    next >
Encoding:
Text File  |  1999-01-02  |  2.6 KB  |  60 lines
  1. #| -*-Scheme-*-
  2.  
  3. $Id: coerce.scm,v 1.2 1999/01/02 06:06:43 cph Exp $
  4. $MC68020-Header: coerce.scm,v 1.10 88/08/31 05:56:37 GMT cph Exp $
  5.  
  6. Copyright (c) 1987, 1988, 1989, 1990, 1999 Massachusetts Institute of Technology
  7.  
  8. This program is free software; you can redistribute it and/or modify
  9. it under the terms of the GNU General Public License as published by
  10. the Free Software Foundation; either version 2 of the License, or (at
  11. your option) any later version.
  12.  
  13. This program is distributed in the hope that it will be useful, but
  14. WITHOUT ANY WARRANTY; without even the implied warranty of
  15. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  16. General Public License for more details.
  17.  
  18. You should have received a copy of the GNU General Public License
  19. along with this program; if not, write to the Free Software
  20. Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  21. |#
  22.  
  23. (declare (usual-integrations))
  24.  
  25. ;;;; SPARC coercions
  26.  
  27. ;;; Coercion top level
  28.  
  29. (define make-coercion
  30.   (coercion-maker
  31.    `((UNSIGNED . ,coerce-unsigned-integer)
  32.      (SIGNED . ,coerce-signed-integer))))
  33.  
  34. (define coerce-1-bit-unsigned (make-coercion 'UNSIGNED 1))
  35. (define coerce-2-bit-unsigned (make-coercion 'UNSIGNED 2))
  36. (define coerce-3-bit-unsigned (make-coercion 'UNSIGNED 3))
  37. (define coerce-4-bit-unsigned (make-coercion 'UNSIGNED 4))
  38. (define coerce-5-bit-unsigned (make-coercion 'UNSIGNED 5))
  39. (define coerce-6-bit-unsigned (make-coercion 'UNSIGNED 6))
  40. (define coerce-8-bit-unsigned (make-coercion 'UNSIGNED 8))
  41. (define coerce-9-bit-unsigned (make-coercion 'UNSIGNED 9))
  42. (define coerce-10-bit-unsigned (make-coercion 'UNSIGNED 10))
  43. (define coerce-11-bit-unsigned (make-coercion 'UNSIGNED 11))
  44. (define coerce-13-bit-unsigned (make-coercion 'UNSIGNED 13))
  45. (define coerce-15-bit-unsigned (make-coercion 'UNSIGNED 15))
  46. (define coerce-16-bit-unsigned (make-coercion 'UNSIGNED 16))
  47. (define coerce-20-bit-unsigned (make-coercion 'UNSIGNED 20))
  48. (define coerce-22-bit-unsigned (make-coercion 'UNSIGNED 22))
  49. (define coerce-25-bit-unsigned (make-coercion 'UNSIGNED 25))
  50. (define coerce-26-bit-unsigned (make-coercion 'UNSIGNED 26))
  51. (define coerce-30-bit-unsigned (make-coercion 'UNSIGNED 30))
  52. (define coerce-32-bit-unsigned (make-coercion 'UNSIGNED 32))
  53.  
  54. (define coerce-16-bit-signed (make-coercion 'SIGNED 16))
  55. (define coerce-13-bit-signed (make-coercion 'SIGNED 13))
  56. (define coerce-22-bit-signed (make-coercion 'SIGNED 22))
  57. (define coerce-26-bit-signed (make-coercion 'SIGNED 26))
  58. (define coerce-30-bit-signed (make-coercion 'SIGNED 30))
  59. (define coerce-32-bit-signed (make-coercion 'SIGNED 32))
  60.