paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 08:49:25 +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 else
if hs='FPCTARGET' then if hs='FPCTARGET' then
hs:=target_cpu_string hs:=target_cpu_string
else
if hs='FPCTARGETCPU' then
hs:=target_cpu_string
else
if hs='FPCTARGETOS' then
hs:=target_info.name
else else
hs:=getenv(hs); hs:=getenv(hs);
if hs='' then if hs='' then
@ -2656,7 +2662,10 @@ exit_label:
end. end.
{ {
$Log$ $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 * implicit result variable generation for assembler routines
* removed m_tp modeswitch, use m_tp7 or not(m_fpc) instead * removed m_tp modeswitch, use m_tp7 or not(m_fpc) instead