paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 15:29:25 +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

15
compiler/pmodules.pas
View File

@ -424,12 +424,13 @@ implementation
try_to_consume(_OP_IN) then
fn:=FixFileName(get_stringconst);
{ Give a warning if lineinfo is loaded }
if s='LINEINFO' then begin
Message(parser_w_no_lineinfo_use_switch);
if (paratargetdbg in [dbg_dwarf2, dbg_dwarf3]) then
s := 'LNFODWRF';
sorg := s;
end;
if s='LINEINFO' then
begin
Message(parser_w_no_lineinfo_use_switch);
if (paratargetdbg in [dbg_dwarf2, dbg_dwarf3]) then
s := 'LNFODWRF';
sorg := s;
end;
{ Give a warning if objpas is loaded }
if s='OBJPAS' then
Message(parser_w_no_objpas_use_mode);
@ -484,7 +485,7 @@ implementation
tppumodule(pu.u).loadppu;
{ is our module compiled? then we can stop }
if current_module.state=ms_compiled then
exit;
exit;
{ add this unit to the dependencies }
pu.u.adddependency(current_module);
{ save crc values }