paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 07:06:08 +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 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
Message(parser_w_no_lineinfo_use_switch); begin
if (paratargetdbg in [dbg_dwarf2, dbg_dwarf3]) then Message(parser_w_no_lineinfo_use_switch);
s := 'LNFODWRF'; if (paratargetdbg in [dbg_dwarf2, dbg_dwarf3]) then
sorg := s; s := 'LNFODWRF';
end; sorg := s;
end;
{ Give a warning if objpas is loaded } { Give a warning if objpas is loaded }
if s='OBJPAS' then if s='OBJPAS' then
Message(parser_w_no_objpas_use_mode); Message(parser_w_no_objpas_use_mode);
@ -484,7 +485,7 @@ implementation
tppumodule(pu.u).loadppu; tppumodule(pu.u).loadppu;
{ is our module compiled? then we can stop } { is our module compiled? then we can stop }
if current_module.state=ms_compiled then if current_module.state=ms_compiled then
exit; exit;
{ add this unit to the dependencies } { add this unit to the dependencies }
pu.u.adddependency(current_module); pu.u.adddependency(current_module);
{ save crc values } { save crc values }