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

compiler: formatting

Browse Source 
git-svn-id: trunk@25476 -
This commit is contained in:
paul 2013-09-13 02:24:47 +00:00
parent 73dab82a7f
commit 60c0de6c09
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/pmodules.pas
View File

@ -424,7 +424,8 @@ implementation
try_to_consume(_OP_IN) then try_to_consume(_OP_IN) then
fn:=FixFileName(get_stringconst); fn:=FixFileName(get_stringconst);
{ Give a warning if lineinfo is loaded } { Give a warning if lineinfo is loaded }
if s='LINEINFO' then begin if s='LINEINFO' then
begin
Message(parser_w_no_lineinfo_use_switch); Message(parser_w_no_lineinfo_use_switch);
if (paratargetdbg in [dbg_dwarf2, dbg_dwarf3]) then if (paratargetdbg in [dbg_dwarf2, dbg_dwarf3]) then
s := 'LNFODWRF'; s := 'LNFODWRF';