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

[PATCH 066/188] adding skipAsmSym to the scanner

Browse Source 
From d69e132ed543deb8d51f097b9adaba00dcd9769d Mon Sep 17 00:00:00 2001
From: Dmitry Boyarintsev <skalogryz.lists@gmail.com>
Date: Wed, 4 Mar 2020 09:23:14 -0500

git-svn-id: branches/wasm@46062 -
This commit is contained in:
nickysn 2020-08-03 12:59:54 +00:00
parent b7aa824c5a
commit 2bbcd26b95
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

@ -39,6 +39,8 @@ type
token : TWatToken; token : TWatToken;
resText : string; resText : string;
asmCmd : string; asmCmd : string;
skipAsmSym : Boolean;
procedure SetSource(const abuf: string); procedure SetSource(const abuf: string);
function Next: Boolean; function Next: Boolean;
@ -219,7 +221,7 @@ begin
// comment until the ;) // comment until the ;)
cmt := ScanToSubstr(buf, idx, ';)'); cmt := ScanToSubstr(buf, idx, ';)');
if CommentIsSymbol(cmt) then begin if not skipAsmSym and CommentIsSymbol(cmt) then begin
token:=weAsmSymbol; token:=weAsmSymbol;
done:=true; done:=true;
end else end else