From dafb902a44680240227e5d414a8cbe21d5a328a3 Mon Sep 17 00:00:00 2001 From: FeralChild64 Date: Fri, 17 Jul 2020 21:12:17 +0200 Subject: [PATCH] saved few bytes in hariable handling code --- src/basic/engine/varstr_free.s | 3 +-- src/basic/engine/varstr_garbage_collect.s | 6 +----- 2 files changed, 2 insertions(+), 7 deletions(-) diff --git a/src/basic/engine/varstr_free.s b/src/basic/engine/varstr_free.s index 6eef2046..c86cf3f7 100644 --- a/src/basic/engine/varstr_free.s +++ b/src/basic/engine/varstr_free.s @@ -70,9 +70,8 @@ varstr_free_inside: bcc !+ inc DSCPNT+2 !: - // Put the size - this value will be used by the garbage collector // XXX maybe size-1 would be better? + // Put the size-1, garbage collector will make use of this value - inc DSCPNT+0 lda DSCPNT+0 ldy #$00 diff --git a/src/basic/engine/varstr_garbage_collect.s b/src/basic/engine/varstr_garbage_collect.s index e13dd68c..d68a3ca2 100644 --- a/src/basic/engine/varstr_garbage_collect.s +++ b/src/basic/engine/varstr_garbage_collect.s @@ -87,7 +87,7 @@ varstr_garbage_collect_check_bptr: dew TXTPTR #endif - // Check whether the back-pointer is NULL + // Copy the back-pointer to OLDTXT, check if it is NULL ldy #$00 @@ -293,11 +293,7 @@ varstr_garbage_collect_unused: ldy #$00 lda (TXTPTR), y - - // Decrement string length by 1, it will be easier to perform calculations - tax - dex // Increase INDEX (shift offset) by string length + back-pointer length