merge r14142 from cpstrnew branch by paul:

eat {$stringchecks} directive without the warning

git-svn-id: trunk@19098 -

compiler/scandir.pas

@@ -1076,6 +1076,12 @@ unit scandir;
         do_message(scan_f_user_defined);
       end;
 
+    procedure dir_stringchecks;
+      begin
+        // Delphi adds checks that ansistring and unicodestring are correct in
+        // different places. Skip it for now.
+      end;
+
 {$ifdef powerpc}
     procedure dir_syscall;
       var
@@ -1495,6 +1501,7 @@ unit scandir;
         AddDirective('SMARTLINK',directive_all, @dir_smartlink);
         AddDirective('STACKFRAMES',directive_all, @dir_stackframes);
         AddDirective('STOP',directive_all, @dir_stop);
+        AddDirective('STRINGCHECKS', directive_all, @dir_stringchecks);
 {$ifdef powerpc}
         AddDirective('SYSCALL',directive_all, @dir_syscall);
 {$endif powerpc}