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

fcl-passrc: pastree adapted for pas2js

Browse Source 
git-svn-id: trunk@39908 -
This commit is contained in:
Mattias Gaertner 2018-10-09 11:20:21 +00:00
parent 27a9d53dd2
commit 4f37b61cdb
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
packages/fcl-passrc/src/pastree.pp
View File

@ -234,8 +234,8 @@ type
{ TPrimitiveExpr }
TPrimitiveExpr = class(TPasExpr)
Value : AnsiString;
constructor Create(AParent : TPasElement; AKind: TPasExprKind; const AValue : Ansistring); overload;
Value : String;
constructor Create(AParent : TPasElement; AKind: TPasExprKind; const AValue : string); overload;
function GetDeclaration(full : Boolean) : string; override;
end;
@ -1524,7 +1524,7 @@ Type
TPasImplLabelMark = class(TPasImplElement)
public
LabelId: AnsiString;
LabelId: String;
end;
{ TPassTreeVisitor }
@ -1535,8 +1535,8 @@ Type
end;
const
AccessNames: array[TArgumentAccess] of string[9] = ('', 'const ', 'var ', 'out ','constref ');
AccessDescriptions: array[TArgumentAccess] of string[9] = ('default', 'const', 'var', 'out','constref');
AccessNames: array[TArgumentAccess] of string{$ifdef fpc}[9]{$endif} = ('', 'const ', 'var ', 'out ','constref ');
AccessDescriptions: array[TArgumentAccess] of string{$ifdef fpc}[9]{$endif} = ('default', 'const', 'var', 'out','constref');
AllVisibilities: TPasMemberVisibilities =
[visDefault, visPrivate, visProtected, visPublic,
visPublished, visAutomated];
@ -2407,7 +2407,11 @@ begin
if FRefCount = 0 then
begin
FRefCount:=High(FRefCount);
{$ifdef pas2js}
Destroy;
{$else}
Free;
{$endif}
end
else if FRefCount=High(FRefCount) then
begin
@ -4912,7 +4916,7 @@ begin
if full then ;
end;
constructor TPrimitiveExpr.Create(AParent : TPasElement; AKind: TPasExprKind; const AValue : Ansistring);
constructor TPrimitiveExpr.Create(AParent : TPasElement; AKind: TPasExprKind; const AValue : string);
begin
inherited Create(AParent,AKind, eopNone);
Value:=AValue;