paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 21:29:42 +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 }
TPrimitiveExpr = class(TPasExpr) TPrimitiveExpr = class(TPasExpr)
Value : AnsiString; Value : String;
constructor Create(AParent : TPasElement; AKind: TPasExprKind; const AValue : Ansistring); overload; constructor Create(AParent : TPasElement; AKind: TPasExprKind; const AValue : string); overload;
function GetDeclaration(full : Boolean) : string; override; function GetDeclaration(full : Boolean) : string; override;
end; end;
@ -1524,7 +1524,7 @@ Type
TPasImplLabelMark = class(TPasImplElement) TPasImplLabelMark = class(TPasImplElement)
public public
LabelId: AnsiString; LabelId: String;
end; end;
{ TPassTreeVisitor } { TPassTreeVisitor }
@ -1535,8 +1535,8 @@ Type
end; end;
const const
AccessNames: array[TArgumentAccess] of string[9] = ('', 'const ', 'var ', 'out ','constref '); AccessNames: array[TArgumentAccess] of string{$ifdef fpc}[9]{$endif} = ('', 'const ', 'var ', 'out ','constref ');
AccessDescriptions: array[TArgumentAccess] of string[9] = ('default', 'const', 'var', 'out','constref'); AccessDescriptions: array[TArgumentAccess] of string{$ifdef fpc}[9]{$endif} = ('default', 'const', 'var', 'out','constref');
AllVisibilities: TPasMemberVisibilities = AllVisibilities: TPasMemberVisibilities =
[visDefault, visPrivate, visProtected, visPublic, [visDefault, visPrivate, visProtected, visPublic,
visPublished, visAutomated]; visPublished, visAutomated];
@ -2407,7 +2407,11 @@ begin
if FRefCount = 0 then if FRefCount = 0 then
begin begin
FRefCount:=High(FRefCount); FRefCount:=High(FRefCount);
{$ifdef pas2js}
Destroy;
{$else}
Free; Free;
{$endif}
end end
else if FRefCount=High(FRefCount) then else if FRefCount=High(FRefCount) then
begin begin
@ -4912,7 +4916,7 @@ begin
if full then ; if full then ;
end; end;
constructor TPrimitiveExpr.Create(AParent : TPasElement; AKind: TPasExprKind; const AValue : Ansistring); constructor TPrimitiveExpr.Create(AParent : TPasElement; AKind: TPasExprKind; const AValue : string);
begin begin
inherited Create(AParent,AKind, eopNone); inherited Create(AParent,AKind, eopNone);
Value:=AValue; Value:=AValue;