Sfoglia il codice sorgente

* SUBTARGET defines

Michaël Van Canneyt 1 anno fa
parent
commit
124834fe29
1 ha cambiato i file con 2 aggiunte e 1 eliminazioni
  1. 2 1
      packages/pastojs/src/pas2jscompiler.pp

+ 2 - 1
packages/pastojs/src/pas2jscompiler.pp

@@ -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;