paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 12:39:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

[PATCH 171/188] adding float hex format

Browse Source 
From b70802cffbdda9ac30dc772ba1be7ea62656880d Mon Sep 17 00:00:00 2001
From: Dmitry Boyarintsev <skalogryz.lists@gmail.com>
Date: Fri, 27 Mar 2020 14:25:54 -0400

git-svn-id: branches/wasm@46167 -
This commit is contained in:
nickysn 2020-08-03 13:02:01 +00:00
parent 4a4a024eb6
commit d881c155b1
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
utils/wasmbin/watscanner.pas
View File

@ -29,7 +29,8 @@ type
wnfNo, // other than number wnfNo, // other than number
wnfInteger, // 00 wnfInteger, // 00
wnfHex, // 0xABC wnfHex, // 0xABC
wnfFloat // 0.000 wnfFloat, // 0.000
wnfFloatHex // 0x000.bced
); );
{ TWatScanner } { TWatScanner }
@ -266,6 +267,7 @@ begin
token:=weNumber; token:=weNumber;
case fmt of case fmt of
nfFloat: numformat := wnfFloat; nfFloat: numformat := wnfFloat;
nfFloatHex: numFormat := wnfFloatHex;
nfHex: numformat := wnfHex; nfHex: numformat := wnfHex;
else else
numformat := wnfInteger; numformat := wnfInteger;