paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 15:39:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

pas2js: set version 0.9.26

Browse Source 
git-svn-id: trunk@39304 -
This commit is contained in:
Mattias Gaertner 2018-06-25 18:21:04 +00:00
parent 5c0a27a974
commit 5228cada27
3 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-passrc/src/pasresolver.pp
View File

@ -211,6 +211,8 @@ Works:
- $writeableconst off $J-
ToDo:
- $warn identifier ON|off|error|default
- $H-hintpos$H+
- $pop, $push
- $RTTI inherited|explicit
- range checking:
@ -231,7 +233,6 @@ ToDo:
- anonymous functions
- TPasFileType
- labels
- $warn identifier ON|off|error|default
- $zerobasedstrings on|off
Debug flags: -d<x>

2
packages/pastojs/src/pas2jscompiler.pp
View File

@ -26,7 +26,7 @@ uses
const
VersionMajor = 0;
VersionMinor = 9;
VersionRelease = 25;
VersionRelease = 26;
VersionExtra = '+beta';
DefaultConfigFile = 'pas2js.cfg';

9
utils/pas2js/webidl2pas.pp
View File

@ -17,7 +17,7 @@ program webidl2pas;
{$mode objfpc}{$H+}
uses
Classes, SysUtils, CustApp, webidlscanner, webidltopas, pascodegen,typinfo;
Classes, SysUtils, CustApp, webidlscanner, webidltopas, pascodegen, typinfo;
type
@ -28,7 +28,7 @@ type
FWebIDLToPas: TWebIDLToPas;
function Checkoption(Var O: TCOnversionOPtions; C: TCOnversionOPtion;
const AShort: Char; const aLong: String): Boolean;
procedure DoConvertLog(Sender: TObject; LogType: TCodegenLogType; const Msg: String);
procedure DoConvertLog(Sender: TObject; {%H-}LogType: TCodegenLogType; const Msg: String);
function GetInputFileName: String;
function GetOutputFileName: String;
function GetUnitName: String;
@ -58,7 +58,9 @@ end;
procedure TWebIDLToPasApplication.DoConvertLog(Sender: TObject;
LogType: TCodegenLogType; const Msg: String);
begin
{AllowWriteln}
Writeln(Msg);
{AllowWriteln-}
end;
function TWebIDLToPasApplication.GetOutputFileName: String;
@ -176,7 +178,7 @@ end;
procedure TWebIDLToPasApplication.WriteHelp(const Msg: string);
begin
{ add your help code here }
{AllowWriteln}
if (Msg<>'') then
Writeln(StdErr,'Error : ',Msg);
writeln(StdErr,'Usage: ', ExeName, ' [options]');
@ -197,6 +199,7 @@ begin
Writeln(StdErr,'-v --verbose Output some diagnostic information');
Writeln(StdErr,'-x --extra=units Extra units to put in uses clause (comma separated list)');
ExitCode:=Ord(Msg<>'');
{AllowWriteln-}
end;
var