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

[PATCH 059/188] extending docomments with ofs paramter. Making the

Browse Source 
method virtual

From 22f22415e5c5aa8b1315e7e14a3cfe5dffdb8e33 Mon Sep 17 00:00:00 2001
From: Dmitry Boyarintsev <skalogryz.lists@gmail.com>
Date: Tue, 3 Mar 2020 10:18:50 -0500

git-svn-id: branches/wasm@46055 -
This commit is contained in:
nickysn 2020-08-03 12:59:47 +00:00
parent 91571e6569
commit 22a229fa21
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
utils/wasmbin/watscanner.pas
View File

@ -28,7 +28,7 @@ type
TWatScanner = class(TObject)
protected
procedure DoComment(const cmt: string);
procedure DoComment(ofs: Integer; const cmt: string); virtual;
function CommentIsSymbol(const cmt: string): Boolean;
public
buf : string;
@ -142,7 +142,7 @@ end;
{ TWatScanner }
procedure TWatScanner.DoComment(const cmt: string);
procedure TWatScanner.DoComment(ofs: Integer; const cmt: string);
begin
end;
@ -205,7 +205,7 @@ begin
token:=weAsmSymbol;
done:=true;
end else
DoComment(cmt);
DoComment(ofs, cmt);
end else begin
done:=true;
if buf[idx] = '(' then begin