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

* merged consolemode fix

Browse Source
This commit is contained in:
peter 2001-09-30 21:46:34 +00:00
parent 59cb901446
commit cfe59822da
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/win32/initc.pp
View File

@ -15,6 +15,9 @@ interface
implementation
uses
windows;
{$i textrec.inc}
@ -53,7 +56,6 @@ const
STD_OUTPUT_HANDLE = $fffffff5;
STD_ERROR_HANDLE = $fffffff4;
function GetStdHandle(nStdHandle:DWORD):longint;external 'kernel32' name 'GetStdHandle';
procedure UpdateStdHandle(var t:TextRec;var stdHandle:longint;newHandle:longint);
{ Check if the stdHandle is the same as the one in the TextRec, then
@ -69,12 +71,19 @@ begin
longjmp(entryjmpbuf,1);
entry:=0;
end;
var
ConsoleMode: DWORD;
ConsoleModeValid : boolean;
initialization
ConsoleModeValid:=GetConsoleMode(GetStdHandle(STD_INPUT_HANDLE), @ConsoleMode);
if setjmp(entryjmpbuf)=0 then
begin
cygwin_crt0(@entry);
end;
if ConsoleModeValid then
SetConsoleMode(GetStdHandle(STD_INPUT_HANDLE), ConsoleMode);
{ Reinitialize std handles that can be changed }
UpdateStdHandle(TextRec(Input),StdInputHandle,GetStdHandle(STD_INPUT_HANDLE));
UpdateStdHandle(TextRec(Output),StdOutputHandle,GetStdHandle(STD_OUTPUT_HANDLE));
@ -96,7 +105,10 @@ if setjmp(exitjmpbuf)=0 then
end.
{
$Log$
Revision 1.5 2001-09-22 11:15:31 peter
Revision 1.6 2001-09-30 21:46:34 peter
* merged consolemode fix
Revision 1.5 2001/09/22 11:15:31 peter
* merged v10 version for exit fixes
Revision 1.1.2.4 2001/09/19 15:23:39 pierre