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

* give an error for -Xr on platforms where this parameter is ignored

Browse Source 
git-svn-id: trunk@13640 -
This commit is contained in:
Jonas Maebe 2009-09-03 12:48:06 +00:00
parent fe20d5546e
commit eb12fdb617
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/options.pas
View File

@ -120,6 +120,10 @@ const
+ [system_i386_freebsd] + [system_i386_freebsd]
+ [system_i386_netbsd] + [system_i386_netbsd]
+ [system_i386_wdosx]; + [system_i386_wdosx];
suppported_targets_x_smallr = system_linux
+ [system_i386_haiku]
+ [system_i386_beos];
{**************************************************************************** {****************************************************************************
Defines Defines
@ -1617,9 +1621,14 @@ begin
'p' : ; { Ignore used by fpc.pp } 'p' : ; { Ignore used by fpc.pp }
'r' : 'r' :
begin begin
rlinkpath:=Copy(more,2,length(More)-1); if (target_info.system in suppported_targets_x_smallr) then
DefaultReplacements(rlinkpath); begin
More:=''; rlinkpath:=Copy(more,2,length(More)-1);
DefaultReplacements(rlinkpath);
end
else
UnsupportedPara('-Xr');
more:='';
end; end;
'R' : 'R' :
begin begin