home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / pcl / src-16f.lha / compiler / loadbackend.lisp < prev    next >
Encoding:
Text File  |  1992-05-19  |  1.7 KB  |  74 lines
  1. ;;; -*- Package: C; Log: C.Log -*-
  2. ;;;
  3. ;;; **********************************************************************
  4. ;;; This code was written as part of the CMU Common Lisp project at
  5. ;;; Carnegie Mellon University, and has been placed in the public domain.
  6. ;;; If you want to use this code or any part of CMU Common Lisp, please contact
  7. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
  8. ;;;
  9. (ext:file-comment
  10.   "$Header: loadbackend.lisp,v 1.6 92/03/21 19:44:30 wlott Exp $")
  11. ;;;
  12. ;;; **********************************************************************
  13. ;;;
  14. ;;; Load the backend of the compiler.
  15. ;;;
  16.  
  17. (in-package "C")
  18.  
  19. (load "vm:vm-macs")
  20. (if (target-featurep :rt)
  21.     (load "vm:params")
  22.     (load "vm:parms"))
  23. (load "vm:objdef")
  24. (load "vm:interr")
  25. (load "assem:support")
  26. (load "vm:macros")
  27. (when (target-featurep :gengc)
  28.   (load "vm:vm-utils"))
  29. (load "vm:utils")
  30.  
  31. (load "vm:vm")
  32. (load "vm:insts")
  33. (unless (target-featurep :rt)
  34.   (load "vm:primtype"))
  35. (load "vm:move")
  36. (load "vm:sap")
  37. (load "vm:system")
  38. (load "vm:char")
  39. (if (target-featurep :rt)
  40.     (if (target-featurep :afpa)
  41.     (load "vm:afpa")
  42.     (load "vm:mc68881"))
  43.     (load "vm:float"))
  44.  
  45. (load "vm:memory")
  46. (load "vm:static-fn")
  47. (load "vm:arith")
  48. (load "vm:cell")
  49. (load "vm:subprim")
  50. (load "vm:debug")
  51. (load "vm:c-call")
  52. (load "vm:print")
  53. (load "vm:alloc")
  54. (load "vm:call")
  55. (load "vm:nlx")
  56. (load "vm:values")
  57. (load "vm:array")
  58. (load "vm:pred")
  59. (load "vm:type-vops")
  60.  
  61. (load "assem:assem-rtns")
  62.  
  63. (unless (or (target-featurep :rt)
  64.         (target-featurep :gengc))
  65.   (load "assem:bit-bash"))
  66. (load "assem:array")
  67. (load "assem:arith")
  68. (unless (target-featurep :gengc)
  69.   (load "assem:alloc"))
  70.  
  71. (load "c:pseudo-vops")
  72.  
  73. (check-move-function-consistency)
  74.