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

* don't crash on invalid property declarations, resolves #8451

Browse Source 
git-svn-id: trunk@7065 -
This commit is contained in:
florian 2007-04-06 21:18:10 +00:00
parent 08e5d21da8
commit 56e30e75af
3 changed files with 39 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -5745,6 +5745,7 @@ tests/tbf/tb0195.pp svneol=native#text/plain
tests/tbf/tb0196.pp svneol=native#text/plain
tests/tbf/tb0197.pp svneol=native#text/plain
tests/tbf/tb0198.pp svneol=native#text/plain
tests/tbf/tw8303.pp svneol=native#text/plain
tests/tbf/ub0115.pp svneol=native#text/plain
tests/tbf/ub0149.pp svneol=native#text/plain
tests/tbf/ub0158a.pp svneol=native#text/plain

2
compiler/pdecvar.pas
View File

@ -104,6 +104,7 @@ implementation
else
begin
Message1(parser_e_illegal_field_or_method,orgpattern);
def:=generrordef;
result:=false;
end;
end;
@ -111,6 +112,7 @@ implementation
else
begin
Message1(parser_e_illegal_field_or_method,orgpattern);
def:=generrordef;
result:=false;
end;
consume(_ID);

36
tests/tbf/tw8303.pp Normal file
View File

@ -0,0 +1,36 @@
{ %fail }
{$mode objfpc}
program bug8303;
{$APPTYPE CONSOLE}
uses
SysUtils;
type proptype1=record
record_member:integer;
end;
const records_array: array[0..3] of proptype1 = ((record_member:0),(record_member:0),(record_member:0),(record_member:0));
array_idx=2;
type
tsomeclass = class
procedure setprop1(p:proptype1);
property prop1: proptype1 read records_array[array_idx].record_member write setprop1;
end;
procedure tsomeclass.setprop1(p>proptype1);
begin
end;
begin
end.