paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 10:39:39 +02: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; break;
end; end;
'g' : 'g' :
if tf_no_pic_supported in target_info.flags then begin
message(scan_w_pic_ignored) if tf_no_pic_supported in target_info.flags then
else if UnsetBool(More, j) then begin
exclude(init_settings.moduleswitches,cs_create_pic) { consume a possible '-' coming after it }
else UnsetBool(More, j);
include(init_settings.moduleswitches,cs_create_pic); 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' : 'h' :
begin begin
val(copy(more,j+1,length(more)-j),heapsize,code); val(copy(more,j+1,length(more)-j),heapsize,code);