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

fcl-passrc: fixed $message warn

Browse Source 
git-svn-id: trunk@37824 -
This commit is contained in:
Mattias Gaertner 2017-12-26 22:26:09 +00:00
parent df5a9333a7
commit b7b3c7a32d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2654,7 +2654,7 @@ begin
case UpperCase(Kind) of case UpperCase(Kind) of
'HINT': MsgType:=mtHint; 'HINT': MsgType:=mtHint;
'NOTE': MsgType:=mtNote; 'NOTE': MsgType:=mtNote;
'WARN': MsgType:=mtError; 'WARN': MsgType:=mtWarning;
'ERROR': MsgType:=mtError; 'ERROR': MsgType:=mtError;
'FATAL': MsgType:=mtFatal; 'FATAL': MsgType:=mtFatal;
else else
@ -2666,7 +2666,7 @@ begin
if MsgType in [mtFatal,mtError] then if MsgType in [mtFatal,mtError] then
HandleError(Param) HandleError(Param)
else else
DoLog(MsgType,nUserDefined,SUserDefined,[Param]) DoLog(MsgType,nUserDefined,SUserDefined,[Param]);
end; end;
procedure TPascalScanner.HandleUnDefine(Param: String); procedure TPascalScanner.HandleUnDefine(Param: String);