* run fixes

tests/tbs/tb0299.pp

@@ -34,10 +34,10 @@ begin
    myclassref:=tmyobject;
 
    classref:=getanchestor(myclassref);
-   if (constclassref1.classname<>'TOBJECT') or
+   if (upcase(constclassref1.classname)<>'TOBJECT') or
      (constclassref2<>nil) or
-     (myclassref.classname<>'TMYOBJECT') or
-     (classref.classname<>'TOBJECT') then
+     (upcase(myclassref.classname)<>'TMYOBJECT') or
+     (upcase(classref.classname)<>'TOBJECT') then
      begin
         writeln('Error');
         halt(1);

tests/tbs/tb0349.pp

@@ -1,9 +1,11 @@
 { %VERSION=1.1}
 var
    p : pwidechar;
-   c : widechar;
+   c1,c2 : widechar;
    i : longint;
 
 begin
-   c:=p[i];
+   p:=@c1;
+   i:=0;
+   c2:=p[i];
 end.