From 4db95ee8a33f5502870289ed849c80469e8a7ac2 Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Tue, 22 Nov 1994 04:01:23 +0000
Subject: [PATCH] Added profile-count hook entries.

---
 v8/src/compiler/machines/spectrum/dassm1.scm | 19 ++++++++++++-------
 1 file changed, 12 insertions(+), 7 deletions(-)

diff --git a/v8/src/compiler/machines/spectrum/dassm1.scm b/v8/src/compiler/machines/spectrum/dassm1.scm
index d72ad26a3..5bc1a2407 100644
--- a/v8/src/compiler/machines/spectrum/dassm1.scm
+++ b/v8/src/compiler/machines/spectrum/dassm1.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: dassm1.scm,v 1.1 1994/11/19 02:08:04 adams Exp $
+$Id: dassm1.scm,v 1.2 1994/11/22 04:01:23 adams Exp $
 
 Copyright (c) 1988-1994 Massachusetts Institute of Technology
 
@@ -142,9 +142,10 @@ MIT in each case. |#
   (fluid-let ((*unparser-radix* 16))
     (disassembler/for-each-instruction instruction-stream
       (lambda (offset instruction)
-	(disassembler/write-instruction symbol-table
-					offset
-					(lambda () (display-instruction offset instruction)))))))
+	(disassembler/write-instruction
+	 symbol-table
+	 offset
+	 (lambda () (display-instruction offset instruction)))))))
 
 (define (disassembler/for-each-instruction instruction-stream procedure)
   (let loop ((instruction-stream instruction-stream))
@@ -262,7 +263,6 @@ MIT in each case. |#
 	  (error "disassembler/write-linkage-section: Unknown section kind"
 		 kind)))
       (1+ (+ index length)))))
-
 
 (define-integrable (variable-cache-name cache)
   ((ucode-primitive primitive-object-ref 2) cache 1))
@@ -430,9 +430,12 @@ MIT in each case. |#
     closure-entry-bkpt-hook
     interrupt-procedure/new
     interrupt-continuation/new
+    interrupt-closure/new
     quotient
     remainder
-    interpreter-call))
+    interpreter-call
+    profile-count
+    profile-count/2))
 
 (define display-instruction
   (let ((prev-instruction '())
@@ -486,7 +489,9 @@ MIT in each case. |#
 	(match? '(external-label . ?) instruction))
 
       (define (offset->address field adjustment)
-	(+ (+ offset disassembler/base-address) field adjustment))
+	(remainder
+	 (+ (+ offset disassembler/base-address) field adjustment)
+	 #x100000000))
       (define (offset-targets)
 	(let ((res
 	       (map (lambda (@pco.n)
-- 
2.25.1