mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-07 14:51:31 +02:00
+ Do not write descr nodes for module when updating
This commit is contained in:
parent
ad65b1d01e
commit
4a2124889f
@ -97,9 +97,12 @@ begin
|
||||
WriteLn(f, '-->');
|
||||
WriteLn(f);
|
||||
WriteLn(f, '<module name="', Result.Name, '">');
|
||||
WriteLn(f, '<short></short>');
|
||||
WriteLn(f, '<descr>');
|
||||
WriteLn(f, '</descr>');
|
||||
if not UpdateMode then
|
||||
begin
|
||||
WriteLn(f, '<short></short>');
|
||||
WriteLn(f, '<descr>');
|
||||
WriteLn(f, '</descr>');
|
||||
end;
|
||||
end
|
||||
else if WriteThisNode(Result) then
|
||||
begin
|
||||
@ -325,7 +328,10 @@ end.
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.10 2004-08-28 18:15:14 michael
|
||||
Revision 1.11 2004-08-28 18:18:59 michael
|
||||
+ Do not write descr nodes for module when updating
|
||||
|
||||
Revision 1.10 2004/08/28 18:15:14 michael
|
||||
+ Check whether outputfile not in inputfilenames
|
||||
|
||||
Revision 1.9 2004/08/28 18:04:06 michael
|
||||
|
Loading…
Reference in New Issue
Block a user