paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-10 15:05:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

* compilation for arm target fixed

Browse Source 
git-svn-id: trunk@2408 -
This commit is contained in:
florian 2006-02-02 17:26:18 +00:00
parent 9991b859ca
commit 4662a12fd5
4 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/globals.pas
View File

@ -274,11 +274,11 @@ interface
{ for error info in pp.pas } { for error info in pp.pas }
parser_current_file : string = ''; parser_current_file : string = '';
{$ifdef m68k} {$if defined(m68k) or defined(arm)}
{ PalmOS resources } { PalmOS resources }
palmos_applicationname : string = 'FPC Application'; palmos_applicationname : string = 'FPC Application';
palmos_applicationid : string[4] = 'FPCA'; palmos_applicationid : string[4] = 'FPCA';
{$endif m68k} {$endif defined(m68k) or defined(arm)}
{$ifdef powerpc} {$ifdef powerpc}
{ default calling convention used on MorphOS } { default calling convention used on MorphOS }

2
compiler/powerpc/nppcset.pas
View File

@ -208,8 +208,6 @@ implementation
end; end;
begin begin
ccasenode:=tppccasenode; ccasenode:=tppccasenode;
end. end.

6
compiler/pp.pas
View File

@ -122,6 +122,12 @@ program pp;
{$endif CPUDEFINED} {$endif CPUDEFINED}
{$define CPUDEFINED} {$define CPUDEFINED}
{$endif MIPS} {$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} {$ifndef CPUDEFINED}
{$fatal A CPU type switch must be defined} {$fatal A CPU type switch must be defined}
{$endif CPUDEFINED} {$endif CPUDEFINED}

4
compiler/scandir.pas
View File

@ -217,7 +217,7 @@ implementation
Message1(scan_e_illegal_asmmode_specifier,s); Message1(scan_e_illegal_asmmode_specifier,s);
end; end;
{$ifdef m68k} {$if defined(m68k) or defined(arm)}
procedure dir_appid; procedure dir_appid;
begin begin
if target_info.system<>system_m68k_palmos then if target_info.system<>system_m68k_palmos then
@ -237,7 +237,7 @@ implementation
current_scanner.skipspace; current_scanner.skipspace;
palmos_applicationname:=current_scanner.readcomment; palmos_applicationname:=current_scanner.readcomment;
end; end;
{$endif m68k} {$endif defined(m68k) or defined(arm)}
procedure dir_apptype; procedure dir_apptype;
var var