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

+ Added automatic use of unit macpas under mode macpas

Browse Source
This commit is contained in:
olle 2004-08-16 22:52:35 +00:00
parent f3f33a5fea
commit 189214f79b
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/pmodules.pas
View File

@ -461,6 +461,9 @@ implementation
{ Objpas unit? } { Objpas unit? }
if m_objpas in aktmodeswitches then if m_objpas in aktmodeswitches then
AddUnit('ObjPas'); AddUnit('ObjPas');
{ Macpas unit? }
if m_mac in aktmodeswitches then
AddUnit('MacPas');
{ Profile unit? Needed for go32v2 only } { Profile unit? Needed for go32v2 only }
if (cs_profile in aktmoduleswitches) and if (cs_profile in aktmoduleswitches) and
(target_info.system in [system_i386_go32v2,system_i386_watcom]) then (target_info.system in [system_i386_go32v2,system_i386_watcom]) then
@ -948,6 +951,10 @@ implementation
if (current_module.modulename^='OBJPAS') then if (current_module.modulename^='OBJPAS') then
exclude(aktmodeswitches,m_objpas); exclude(aktmodeswitches,m_objpas);
{ maybe turn off m_mac if we are compiling macpas }
if (current_module.modulename^='MACPAS') then
exclude(aktmodeswitches,m_mac);
parse_only:=true; parse_only:=true;
{ generate now the global symboltable } { generate now the global symboltable }
@ -1516,7 +1523,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.160 2004-07-06 20:23:25 peter Revision 1.161 2004-08-16 22:52:35 olle
+ Added automatic use of unit macpas under mode macpas
Revision 1.160 2004/07/06 20:23:25 peter
* remove unused and not loaded units before linking * remove unused and not loaded units before linking
Revision 1.159 2004/06/29 21:00:08 peter Revision 1.159 2004/06/29 21:00:08 peter