diff options
| author | Kathy Gray | 2014-11-23 21:20:33 +0000 |
|---|---|---|
| committer | Kathy Gray | 2014-11-23 21:20:33 +0000 |
| commit | 0f247b8325aca3e053b131fab6f1b00ac3098847 (patch) | |
| tree | 4458c3e32bb6ab5d02ec6ebafe24a9e74f6ad080 /src | |
| parent | 3f7089d0f098877dc642d871167249c5ec6f3384 (diff) | |
slice Only when I should and not to erase an register write
Diffstat (limited to 'src')
| -rw-r--r-- | src/lem_interp/interp.lem | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/lem_interp/interp.lem b/src/lem_interp/interp.lem index 22f705f2..82d8c7c8 100644 --- a/src/lem_interp/interp.lem +++ b/src/lem_interp/interp.lem @@ -2261,7 +2261,7 @@ and create_write_message_or_update mode t_level value l_env l_mem is_top_level ( let len = ((abs (n1-n2)) +1) in ((Action (Write_reg regf (Just (n1,n2)) - (if (vector_length value) > len + (if (vector_length value) <= len then (update_vector_start n1 len value) else (slice_vector value n1 n2))) s,lm,le), Just (next_builder lexp_builder)) |