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