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

* fixed 1238

Browse Source
This commit is contained in:
florian 2000-11-14 23:43:37 +00:00
parent ce76f8f658
commit 523fa60d9e
2 changed files with 19 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/errore.msg
View File

@ -890,7 +890,8 @@ parser_e_interface_id_expected=03169_E_interface identifier expected
% .... % ....
% \end{verbatim} % \end{verbatim}
% and the \var{interface} before the dot not listed in the inheritance list. % and the \var{interface} before the dot not listed in the inheritance list.
% \end{description} parser_e_type_cant_be_used_in_array_index=03170_E_Type "$1" can't be used as array index type
% Types like DWord or Int64 aren't allowed as array index type% \end{description}
# #
# Type Checking # Type Checking
# #
@ -1930,4 +1931,4 @@ option_help_pages=11025_[
# #
# The End... # The End...
# #

20
compiler/ptype.pas
View File

@ -337,9 +337,18 @@ implementation
end; end;
orddef : orddef :
begin begin
lowval:=porddef(p)^.low; if porddef(p)^.typ in [uchar,
highval:=porddef(p)^.high; u8bit,u16bit,
arraytype:=p; s8bit,s16bit,s32bit,
bool8bit,bool16bit,bool32bit,
uwidechar] then
begin
lowval:=porddef(p)^.low;
highval:=porddef(p)^.high;
arraytype:=p;
end
else
Message1(parser_e_type_cant_be_used_in_array_index,p^.gettypename);
end; end;
else else
Message(sym_e_error_in_type_def); Message(sym_e_error_in_type_def);
@ -581,7 +590,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.14 2000-11-04 14:25:21 florian Revision 1.15 2000-11-14 23:43:38 florian
* fixed 1238
Revision 1.14 2000/11/04 14:25:21 florian
+ merged Attila's changes for interfaces, not tested yet + merged Attila's changes for interfaces, not tested yet
Revision 1.13 2000/10/31 22:02:51 peter Revision 1.13 2000/10/31 22:02:51 peter