* fixed tests

git-svn-id: trunk@14794 -

tests/tbs/tb0195.pp

@@ -3,9 +3,9 @@
 { consts > 255 are truncated (should work in -S2,-Sd)  OK 0.99.11 (PFV) }
 { this is not true anymore because it can lead silently to bugs,
   it is allowed now in $H+ mode else it causes an error (FK) }
-{$H+}
 
 {$mode objfpc}
+{$H+}
 {$X-}
 
 const

tests/tbs/tb0568.pp

@@ -4,6 +4,6 @@ var
 begin
   { String constants can't exceed 255 chars }
   i:=length('12345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890');
-  if i<>280 then
+  if i<>290 then
     halt(1);
 end.