paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 23:39:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

pastojs: external var in implementation

Browse Source 
git-svn-id: trunk@35908 -
This commit is contained in:
Mattias Gaertner 2017-04-23 07:44:39 +00:00
parent 1d34e96064
commit c9376c3c71
2 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1846,7 +1846,7 @@ const
ClassFieldModifiersAllowed = [vmClass,vmStatic,vmExternal,vmPublic];
RecordVarModifiersAllowed = [];
LocalVarModifiersAllowed = [];
ImplementationVarModifiersAllowed = [];
ImplementationVarModifiersAllowed = [vmExternal];
SectionVarModifiersAllowed = [vmExternal,vmPublic];
procedure RaiseVarModifierNotSupported(const Allowed: TVariableModifiers);

9
packages/pastojs/tests/tcmodules.pas
View File

@ -3555,7 +3555,7 @@ begin
Add('implementation');
Add('var');
Add(' d: double;');
Add(' i: longint;');
Add(' i: longint; external name ''$i'';');
Add('begin');
Add(' d:=nan;');
Add(' d:=uNit2.nan;');
@ -3572,13 +3572,12 @@ begin
'$impl.d = Global.NaN;',
'$impl.d = Global.NaN;',
'$impl.d = Global.NaN;',
'$impl.i = pas.unit2.iV;',
'$impl.i = pas.unit2.iV;',
'$impl.i = pas.unit2.iV;',
'$i = pas.unit2.iV;',
'$i = pas.unit2.iV;',
'$i = pas.unit2.iV;',
'']),
LinesToStr([ // implementation
'$impl.d = 0.0;',
'$impl.i = 0;',
'']) );
end;