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

* Fix exiting acs after screen update

Browse Source 
git-svn-id: trunk@3345 -
This commit is contained in:
daniel 2006-04-27 20:15:57 +00:00
parent b9a0cd4d1f
commit b03ab6296f
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/unix/video.pp
View File

@ -728,6 +728,16 @@ begin
inc(LastX); inc(LastX);
end; end;
OutData(XY2Ansi(CursorX+1,CursorY+1,LastX,LastY)); OutData(XY2Ansi(CursorX+1,CursorY+1,LastX,LastY));
if in_ACS then
begin
{If the program crashes and the ACS is still enabled, the user's
keyboard will output strange characters. Therefore we disable the
acs after each screen update, so the risk that it happens is greatly
reduced.}
{ SendEscapeSeqNdx(exit_alt_charset_mode);}
outdata(acsout);
in_acs:=false;
end;
{$ifdef logging} {$ifdef logging}
blockwrite(f,logstart[1],length(logstart)); blockwrite(f,logstart[1],length(logstart));
blockwrite(f,nl,1); blockwrite(f,nl,1);
@ -737,8 +747,6 @@ begin
blockwrite(f,nl,1); blockwrite(f,nl,1);
{$endif logging} {$endif logging}
fpWrite(stdoutputhandle,outbuf,outptr); fpWrite(stdoutputhandle,outbuf,outptr);
if in_ACS then
SendEscapeSeqNdx(exit_alt_charset_mode);
{turn autowrap on} {turn autowrap on}
// SendEscapeSeq(#27'[?7h'); // SendEscapeSeq(#27'[?7h');
end; end;