paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 08:09:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* FPCTARGETOS/FPCTARGETCPU added as internal environment variable

Browse Source
This commit is contained in:
peter 2002-01-27 21:44:26 +00:00
parent 3a853dae8e
commit 09fb8a2649
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/scanner.pas
View File

@ -642,6 +642,12 @@ implementation
else
if hs='FPCTARGET' then
hs:=target_cpu_string
else
if hs='FPCTARGETCPU' then
hs:=target_cpu_string
else
if hs='FPCTARGETOS' then
hs:=target_info.name
else
hs:=getenv(hs);
if hs='' then
@ -2656,7 +2662,10 @@ exit_label:
end.
{
$Log$
Revision 1.28 2002-01-24 18:25:50 peter
Revision 1.29 2002-01-27 21:44:26 peter
* FPCTARGETOS/FPCTARGETCPU added as internal environment variable
Revision 1.28 2002/01/24 18:25:50 peter
* implicit result variable generation for assembler routines
* removed m_tp modeswitch, use m_tp7 or not(m_fpc) instead