From 0067bb3e379a18568c903ff0f8b28bd08ec2b626 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Tue, 9 Nov 1993 04:30:49 +0000 Subject: [PATCH] Fix ordering and pagination. --- v7/src/compiler/machines/C/cout.scm | 42 ++++++++++++++--------------- 1 file changed, 21 insertions(+), 21 deletions(-) diff --git a/v7/src/compiler/machines/C/cout.scm b/v7/src/compiler/machines/C/cout.scm index 0e3c6dc3f..89d56a016 100644 --- a/v7/src/compiler/machines/C/cout.scm +++ b/v7/src/compiler/machines/C/cout.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: cout.scm,v 1.13 1993/11/09 04:30:06 gjr Exp $ +$Id: cout.scm,v 1.14 1993/11/09 04:30:49 gjr Exp $ Copyright (c) 1992-1993 Massachusetts Institute of Technology @@ -102,26 +102,6 @@ MIT in each case. |# suffix time-stamp))))) - (if *purification-root-object* - (define-object "PURIFICATION_ROOT" - (if (vector? (cdr *purification-root-object*)) - *purification-root-object* - (cons (car *purification-root-object*) - (list->vector - (reverse (cdr *purification-root-object*))))))) - - (define-object (special-label/debugging) - (let frob ((obj info-output-pathname)) - (cond ((pathname? obj) - (->namestring obj)) - ((pair? obj) - (cons (frob (car obj)) - (frob (cdr obj)))) - (else - obj)))) - - (define-object (special-label/environment) unspecific) - (define (subroutine-information-1) (cond ((eq? *invoke-interface* 'INFINITY) (values (list "") (list ""))) @@ -155,6 +135,26 @@ MIT in each case. |# (lambda (code-2 vars-2) (values (append code-1 code-2) (append vars-1 vars-2))))))) + + (if *purification-root-object* + (define-object "PURIFICATION_ROOT" + (if (vector? (cdr *purification-root-object*)) + *purification-root-object* + (cons (car *purification-root-object*) + (list->vector + (reverse (cdr *purification-root-object*))))))) + + (define-object (special-label/debugging) + (let frob ((obj info-output-pathname)) + (cond ((pathname? obj) + (->namestring obj)) + ((pair? obj) + (cons (frob (car obj)) + (frob (cdr obj)))) + (else + obj)))) + + (define-object (special-label/environment) unspecific) (let ((n 1) ; First word is vector header (initial-offset (label->offset initial-label))) -- 2.25.1