paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-23 18:50:09 +01:00
Code Issues Packages Projects Releases Wiki Activity

Remove wrong error message, Pascal Didier

Browse Source 
git-svn-id: trunk@29472 -
This commit is contained in:
pierre 2015-01-14 15:46:29 +00:00
parent ea3bc10fd1
commit 32cdcb8930
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/scanner.pas
View File

@ -3316,8 +3316,6 @@ type
begin begin
current_settings.pmessage:=nil; current_settings.pmessage:=nil;
mesgnb:=tokenreadsizeint; mesgnb:=tokenreadsizeint;
if mesgnb>0 then
Comment(V_Error,'Message recordind not yet supported');
prevmsg:=nil; prevmsg:=nil;
for i:=1 to mesgnb do for i:=1 to mesgnb do
begin begin