paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 20:39:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: pas2js: set fixed modeswitches

Browse Source
This commit is contained in:
mattias 2022-05-28 19:56:51 +02:00
parent e9948b6fa4
commit e8afecf3c7
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/linkscanner.pas
View File

@ -276,6 +276,8 @@ const
cmsISOLike_Mod] cmsISOLike_Mod]
); );
cmAllModesWithGeneric = [cmDELPHI,cmDELPHIUNICODE,cmOBJFPC]; cmAllModesWithGeneric = [cmDELPHI,cmDELPHIUNICODE,cmOBJFPC];
Pas2jsFixedModeswitches = [cmsArray2dynarray,cmsArrayOperators,
cmsFunctionReferences,cmsAnonymousFunctions];
// upper case (see fpc/compiler/globtype.pas modeswitchstr ) // upper case (see fpc/compiler/globtype.pas modeswitchstr )
CompilerModeSwitchNames: array[TCompilerModeSwitch] of string=( CompilerModeSwitchNames: array[TCompilerModeSwitch] of string=(
@ -4666,6 +4668,8 @@ begin
FCompilerMode:=AValue; FCompilerMode:=AValue;
OldModeSwitches:=FCompilerModeSwitches; OldModeSwitches:=FCompilerModeSwitches;
FCompilerModeSwitches:=DefaultCompilerModeSwitches[CompilerMode]; FCompilerModeSwitches:=DefaultCompilerModeSwitches[CompilerMode];
if FPascalCompiler=pcPas2js then
FCompilerModeSwitches:=FCompilerModeSwitches+Pas2jsFixedModeswitches;
FNestedComments:=cmsNested_comment in CompilerModeSwitches; FNestedComments:=cmsNested_comment in CompilerModeSwitches;
Values.Variables[CompilerModeVars[FCompilerMode]]:='1'; Values.Variables[CompilerModeVars[FCompilerMode]]:='1';