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

* fixed web bug #4913 (don't allow indexing of strings/variants/pointers

Browse Source 
with enums/chars/booleans)

git-svn-id: trunk@2952 -
This commit is contained in:
Jonas Maebe 2006-03-18 11:05:04 +00:00
parent b2cdab26af
commit f59d552ecb
3 changed files with 27 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -6017,6 +6017,7 @@ tests/webtbf/tw4777.pp svneol=native#text/plain
tests/webtbf/tw4778a.pp svneol=native#text/plain
tests/webtbf/tw4781a.pp svneol=native#text/plain
tests/webtbf/tw4781b.pp svneol=native#text/plain
tests/webtbf/tw4913.pp -text
tests/webtbf/uw0744.pp svneol=native#text/plain
tests/webtbf/uw0840a.pp svneol=native#text/plain
tests/webtbf/uw0840b.pp svneol=native#text/plain

7
compiler/nmem.pas
View File

@ -676,9 +676,10 @@ implementation
{ maybe type conversion for the index value, but
do not convert enums,booleans,char }
if (right.resulttype.def.deftype<>enumdef) and
not(is_char(right.resulttype.def) or is_widechar(right.resulttype.def)) and
not(is_boolean(right.resulttype.def)) then
if ((right.resulttype.def.deftype<>enumdef) and
not(is_char(right.resulttype.def) or is_widechar(right.resulttype.def)) and
not(is_boolean(right.resulttype.def))) or
(left.resulttype.def.deftype <> arraydef) then
begin
inserttypeconv(right,sinttype);
end;

22
tests/webtbf/tw4913.pp Normal file
View File

@ -0,0 +1,22 @@
{ %fail }
{ Source provided for Free Pascal Bug Report 4913 }
{ Submitted by "Vinzent Hoefler" on 2006-03-17 }
{ e-mail: ada.rocks@jlfencey.com }
const
Some_String : String = '0123456789';
type
Some_Enum = (Zero, One, Two, Three);
var
i : Some_Enum;
begin
WriteLn (Some_String[2]); // Should fail if "Some_String = '...'";
WriteLn (Some_String[Two]); // Should fail with type error.
i := Three;
WriteLn (Some_String[i]);
end.