Files
sydpkgs/pkgs/lad/case-insensitivity.patch
T
msyds 6450642be3
Build and populate cache / tests (sydpkgs, nixpkgs=https://github.com/NixOS/nixpkgs/archive/refs/heads/nixpkgs-unstable.tar.gz, sydpkgs) (push) Has been cancelled
lad: case-insensitivity
2026-06-21 20:25:56 -06:00

27 lines
755 B
Diff

diff --git a/5.1/assembler.lua b/5.1/assembler.lua
index fb89b18df2..e5f0b2753b 100644
--- a/5.1/assembler.lua
+++ b/5.1/assembler.lua
@@ -100,7 +100,7 @@
label <- <name> ":"
string <- '"' ('\\' / '\"' / !'"' .)* '"'
instruction <- ( <s> ( {<label>} / <number>)? <s> <ln>? <s> {<op>} ( <s> {<param>} )+ <s> ( %nl )+ ) -> {}
- op <- [A-Z]+
+ op <- [A-Za-z]+
param <- <register> / <number> / <name> / <string>
register <- ( "R[" <number> "]" )
s <- ( !%nl %s )*
@@ -310,10 +310,10 @@
local b = 3
local c = 4
if check_label(table[1]) == nil then
- op = table[1]
+ op = string.upper (table[1])
else
set_label(table[1], parsed, n)
- op = table[2]
+ op = string.upper (table[2])
a = 3
b = 4
c = 5