From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Sat, 26 Nov 1994 19:06:58 +0000 (+0000)
Subject: Added code to process PROFILE-COUNT and PROFILE-DATA
X-Git-Tag: 20090517-FFI~6949
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=fc094f33876a8d1823d0750b45b0df58b95d2b5d;p=mit-scheme.git

Added code to process PROFILE-COUNT and PROFILE-DATA
---

diff --git a/v8/src/compiler/back/lapgn1.scm b/v8/src/compiler/back/lapgn1.scm
index b99614e7f..4af35c576 100644
--- a/v8/src/compiler/back/lapgn1.scm
+++ b/v8/src/compiler/back/lapgn1.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: lapgn1.scm,v 1.1 1994/11/19 01:54:17 adams Exp $
+$Id: lapgn1.scm,v 1.2 1994/11/26 19:06:58 adams Exp $
 
 Copyright (c) 1987-1994 Massachusetts Institute of Technology
 
@@ -177,6 +177,7 @@ MIT in each case. |#
 	      (*register-map* map)
 	      (*preserved-registers* '())
 	      (*recomputed-registers* '()))
+    (profile-info/start)
     (set-bblock-instructions! bblock
 			      (let loop ((rinst (bblock-instructions bblock)))
 				(if (rinst-next rinst)
@@ -184,6 +185,7 @@ MIT in each case. |#
 				      (LAP ,@instructions
 					   ,@(loop (rinst-next rinst))))
 				    (cgen-rinst rinst))))
+    (profile-info/end)
     (set-bblock-register-map! bblock *register-map*)))
 
 (define (cgen-rinst rinst)
@@ -216,6 +218,11 @@ MIT in each case. |#
 		 (LAP)))
 	    ((eq? (car rtl) 'RESTORE)
 	     (cgen-restore rtl loop dead-registers))
+	    ((eq? (car rtl) 'PROFILE-DATA)
+	     (profile-info/add (second (second rtl)))
+	     (if *insert-rtl?*
+		 (LAP (COMMENT (RTL ,rtl)))
+		 (LAP)))
 	    (else
 	     (error "CGEN-RINST: No matching rules" rtl)
 	     (loop rtl dead-registers))))))
@@ -397,4 +404,4 @@ MIT in each case. |#
 (define (lap:comment comment)
   (if compiler:generate-lap-files?
       (LAP (COMMENT (LAP ,comment)))
-      (LAP)))
\ No newline at end of file
+      (LAP)))