From 1f2f4d1529d47176b0e43a31691119b3bacf25e3 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Wed, 28 Feb 1990 18:20:35 +0000 Subject: [PATCH] Pass the correct args to lisp instead of skipping one. --- ldb/mips-assem.s | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/ldb/mips-assem.s b/ldb/mips-assem.s index 865a5313a..f7cd17ebc 100644 --- a/ldb/mips-assem.s +++ b/ldb/mips-assem.s @@ -1,4 +1,4 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/mips-assem.s,v 1.1 1990/02/24 19:37:12 wlott Exp $ */ +/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/mips-assem.s,v 1.2 1990/02/28 18:20:35 wlott Exp $ */ #include <machine/regdef.h> #include "lisp.h" @@ -101,9 +101,9 @@ call_into_lisp: lw A0, 0(ARGS) lw A1, 4(ARGS) lw A2, 8(ARGS) - lw A3, 16(ARGS) - lw A4, 20(ARGS) - lw A5, 24(ARGS) + lw A3, 12(ARGS) + lw A4, 16(ARGS) + lw A5, 20(ARGS) /* Calculate LRA */ la LRA, lra + type_OtherPointer -- GitLab