paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 01:29:29 +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_netbsd]
+ [system_i386_wdosx];
suppported_targets_x_smallr = system_linux
+ [system_i386_haiku]
+ [system_i386_beos];
{****************************************************************************
Defines
@ -1617,9 +1621,14 @@ begin
'p' : ; { Ignore used by fpc.pp }
'r' :
begin
rlinkpath:=Copy(more,2,length(More)-1);
DefaultReplacements(rlinkpath);
More:='';
if (target_info.system in suppported_targets_x_smallr) then
begin
rlinkpath:=Copy(more,2,length(More)-1);
DefaultReplacements(rlinkpath);
end
else
UnsupportedPara('-Xr');
more:='';
end;
'R' :
begin