paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 05:09:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

pas2js: less hints

Browse Source
This commit is contained in:
mattias 2022-02-08 13:33:33 +01:00
parent 3c5d6e7224
commit 952eee5ed0
2 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
utils/pas2js/dts2pas.pp
View File

@ -16,6 +16,7 @@
program dts2pas; program dts2pas;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
{AllowWriteln}
uses uses
Classes, SysUtils, StrUtils, CustApp, pascodegen, tstopas; Classes, SysUtils, StrUtils, CustApp, pascodegen, tstopas;

2
utils/pas2js/makestub.pp
View File

@ -36,6 +36,7 @@ Type
procedure TStubCreatorApplication.PrintUsage(S : String); procedure TStubCreatorApplication.PrintUsage(S : String);
begin begin
{AllowWriteln}
if S<>'' then if S<>'' then
Writeln('Error : ',S); Writeln('Error : ',S);
writeln('usage: stubcreator options'); writeln('usage: stubcreator options');
@ -49,6 +50,7 @@ begin
Writeln('-H --header=filename Add file header using contents of file "filename"'); Writeln('-H --header=filename Add file header using contents of file "filename"');
Writeln('-f --forwardclasses[=list]'); Writeln('-f --forwardclasses[=list]');
Writeln(' Generate forward definitions for list of classes. If empty, for all classes.'); Writeln(' Generate forward definitions for list of classes. If empty, for all classes.');
{AllowWriteln-}
ExitCode:=Ord(S<>''); ExitCode:=Ord(S<>'');
end; end;