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

* set default set packing to 1 for TP/Delphi mode (mantis #15088)

Browse Source 
git-svn-id: trunk@14177 -
This commit is contained in:
Jonas Maebe 2009-11-14 23:54:10 +00:00
parent 5d01732128
commit af80b89f55
3 changed files with 20 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -10027,6 +10027,7 @@ tests/webtbs/tw14812.pp svneol=native#text/plain
tests/webtbs/tw1485.pp svneol=native#text/plain tests/webtbs/tw1485.pp svneol=native#text/plain
tests/webtbs/tw1489.pp svneol=native#text/plain tests/webtbs/tw1489.pp svneol=native#text/plain
tests/webtbs/tw1501.pp svneol=native#text/plain tests/webtbs/tw1501.pp svneol=native#text/plain
tests/webtbs/tw15088.pp svneol=native#text/plain
tests/webtbs/tw1532.pp svneol=native#text/plain tests/webtbs/tw1532.pp svneol=native#text/plain
tests/webtbs/tw1539.pp svneol=native#text/plain tests/webtbs/tw1539.pp svneol=native#text/plain
tests/webtbs/tw1567.pp svneol=native#text/plain tests/webtbs/tw1567.pp svneol=native#text/plain

7
compiler/scanner.pas
View File

@ -374,10 +374,13 @@ implementation
include(init_settings.moduleswitches,cs_support_goto); include(init_settings.moduleswitches,cs_support_goto);
end; end;
{ Default enum packing for delphi/tp7 } { Default enum and set packing for delphi/tp7 }
if (m_tp7 in current_settings.modeswitches) or if (m_tp7 in current_settings.modeswitches) or
(m_delphi in current_settings.modeswitches) then (m_delphi in current_settings.modeswitches) then
current_settings.packenum:=1 begin
current_settings.packenum:=1;
current_settings.setalloc:=1;
end
else if (m_mac in current_settings.modeswitches) then else if (m_mac in current_settings.modeswitches) then
{ compatible with Metrowerks Pascal } { compatible with Metrowerks Pascal }
current_settings.packenum:=2 current_settings.packenum:=2

14
tests/webtbs/tw15088.pp Normal file
View File

@ -0,0 +1,14 @@
{ %norun }
{$mode delphi}
type
TExceptionMask = (emInvalid, emDenormalized, emZeroDivide,
emOverflow, emUnderflow, emPrecision);
TExceptionMasks = set of TExceptionMask;
var
s: TExceptionMasks;
begin
s:=[];
writeln(byte(s));
end.