diff options
author | dos-reis <gdr@axiomatics.org> | 2011-01-27 21:12:57 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-01-27 21:12:57 +0000 |
commit | a31c0a21788a17c1bce15120225bc5a15fa1da33 (patch) | |
tree | 5f5cea97cd52114dee92a8b66ca802e7fd0fab08 /src/interp/i-analy.boot | |
parent | 8e0d0dbfa31e6a035ec5e954c192742ade763dda (diff) | |
download | open-axiom-a31c0a21788a17c1bce15120225bc5a15fa1da33.tar.gz |
Generate SVREF for simple vector slot refs.
Diffstat (limited to 'src/interp/i-analy.boot')
-rw-r--r-- | src/interp/i-analy.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-analy.boot b/src/interp/i-analy.boot index 6a75ba52..4949f043 100644 --- a/src/interp/i-analy.boot +++ b/src/interp/i-analy.boot @@ -195,7 +195,7 @@ pushDownOp?(op,n) == numMms := # ops for [.,targ,:argl] in ops repeat for arg in argl for i in 0.. repeat - targ = arg => setShellEntry(sameAsTarg,i,1 + sameAsTarg.i) + targ = arg => vectorRef(sameAsTarg,i) := 1 + sameAsTarg.i -- now see which args have their count = numMms ok := NIL for i in 0..(n-1) repeat |