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

* patch from Sterling Bates for bug #3762 (with additional enhancements for better compatibility)

Browse Source
This commit is contained in:
Tomas Hajny 2005-03-30 22:11:55 +00:00
parent 20549eb4af
commit 5e87799bd2
1 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
rtl/os2/crt.pas
View File

@ -116,7 +116,8 @@ external 'EMXWRAP' index 132;
function VioGetCurType(var CurData:TVioCursorInfo;VioHandle:word):word; cdecl; function VioGetCurType(var CurData:TVioCursorInfo;VioHandle:word):word; cdecl;
external 'EMXWRAP' index 127; external 'EMXWRAP' index 127;
{external 'VIOCALLS' index 27;} {external 'VIOCALLS' index 27;}
function DosBeep (Freq, MS: cardinal): cardinal; cdecl;
external 'DOSCALLS' index 286;
procedure setscreenmode(mode:word); procedure setscreenmode(mode:word);
@ -384,18 +385,16 @@ begin
while i<=len-1 do while i<=len-1 do
begin begin
case s[i] of case s[i] of
#8: x:=x-1; #7: DosBeep (800, 250);
#9: x:=(x-lo(windmin)) and $fff8+8+lo(windmin); #8: if x > Lo (WindMin) then Dec (X);
#10: ; { #9: x:=(x-lo(windmin)) and $fff8+8+lo(windmin);}
#13: begin #10: inc(y);
x:=lo(windmin); #13: x:=lo(windmin);
inc(y);
end;
else else
begin begin
ca:=@s[i]; ca:=@s[i];
n:=1; n:=1;
while not(s[i+1] in [#8,#9,#10,#13]) and while not(s[i+1] in [#7,#8,#10,#13]) and
(x+n<=lo(windmax)) and (i<len-1) do (x+n<=lo(windmax)) and (i<len-1) do
begin begin
inc(n); inc(n);
@ -614,7 +613,10 @@ end.
{ {
$Log$ $Log$
Revision 1.8 2005-02-14 17:13:31 peter Revision 1.9 2005-03-30 22:11:55 hajny
* patch from Sterling Bates for bug 3762 (with additional enhancements for better compatibility)
Revision 1.8 2005/02/14 17:13:31 peter
* truncate log * truncate log
} }