2
0
Эх сурвалжийг харах

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 жил өмнө
parent
commit
faec31105a

+ 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'));