From 47157049b665f0da33fbafcaa3e5ade77891ff52 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Tue, 26 Oct 1993 17:27:06 +0000 Subject: [PATCH] Fix casting problem in move-frame-up. --- v7/src/compiler/machines/C/rules3.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/v7/src/compiler/machines/C/rules3.scm b/v7/src/compiler/machines/C/rules3.scm index 471ea57c6..8e74bdafe 100644 --- a/v7/src/compiler/machines/C/rules3.scm +++ b/v7/src/compiler/machines/C/rules3.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: rules3.scm,v 1.1 1993/06/08 06:13:32 gjr Exp $ +$Id: rules3.scm,v 1.2 1993/10/26 17:27:06 gjr Exp $ Copyright (c) 1992-1993 Massachusetts Institute of Technology @@ -236,10 +236,11 @@ MIT in each case. |# (else (LAP ,pfx "{\n\t SCHEME_OBJECT * frame_top = &stack_pointer[" ,frame-size "];\n\t" + ,pfx "SCHEME_OBJECT * new_frame = " ,new-frame ";\n\t" ,pfx " long frame_size = " ,frame-size ";\n\t" ,pfx " while ((--frame_size) >= 0)" - ,pfx " *--" ,new-frame " = *--frame_top;\n\t" - ,pfx " stack_pointer = " ,new-frame ";\n\t" + ,pfx " *--new_frame = *--frame_top;\n\t" + ,pfx " stack_pointer = new_frame;\n\t" ,pfx "}\n\t")))) ;;; DYNAMIC-LINK instructions have a , , -- 2.25.1