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

* changed default packenum for MacPas from 1 to 2 (compatible with Metrowerks)

Browse Source 
git-svn-id: trunk@1971 -
This commit is contained in:
Jonas Maebe 2005-12-16 12:22:39 +00:00
parent 398cafb1a0
commit ef2a0c7ddf
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/scanner.pas
View File

@ -309,9 +309,11 @@ implementation
end;
{ Default enum packing for delphi/tp7 }
if (m_tp7 in aktmodeswitches) or
(m_delphi in aktmodeswitches) or
(m_mac in aktmodeswitches) then
(m_delphi in aktmodeswitches) then
aktpackenum:=1
else if (m_mac in aktmodeswitches) then
{ compatible with Metrowerks Pascal }
aktpackenum:=2
else
aktpackenum:=4;
if changeinit then