github.com/mikpe.pdp10-tools
1
0
Fork 0
mirror of https://github.com/mikpe/pdp10-tools.git synced 2026-03-09 12:30:57 +00:00
Code Issues Projects Releases Wiki Activity

as: fix scanning of hex numerals

Browse Source
This commit is contained in:
Mikael Pettersson
2023-10-07 14:03:16 +02:00
parent f9ea1d57ab
commit 1b39e2dc92
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
erlang/apps/as/src/scan.erl
View File

@@ -1,7 +1,7 @@
%%% -*- erlang-indent-level: 2 -*-
%%%
%%% scanner for pdp10-elf as
%%% Copyright (C) 2013-2021 Mikael Pettersson
%%% Copyright (C) 2013-2023 Mikael Pettersson
%%%
%%% This file is part of pdp10-tools.
%%%
@@ -299,11 +299,11 @@ do_number(ScanState, Location, Dig0) ->
case fgetc(ScanState) of
{error, _Reason} = Error -> Error;
eof -> badchar(ScanState, eof, "after 0x in number");
{ok, Ch} ->
case chval(Ch) of
ChVal when ChVal < 16 ->
do_number(ScanState, Location, _Base = 16, ChVal);
_Val -> badchar(ScanState, Ch, "after 0x in number")
{ok, Ch2} ->
case chval(Ch2) of
Ch2Val when Ch2Val < 16 ->
do_number(ScanState, Location, _Base = 16, Ch2Val);
_Val -> badchar(ScanState, Ch2, "after 0x in number")
end
end;
true ->