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

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

View File

@ -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

View File

@ -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