paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 13:49:29 +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;
external 'EMXWRAP' index 127;
{external 'VIOCALLS' index 27;}
function DosBeep (Freq, MS: cardinal): cardinal; cdecl;
external 'DOSCALLS' index 286;
procedure setscreenmode(mode:word);
@ -384,18 +385,16 @@ begin
while i<=len-1 do
begin
case s[i] of
#8: x:=x-1;
#9: x:=(x-lo(windmin)) and $fff8+8+lo(windmin);
#10: ;
#13: begin
x:=lo(windmin);
inc(y);
end;
#7: DosBeep (800, 250);
#8: if x > Lo (WindMin) then Dec (X);
{ #9: x:=(x-lo(windmin)) and $fff8+8+lo(windmin);}
#10: inc(y);
#13: x:=lo(windmin);
else
begin
ca:=@s[i];
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
begin
inc(n);
@ -614,7 +613,10 @@ end.
{
$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
}