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

* SUBTARGET defines

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-12-24 15:08:06 +01:00
parent 126cc09037
commit 124834fe29
1 changed files with 2 additions and 1 deletions

3
packages/pastojs/src/pas2jscompiler.pp
View File

@ -4279,7 +4279,8 @@ procedure TPas2jsCompiler.SetSubTarget(AValue: String);
begin
if FSubTarget=AValue then Exit;
FSubTarget:=AValue;
//
AddDefine('FPC_SUBTARGET',UPPERCASE(aValue));
AddDefine('FPC_SUBTARGET_'+UPPERCASE(aValue));
end;
function TPas2jsCompiler.CreateImportList: TJSSourceElements;