mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-24 00:59:07 +02:00
+ RemoveUNderscore now also does not add underscores to generated parameter names
This commit is contained in:
parent
f50befd4d3
commit
920a042079
@ -478,9 +478,16 @@ program h2pas;
|
|||||||
end
|
end
|
||||||
else
|
else
|
||||||
begin
|
begin
|
||||||
write(outfile,'_para',para);
|
If removeUnderscore then
|
||||||
{ not exact but unimportant }
|
begin
|
||||||
length:=length+6;
|
Write (outfile,'para',para);
|
||||||
|
Length:=(Length+5);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
write(outfile,'_para',para);
|
||||||
|
length:=length+6;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
write(outfile,':');
|
write(outfile,':');
|
||||||
if varpara then
|
if varpara then
|
||||||
@ -6599,7 +6606,10 @@ end.
|
|||||||
|
|
||||||
(*
|
(*
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.4 2000-03-27 21:39:19 peter
|
Revision 1.5 2000-03-28 06:55:42 michael
|
||||||
|
+ RemoveUNderscore now also does not add underscores to generated parameter names
|
||||||
|
|
||||||
|
Revision 1.4 2000/03/27 21:39:19 peter
|
||||||
+ -S, -T, -c modes added
|
+ -S, -T, -c modes added
|
||||||
* crash fixes
|
* crash fixes
|
||||||
* removed double opening of inputfile
|
* removed double opening of inputfile
|
||||||
|
@ -474,9 +474,16 @@ program h2pas;
|
|||||||
end
|
end
|
||||||
else
|
else
|
||||||
begin
|
begin
|
||||||
write(outfile,'_para',para);
|
If removeUnderscore then
|
||||||
{ not exact but unimportant }
|
begin
|
||||||
length:=length+6;
|
Write (outfile,'para',para);
|
||||||
|
Length:=(Length+5);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
write(outfile,'_para',para);
|
||||||
|
length:=length+6;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
write(outfile,':');
|
write(outfile,':');
|
||||||
if varpara then
|
if varpara then
|
||||||
@ -2118,7 +2125,10 @@ end.
|
|||||||
|
|
||||||
(*
|
(*
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.4 2000-03-27 21:39:20 peter
|
Revision 1.5 2000-03-28 06:56:31 michael
|
||||||
|
+ RemoveUNderscore now also does not add underscores to generated parameter names
|
||||||
|
|
||||||
|
Revision 1.4 2000/03/27 21:39:20 peter
|
||||||
+ -S, -T, -c modes added
|
+ -S, -T, -c modes added
|
||||||
* crash fixes
|
* crash fixes
|
||||||
* removed double opening of inputfile
|
* removed double opening of inputfile
|
||||||
|
Loading…
Reference in New Issue
Block a user