paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 03:19:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ RemoveUNderscore now also does not add underscores to generated parameter names

Browse Source
This commit is contained in:
michael 2000-03-28 06:55:42 +00:00
parent f50befd4d3
commit 920a042079
2 changed files with 28 additions and 8 deletions
utils/h2pas
h2pas.pash2pas.y

18
utils/h2pas/h2pas.pas
View File

@ -478,9 +478,16 @@ program h2pas;
end
else
begin
write(outfile,'_para',para);
{ not exact but unimportant }
length:=length+6;
If removeUnderscore then
begin
Write (outfile,'para',para);
Length:=(Length+5);
end
else
begin
write(outfile,'_para',para);
length:=length+6;
end;
end;
write(outfile,':');
if varpara then
@ -6599,7 +6606,10 @@ end.
(*
$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
* crash fixes
* removed double opening of inputfile

18
utils/h2pas/h2pas.y
View File

@ -474,9 +474,16 @@ program h2pas;
end
else
begin
write(outfile,'_para',para);
{ not exact but unimportant }
length:=length+6;
If removeUnderscore then
begin
Write (outfile,'para',para);
Length:=(Length+5);
end
else
begin
write(outfile,'_para',para);
length:=length+6;
end;
end;
write(outfile,':');
if varpara then
@ -2118,7 +2125,10 @@ end.
(*
$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
* crash fixes
* removed double opening of inputfile