Jelajahi Sumber

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 tahun lalu
induk
melakukan
faec31105a
1 mengubah file dengan 4 tambahan dan 0 penghapusan
  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'));