From fc094f33876a8d1823d0750b45b0df58b95d2b5d Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Sat, 26 Nov 1994 19:06:58 +0000 Subject: [PATCH] Added code to process PROFILE-COUNT and PROFILE-DATA --- v8/src/compiler/back/lapgn1.scm | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) 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))) -- 2.25.1