ソースを参照

Merged revisions 1412 via svnmerge from
http://svn.freepascal.org/svn/fpc/trunk

r1412 (florian)
* use gecho on win32

git-svn-id: branches/fixes_2_0@1413 -

florian 20 年 前
コミット
faec31105a
1 ファイル変更4 行追加0 行削除
  1. 4 0
      tests/webtbs/tw4038.pp

+ 4 - 0
tests/webtbs/tw4038.pp

@@ -8,7 +8,11 @@ begin
 {$ifdef unix}
   s:='/bin/echo';
 {$else}
+{$ifdef win32}
+  s:='gecho';
+{$else win32}
   s:='echo';
+{$endif win32}
 {$endif}
   writeln(executeprocess(s,'works1 works2 works3'));
   writeln(executeprocess(s,'works1 works2 works3'));