From f768331efc5c9ebfed7adcb478d95679581a221a Mon Sep 17 00:00:00 2001 From: CrLF0710 Date: Tue, 19 Jun 2012 20:41:42 +0800 Subject: [PATCH] Fix --- c1cc/c1.lisp | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/c1cc/c1.lisp b/c1cc/c1.lisp index b776206..14645ed 100644 --- a/c1cc/c1.lisp +++ b/c1cc/c1.lisp @@ -835,6 +835,8 @@ (.gen (elt (third type) i) scope) (.ins :opr 0 :mult :opc)) (.gen (first (last idxlist)) scope) + (loop for i from 1 to (1- (length idxlist)) + do(.ins :opr 0 :add :opc)) (.gen (apply '* (third type)) scope) (.mins :lar (if (eql lev (.lev scope)) -1 lev) (getf properties :addr) @@ -1063,6 +1065,9 @@ (.gen (elt (third type) i) scope) (.ins :opr 0 :mult :opc)) (.gen (first (last idxlist)) scope) + (loop for i from 1 to (1- (length idxlist)) + do(.ins :opr 0 :add :opc)) + (.gen (apply '* (third type)) scope) (.mins :sar (if (eql lev (.lev scope)) -1 lev) (getf properties :addr) -- 2.11.4.GIT