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

Merged revision(s) 28237 from branches/svenbarth/packages:

Browse Source 
Add a new target flag which determines whether the target supports dynamic packages or not.

systems.pas:
  + new flag tf_supports_packages
pmodules.pas, proc_package:
  * error out when flag tf_supports_packages is not set for the current target
msg/errore.msg:
  + error message for when tf_supports_packages is missing and a package file is compiled
........

git-svn-id: trunk@32978 -
This commit is contained in:
svenbarth 2016-01-22 15:35:41 +00:00
parent 01af8f9cc4
commit e9d8fadb58
3 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/msg/errore.msg
View File

@ -413,7 +413,7 @@ scan_e_illegal_hugepointernormalization=02098_E_Illegal argument for HUGEPOINTER
# #
# Parser # Parser
# #
# 03343 is the last used one # 03344 is the last used one
# #
% \section{Parser messages} % \section{Parser messages}
% This section lists all parser messages. The parser takes care of the % This section lists all parser messages. The parser takes care of the
@ -1544,6 +1544,9 @@ parser_e_no_genfuncs_in_interfaces=03342_E_Generic methods are not allowed in in
parser_e_genfuncs_cannot_be_virtual=03343_E_Generic methods can not be virtual parser_e_genfuncs_cannot_be_virtual=03343_E_Generic methods can not be virtual
% Generic methods can not be declared as virtual as there'd need to be a VMT entry for each % Generic methods can not be declared as virtual as there'd need to be a VMT entry for each
% specialization. This is however not possible with a static VMT. % specialization. This is however not possible with a static VMT.
parser_e_packages_not_supported=03344_E_Dynamic packages not supported for target OS
% Support for dynamic packages is not implemented for the specified target OS
% or it is at least not tested and thus disabled.
% %
% %
% \end{description} % \end{description}

3
compiler/pmodules.pas
View File

@ -1666,6 +1666,9 @@ type
init_procinfo:=nil; init_procinfo:=nil;
finalize_procinfo:=nil;} finalize_procinfo:=nil;}
if not (tf_supports_packages in target_info.flags) then
message1(parser_e_packages_not_supported,target_info.name);
if not RelocSectionSetExplicitly then if not RelocSectionSetExplicitly then
RelocSection:=true; RelocSection:=true;

5
compiler/systems.pas
View File

@ -148,7 +148,10 @@ interface
{ indicates that the default value of the ts_cld target switch is 'on' for this target } { indicates that the default value of the ts_cld target switch is 'on' for this target }
tf_cld, tf_cld,
{ indicates that the default value of the ts_x86_far_procs_push_odd_bp target switch is 'on' for this target } { indicates that the default value of the ts_x86_far_procs_push_odd_bp target switch is 'on' for this target }
tf_x86_far_procs_push_odd_bp tf_x86_far_procs_push_odd_bp,
{ indicates that this target can use dynamic packages otherwise an
error will be generated if a package file is compiled }
tf_supports_packages
); );
psysteminfo = ^tsysteminfo; psysteminfo = ^tsysteminfo;