* new additions

tests/webtbs/tbug1092.pp

@@ -0,0 +1,15 @@
+PROGRAM tbug1092;
+USES Dos;
+const
+{$Ifdef linux}
+  path='/etc';
+{$else}
+  path='c:\';
+{$endif}
+BEGIN
+  if FSearch('tbug1092.pp',path))<>'tbug1092.pp' then
+   begin
+     writeln('FSearch didn''t find file in the current dir!');
+     halt(1);
+   end;
+END.

tests/webtbs/tbug1097.pp

@@ -0,0 +1,26 @@
+{$H+}
+
+type
+  Tsome = Record
+    One,Two,Three:String;
+  end;
+
+Procedure passhere(Some:TSome;onemore:String);
+Begin
+end;
+
+procedure fromhere;
+Var
+  me:Tsome;
+Begin
+ me.one:='blah';
+ me.two:='';
+ me.three:='';
+ passhere(Me,'text some');
+end;
+
+begin
+  fromhere;
+end.
+
+

tests/webtbs/tbug1103.pp

@@ -0,0 +1,23 @@
+{$MODE OBJFPC }
+type
+  TestRec = record
+    fString  : AnsiString;
+    fInt1    : Longint;
+    fInt2    : Longint;
+    fRetAddr : Longint;
+  end;
+
+function GetGroupInfo: TestRec;
+begin
+  fillchar(Result, Sizeof(Result), 0);
+  Result.fRetAddr := 0;
+end;
+
+function SelectGroup: TestRec;
+begin
+  Result := GetGroupInfo;
+end;
+
+begin
+  SelectGroup;
+end.