diff options
| author | paul <paul@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2013-02-13 03:21:03 +0000 |
|---|---|---|
| committer | paul <paul@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2013-02-13 03:21:03 +0000 |
| commit | 8d86caf83ca056aedfbebe1c7d1cc39982230f6e (patch) | |
| tree | 07d9925b4d3e31c095707d9ec43ad7911e6870ab /compiler/scandir.pas | |
| parent | e4a19641e59aabf8cda252b32943d5bed4dda3c0 (diff) | |
| download | fpc-8d86caf83ca056aedfbebe1c7d1cc39982230f6e.tar.gz | |
compiler: set apptype using new SetAppType routine, add 'CONSOLE' define for console apptype.
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@23603 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/scandir.pas')
| -rw-r--r-- | compiler/scandir.pas | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/compiler/scandir.pas b/compiler/scandir.pas index 5f5ef3dfef..68a87ea562 100644 --- a/compiler/scandir.pas +++ b/compiler/scandir.pas @@ -252,20 +252,20 @@ unit scandir; current_scanner.skipspace; hs:=current_scanner.readid; if hs='GUI' then - apptype:=app_gui + SetApptype(app_gui) else if hs='CONSOLE' then - apptype:=app_cui + SetApptype(app_cui) else if (hs='NATIVE') and (target_info.system in systems_windows + systems_nativent) then - apptype:=app_native + SetApptype(app_native) else if (hs='FS') and (target_info.system in [system_i386_os2, system_i386_emx]) then - apptype:=app_fs + SetApptype(app_fs) else if (hs='TOOL') and (target_info.system in [system_powerpc_macos]) then - apptype:=app_tool + SetApptype(app_tool) else if (hs='ARM9') and (target_info.system in [system_arm_nds]) then - apptype:=app_arm9 + SetApptype(app_arm9) else if (hs='ARM7') and (target_info.system in [system_arm_nds]) then - apptype:=app_arm7 + SetApptype(app_arm7) else Message1(scan_w_unsupported_app_type,hs); end; |