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

* allow enum with jumps as array index in delphi mode

Browse Source
This commit is contained in:
peter 2005-01-04 16:39:12 +00:00
parent fd3f6a9017
commit 14ccaf9c7b
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ptype.pas
View File

@ -352,7 +352,8 @@ implementation
begin
lowval:=tenumdef(t.def).min;
highval:=tenumdef(t.def).max;
if tenumdef(t.def).has_jumps then
if (m_fpc in aktmodeswitches) and
(tenumdef(t.def).has_jumps) then
Message(type_e_array_index_enums_with_assign_not_possible);
arraytype:=t;
end;
@ -658,7 +659,10 @@ implementation
end.
{
$Log$
Revision 1.71 2004-11-16 20:32:41 peter
Revision 1.72 2005-01-04 16:39:12 peter
* allow enum with jumps as array index in delphi mode
Revision 1.71 2004/11/16 20:32:41 peter
* fixes for win32 mangledname
Revision 1.70 2004/11/15 23:35:31 peter