Macintosh-SW/mpw
1
0
Fork 0
mirror of https://github.com/ksherlock/mpw.git synced 2025-02-16 12:30:53 +00:00
Code Issues Projects Releases Wiki Activity

solaris

Browse Source
This commit is contained in:
Kelvin Sherlock 2016-08-02 21:30:27 -04:00
parent dd1679624c
commit ea4944551c
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
bin/loadtrap.rl
View File

@ -115,7 +115,10 @@ namespace {
machine lexer;
action addx {
value = (value << 4) + digittoint(fc);
int x = fc;
if (x >= '0' && x <= '9') x = x -'0';
else x = (x | 0x20) - 'a' + 10;
value = (value << 4) + x;
}
ws = [ \t];