From 287459fdae4832223f397d5791b13ab6576118a8 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Thu, 8 Mar 1990 13:58:48 +0000 Subject: [PATCH] Initial revision --- compiler/represent.lisp | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100644 compiler/represent.lisp diff --git a/compiler/represent.lisp b/compiler/represent.lisp new file mode 100644 index 000000000..12f1d8f55 --- /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) -- GitLab