diff --git a/compiler/represent.lisp b/compiler/represent.lisp new file mode 100644 index 0000000000000000000000000000000000000000..12f1d8f55fd9e6a04d139a33499a8a88fc50789c --- /dev/null +++ b/compiler/represent.lisp @@ -0,0 +1,29 @@ +;;; -*- Package: C; Log: C.Log -*- +;;; +;;; ********************************************************************** +;;; This code was written as part of the Spice Lisp project at +;;; Carnegie-Mellon University, and has been placed in the public domain. +;;; If you want to use this code or any part of Spice Lisp, please contact +;;; Scott Fahlman (FAHLMAN@CMUC). +;;; ********************************************************************** +;;; +;;; This file contains the implementation independent code for the +;;; representation selection phase in the compiler. Representation selection +;;; decides whether to use non-descriptor representations for objects and emits +;;; the appropriate representation-specific move and coerce vops. +;;; +;;; Written by Rob MacLachlan +;;; +(in-package 'c) + +;;; REPRESENTATION-SELECT-1-BLOCK -- Internal +;;; +(defun representation-select-1-block (block) + (declare (type ir2-block block)) + ) + +;;; SELECT-TN-REPRESENTATION -- Internal +;;; +;;; Select the best representation for a normal TN. +;;; +(defun select-tn-representation (tn)