From 098dd58df4cfb6a028af022dcc8e06cd909e80d3 Mon Sep 17 00:00:00 2001 From: Kartik Agaram Date: Wed, 14 Oct 2020 03:51:50 -0700 Subject: 7021 --- apps/tile/environment.mu | 4 ++-- apps/tile/main.mu | 4 ++++ 2 files changed, 6 insertions(+), 2 deletions(-) (limited to 'apps') diff --git a/apps/tile/environment.mu b/apps/tile/environment.mu index 9b45b43a..641f3166 100644 --- a/apps/tile/environment.mu +++ b/apps/tile/environment.mu @@ -283,7 +283,7 @@ $process:body: { break-if-!= # move cursor to initial word of sandbox var cursor-call-path-ah/eax: (addr handle call-path-element) <- get sandbox, cursor-call-path - allocate cursor-call-path-ah + initialize-path-from-sandbox sandbox, cursor-call-path-ah # move cursor to start of initial word var cursor-call-path-ah/eax: (addr handle call-path-element) <- get sandbox, cursor-call-path var cursor-call-path/eax: (addr call-path-element) <- lookup *cursor-call-path-ah @@ -299,7 +299,7 @@ $process:body: { break-if-!= # move cursor to final word of sandbox var cursor-call-path-ah/ecx: (addr handle call-path-element) <- get sandbox, cursor-call-path - allocate cursor-call-path-ah + initialize-path-from-sandbox sandbox, cursor-call-path-ah var cursor-call-path/eax: (addr call-path-element) <- lookup *cursor-call-path-ah var dest/eax: (addr handle word) <- get cursor-call-path, word final-word dest, dest diff --git a/apps/tile/main.mu b/apps/tile/main.mu index e9d1066f..611289f9 100644 --- a/apps/tile/main.mu +++ b/apps/tile/main.mu @@ -77,6 +77,10 @@ fn test { initialize-environment-with-fake-screen env, 5, 0xa var g/eax: grapheme <- copy 0x61 # 'a' process env, g + g <- copy 1 # 'ctrl-a' + process env, g + g <- copy 5 # 'ctrl-e' + process env, g render env } -- cgit 1.4.1-2-gfad0