From 9f73b1ce40c654f17fa49a8b075dc44483052c4a Mon Sep 17 00:00:00 2001 From: Irene Knapp Date: Thu, 28 May 2026 21:51:40 -0700 Subject: yeah the litpack* variants won't be needed again they were not a very effective optimization in light of the log-load stuff Force-Push: yes Change-Id: Ie0b51dddfda2b44c986a078580cc15be88193755 --- to-consider.e | 38 -------------------------------------- 1 file changed, 38 deletions(-) delete mode 100644 to-consider.e diff --git a/to-consider.e b/to-consider.e deleted file mode 100644 index 109464b..0000000 --- a/to-consider.e +++ /dev/null @@ -1,38 +0,0 @@ -~ This file is for stuff that should probably be deleted after flatassembler -~ is removed, but is being kept here temporarily so that those decisions can -~ be made in an organized fashion. - - -~ In the interests of reducing our executable's size, since a lot of it goes -~ to pack* invocations, we define words that combine lit with pack*. This -~ shaves roughly 700 bytes as of when it was added. -~ -~ TODO are these really used anymore? also, they're the only thing beforenext -~ is used for. note that they can't go in core.e because ' is not compatible -~ with the label transform. -~ -~ (output point, value -- output point) -: litpack64 - [ here @ - lods64 - :rax push-reg64 - ' pack64 entry-to-execution-token pack-beforenext - here ! ] ;asm -: litpack32 - [ here @ - lods64 - :rax push-reg64 - ' pack32 entry-to-execution-token pack-beforenext - here ! ] ;asm -: litpack16 - [ here @ - lods64 - :rax push-reg64 - ' pack16 entry-to-execution-token pack-beforenext - here ! ] ;asm -: litpack8 - [ here @ - lods64 - :rax push-reg64 - ' pack8 entry-to-execution-token pack-beforenext - here ! ] ;asm -- cgit 1.4.1