paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 12:06:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

pas2js: allow $ScopedEnums

Browse Source 
git-svn-id: trunk@37817 -
This commit is contained in:
Mattias Gaertner 2017-12-26 14:46:38 +00:00
parent c88dcf8f83
commit 3b37083979
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
utils/pas2js/docs/translation.html
View File

@ -2523,6 +2523,7 @@ End.
<li>{$NOTE text}</li> <li>{$NOTE text}</li>
<li>{$HINT text}</li> <li>{$HINT text}</li>
<li>{$M+}, {$TypeInfo on}: switches default visibility for class members from public to published</li> <li>{$M+}, {$TypeInfo on}: switches default visibility for class members from public to published</li>
<li>{$ScopedEnums on|off} disabled/default: propagate enums to global scope, enable: needs fqn e.g. TEnumType.EnumValue.</li>
</ul> </ul>
Defines: Defines:
<ul> <ul>
@ -2616,7 +2617,6 @@ End.
<li>Runtime checks: Overflow -Co, $Q</li> <li>Runtime checks: Overflow -Co, $Q</li>
<li>Runtime checks: Range -Cr, $R</li> <li>Runtime checks: Range -Cr, $R</li>
<li>Runtime checks: Typecast -CR</li> <li>Runtime checks: Typecast -CR</li>
<li>Scoped enums</li>
<li>Set of char, boolean, custom range</li> <li>Set of char, boolean, custom range</li>
<li>Type alias, e.g. type TTranslateString = type string;</li> <li>Type alias, e.g. type TTranslateString = type string;</li>
<li>Variant records</li> <li>Variant records</li>

1
utils/pas2js/pas2jscompiler.pp
View File

@ -699,6 +699,7 @@ begin
Scanner.AllowedModeSwitches:=msAllPas2jsModeSwitches; Scanner.AllowedModeSwitches:=msAllPas2jsModeSwitches;
Scanner.ReadOnlyModeSwitches:=msAllPas2jsModeSwitchesReadOnly; Scanner.ReadOnlyModeSwitches:=msAllPas2jsModeSwitchesReadOnly;
Scanner.CurrentModeSwitches:=p2jsMode_SwitchSets[Compiler.Mode]; Scanner.CurrentModeSwitches:=p2jsMode_SwitchSets[Compiler.Mode];
Scanner.AllowedBoolSwitches:=msAllPas2jsBoolSwitches;
// Note: some Scanner.Options are set by TPasResolver // Note: some Scanner.Options are set by TPasResolver
for i:=0 to Compiler.Defines.Count-1 do for i:=0 to Compiler.Defines.Count-1 do
begin begin