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

* Handle* is now virtual.

Browse Source 
git-svn-id: trunk@20011 -
This commit is contained in:
michael 2012-01-08 17:39:21 +00:00
parent c9eb7540bf
commit a74d24c989
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
packages/fcl-passrc/src/pscanner.pp
View File

@ -329,15 +329,16 @@ type
Procedure DoLog(Const Fmt : String; Args : Array of const;SkipSourceInfo : Boolean = False);overload;
procedure Error(const Msg: string);overload;
procedure Error(const Msg: string; Args: array of Const);overload;
procedure HandleDefine(Param: String);
procedure HandleIncludeFile(Param: String);
procedure HandleUnDefine(Param: String);
procedure PushStackItem;
function HandleMacro(AIndex: integer): TToken;
procedure HandleDefine(Param: String); virtual;
procedure HandleIncludeFile(Param: String); virtual;
procedure HandleUnDefine(Param: String);virtual;
function HandleMacro(AIndex: integer): TToken;virtual;
procedure PushStackItem; virtual;
function DoFetchTextToken: TToken;
function DoFetchToken: TToken;
procedure ClearFiles;
Procedure ClearMacros;
Procedure SetCurTokenString(AValue : string);
function LogEvent(E : TPScannerLogEvent) : Boolean; inline;
public
constructor Create(AFileResolver: TBaseFileResolver);
@ -988,6 +989,11 @@ begin
FMacros.Clear;
end;
procedure TPascalScanner.SetCurTokenString(AValue: string);
begin
FCurtokenString:=AValue;
end;
procedure TPascalScanner.OpenFile(const AFilename: string);
begin
Clearfiles;