Forráskód Böngészése

pas2js: less hints

mattias 3 éve
szülő
commit
952eee5ed0
2 módosított fájl, 3 hozzáadás és 0 törlés
  1. 1 0
      utils/pas2js/dts2pas.pp
  2. 2 0
      utils/pas2js/makestub.pp

+ 1 - 0
utils/pas2js/dts2pas.pp

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

+ 2 - 0
utils/pas2js/makestub.pp

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