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

- WriteLn in GUI mode support commented out until fixed

Browse Source
This commit is contained in:
Tomas Hajny 2002-12-08 16:39:58 +00:00
parent 14c6ce1eb8
commit 36675ed484
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/os2/system.pas
View File

@ -1006,7 +1006,7 @@ begin
StdInputHandle := longint(GetStdHandle(cardinal(STD_INPUT_HANDLE))); StdInputHandle := longint(GetStdHandle(cardinal(STD_INPUT_HANDLE)));
StdOutputHandle := longint(GetStdHandle(cardinal(STD_OUTPUT_HANDLE))); StdOutputHandle := longint(GetStdHandle(cardinal(STD_OUTPUT_HANDLE)));
StdErrorHandle := longint(GetStdHandle(cardinal(STD_ERROR_HANDLE))); StdErrorHandle := longint(GetStdHandle(cardinal(STD_ERROR_HANDLE)));
*)
if not IsConsole then if not IsConsole then
begin begin
if (DosLoadModule (nil, 0, 'PMWIN', PMWinHandle) = 0) and if (DosLoadModule (nil, 0, 'PMWIN', PMWinHandle) = 0) and
@ -1030,11 +1030,14 @@ begin
end end
else else
begin begin
*)
OpenStdIO (Input, fmInput, StdInputHandle); OpenStdIO (Input, fmInput, StdInputHandle);
OpenStdIO (Output, fmOutput, StdOutputHandle); OpenStdIO (Output, fmOutput, StdOutputHandle);
OpenStdIO (StdOut, fmOutput, StdOutputHandle); OpenStdIO (StdOut, fmOutput, StdOutputHandle);
OpenStdIO (StdErr, fmOutput, StdErrorHandle); OpenStdIO (StdErr, fmOutput, StdErrorHandle);
(*
end; end;
*)
end; end;
@ -1170,7 +1173,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.28 2002-12-07 19:17:14 hajny Revision 1.29 2002-12-08 16:39:58 hajny
- WriteLn in GUI mode support commented out until fixed
Revision 1.28 2002/12/07 19:17:14 hajny
* GetEnv correction, better PM support, ... * GetEnv correction, better PM support, ...
Revision 1.27 2002/11/17 22:31:02 hajny Revision 1.27 2002/11/17 22:31:02 hajny