paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 12:39:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

* don't fail on -Cg- for platforms that do not support PIC

Browse Source 
git-svn-id: trunk@9383 -
This commit is contained in:
peter 2007-12-02 18:29:27 +00:00
parent 5c96c4a671
commit 6b06d551a1
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/options.pas
View File

@ -506,12 +506,18 @@ begin
break;
end;
'g' :
if tf_no_pic_supported in target_info.flags then
message(scan_w_pic_ignored)
else if UnsetBool(More, j) then
exclude(init_settings.moduleswitches,cs_create_pic)
else
include(init_settings.moduleswitches,cs_create_pic);
begin
if tf_no_pic_supported in target_info.flags then
begin
{ consume a possible '-' coming after it }
UnsetBool(More, j);
message(scan_w_pic_ignored);
end
else if UnsetBool(More, j) then
exclude(init_settings.moduleswitches,cs_create_pic)
else
include(init_settings.moduleswitches,cs_create_pic);
end;
'h' :
begin
val(copy(more,j+1,length(more)-j),heapsize,code);