paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 17:00:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed assignstream example

Browse Source
This commit is contained in:
michael 1998-12-11 23:13:29 +00:00
parent 5d3113b7f2
commit cbc6210e24
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
docs/linuxex/ex38.pp
View File

@ -12,8 +12,12 @@ begin
if not (paramstr(1)='-son') then
begin
Writeln ('Calling son');
Assignstream (Si,So,'/home/michael/fpk/rtl/linux/ex38a -son');
if linuxerror<>0 then writeln ('AssignStream failed !');
Assignstream (Si,So,'./ex38 -son');
if linuxerror<>0 then
begin
writeln ('AssignStream failed !');
halt(1);
end;
Writeln ('Speaking to son');
For i:=1 to 10 do
begin
@ -42,6 +46,6 @@ begin
else
writeln ('Who are you ?');
end;
// close (output);
close (output);
end
end.