mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 04:59:25 +02:00
* compilation for arm target fixed
git-svn-id: trunk@2408 -
This commit is contained in:
parent
9991b859ca
commit
4662a12fd5
@ -274,11 +274,11 @@ interface
|
||||
{ for error info in pp.pas }
|
||||
parser_current_file : string = '';
|
||||
|
||||
{$ifdef m68k}
|
||||
{$if defined(m68k) or defined(arm)}
|
||||
{ PalmOS resources }
|
||||
palmos_applicationname : string = 'FPC Application';
|
||||
palmos_applicationid : string[4] = 'FPCA';
|
||||
{$endif m68k}
|
||||
{$endif defined(m68k) or defined(arm)}
|
||||
|
||||
{$ifdef powerpc}
|
||||
{ default calling convention used on MorphOS }
|
||||
|
@ -208,8 +208,6 @@ implementation
|
||||
end;
|
||||
|
||||
|
||||
|
||||
|
||||
begin
|
||||
ccasenode:=tppccasenode;
|
||||
end.
|
||||
|
@ -122,6 +122,12 @@ program pp;
|
||||
{$endif CPUDEFINED}
|
||||
{$define CPUDEFINED}
|
||||
{$endif MIPS}
|
||||
{$ifdef AVR}
|
||||
{$ifdef CPUDEFINED}
|
||||
{$fatal ONLY one of the switches for the CPU type must be defined}
|
||||
{$endif CPUDEFINED}
|
||||
{$define CPUDEFINED}
|
||||
{$endif AVR}
|
||||
{$ifndef CPUDEFINED}
|
||||
{$fatal A CPU type switch must be defined}
|
||||
{$endif CPUDEFINED}
|
||||
|
@ -217,7 +217,7 @@ implementation
|
||||
Message1(scan_e_illegal_asmmode_specifier,s);
|
||||
end;
|
||||
|
||||
{$ifdef m68k}
|
||||
{$if defined(m68k) or defined(arm)}
|
||||
procedure dir_appid;
|
||||
begin
|
||||
if target_info.system<>system_m68k_palmos then
|
||||
@ -237,7 +237,7 @@ implementation
|
||||
current_scanner.skipspace;
|
||||
palmos_applicationname:=current_scanner.readcomment;
|
||||
end;
|
||||
{$endif m68k}
|
||||
{$endif defined(m68k) or defined(arm)}
|
||||
|
||||
procedure dir_apptype;
|
||||
var
|
||||
|
Loading…
Reference in New Issue
Block a user