From a41e3963d24590c9b77b6b1c06f4836e0deb517b Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Mon, 13 Jul 1987 22:04:47 +0000 Subject: [PATCH] Add maximum-padding-length definition. --- v7/src/compiler/machines/bobcat/assmd.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/v7/src/compiler/machines/bobcat/assmd.scm b/v7/src/compiler/machines/bobcat/assmd.scm index e0b253b05..6d358dc04 100644 --- a/v7/src/compiler/machines/bobcat/assmd.scm +++ b/v7/src/compiler/machines/bobcat/assmd.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/assmd.scm,v 1.29 1987/03/19 00:52:27 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/assmd.scm,v 1.30 1987/07/13 22:04:47 jinx Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -38,6 +38,8 @@ MIT in each case. |# (define addressing-granularity 8) (define scheme-object-width 32) +;; Instruction length is always a multiple of 16 +(define maximum-padding-length 16) (define make-nmv-header) (let () -- 2.25.1