* more tests for symtable insert/search

git-svn-id: trunk@2406 -

.gitattributes

@@ -4844,6 +4844,7 @@ tests/tbf/tb0174c.pp svneol=native#text/plain
 tests/tbf/tb0174d.pp svneol=native#text/plain
 tests/tbf/tb0175.pp svneol=native#text/plain
 tests/tbf/tb0176.pp svneol=native#text/plain
+tests/tbf/tb0177.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
@@ -5339,6 +5340,7 @@ tests/tbs/tb0497a.pp -text
 tests/tbs/tb0497b.pp -text
 tests/tbs/tb0497c.pp -text
 tests/tbs/tb0498.pp svneol=native#text/plain
+tests/tbs/tb0499.pp svneol=native#text/plain
 tests/tbs/ub0060.pp svneol=native#text/plain
 tests/tbs/ub0069.pp svneol=native#text/plain
 tests/tbs/ub0119.pp svneol=native#text/plain
@@ -6682,6 +6684,7 @@ tests/webtbs/tw4533.pp svneol=native#text/plain
 tests/webtbs/tw4534.pp svneol=native#text/plain
 tests/webtbs/tw4537.pp svneol=native#text/plain
 tests/webtbs/tw4540.pp -text svneol=unset#text/plain
+tests/webtbs/tw4541.pp svneol=native#text/plain
 tests/webtbs/tw4557.pp svneol=native#text/plain
 tests/webtbs/tw4566.pp -text svneol=unset#text/plain
 tests/webtbs/tw4574.pp svneol=native#text/plain
@@ -6740,6 +6743,7 @@ tests/webtbs/uw4352b.pp svneol=native#text/plain
 tests/webtbs/uw4352c.pp svneol=native#text/plain
 tests/webtbs/uw4352d.pp svneol=native#text/plain
 tests/webtbs/uw4352e.pp svneol=native#text/plain
+tests/webtbs/uw4541.pp svneol=native#text/plain
 utils/Makefile svneol=native#text/plain
 utils/Makefile.fpc svneol=native#text/plain
 utils/README -text

tests/tbf/tb0177.pp

@@ -0,0 +1,16 @@
+{ %fail }
+
+procedure p;
+var
+  e1     : byte;
+  r : record
+    e : (e1,e2);
+  end;
+
+begin
+  r.e:=e1;
+end;
+
+begin
+end.
+

tests/tbs/tb0499.pp

@@ -0,0 +1,16 @@
+var
+  e1     : byte;
+
+procedure p;
+var
+  r : record
+    e : (e1,e2);
+  end;
+
+begin
+  r.e:=e1;
+end;
+
+begin
+end.
+

tests/webtbs/tw4541.pp

@@ -0,0 +1,12 @@
+{ Source provided for Free Pascal Bug Report 4541 }
+{ Submitted by "Vincent Snijders" on  2005-11-23 }
+{ e-mail: [email protected] }
+program tw4541;
+
+{$mode objfpc}{$H+}
+
+uses
+  uw4541;
+
+begin
+end.

tests/webtbs/uw4541.pp

@@ -0,0 +1,26 @@
+unit uw4541;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes;
+
+type
+
+  TA = class(TComponent)
+    D: TComponent;
+  end;
+
+  TB= class(TComponent)
+  private
+    FA: TA;
+  public
+    property C: TComponent read FA.D;
+  end;
+
+implementation
+
+end.
+