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

+ support {$message info ...}, resolves #30654

Browse Source 
+ test

git-svn-id: trunk@38346 -
This commit is contained in:
florian 2018-02-25 15:50:58 +00:00
parent 70519c0837
commit 7d35ced2d9
3 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -15885,6 +15885,7 @@ tests/webtbs/tw30626b.pp svneol=native#text/pascal
tests/webtbs/tw3063.pp svneol=native#text/plain tests/webtbs/tw3063.pp svneol=native#text/plain
tests/webtbs/tw30639.pp svneol=native#text/plain tests/webtbs/tw30639.pp svneol=native#text/plain
tests/webtbs/tw3064.pp svneol=native#text/plain tests/webtbs/tw3064.pp svneol=native#text/plain
tests/webtbs/tw30654.pp svneol=native#text/pascal
tests/webtbs/tw30666.pp svneol=native#text/plain tests/webtbs/tw30666.pp svneol=native#text/plain
tests/webtbs/tw30706.pp svneol=native#text/plain tests/webtbs/tw30706.pp svneol=native#text/plain
tests/webtbs/tw3073.pp svneol=native#text/plain tests/webtbs/tw3073.pp svneol=native#text/plain

3
compiler/scandir.pas
View File

@ -912,6 +912,9 @@ unit scandir;
else else
if (hs='NOTE') then if (hs='NOTE') then
w:=scan_n_user_defined w:=scan_n_user_defined
else
if (hs='INFO') then
w:=scan_i_user_defined
else else
Message1(scan_w_illegal_directive,hs); Message1(scan_w_illegal_directive,hs);
end; end;

3
tests/webtbs/tw30654.pp Normal file
View File

@ -0,0 +1,3 @@
{$message info 'Test'}
begin
end.