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

* OS/2 fixes merged to EMX

Browse Source
This commit is contained in:
Tomas Hajny 2005-03-30 23:11:35 +00:00
parent 7836216e6d
commit f540d0be8b
2 changed files with 27 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
rtl/emx/crt.pas
View File

@ -124,6 +124,8 @@ 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;}
procedure syscall;external name '___SYSCALL';
procedure setscreenmode(mode:word); procedure setscreenmode(mode:word);
@ -428,8 +430,8 @@ var row,left,right,bot:longint;
begin begin
row:=whereY; row:=whereY;
left:=lo(windmin)+1; left:=lo(windmin);
right:=lo(windmax)+1; right:=lo(windmax);
bot:=hi(windmax)+1; bot:=hi(windmax)+1;
fil:=$20 or (textattr shl 8); fil:=$20 or (textattr shl 8);
scroll_up(row+1,left,bot,right,1,fil); scroll_up(row+1,left,bot,right,1,fil);
@ -444,11 +446,11 @@ var row,left,right,bot:longint;
begin begin
row:=whereY; row:=whereY;
left:=lo(windmin)+1; left:=lo(windmin);
right:=lo(windmax)+1; right:=lo(windmax);
bot:=hi(windmax); bot:=hi(windmax);
fil:=$20 or (textattr shl 8); fil:=$20 or (textattr shl 8);
scroll_dn(row,left,bot-1,right,1,fil); scroll_dn(row,left,bot,right,1,fil);
end; end;
procedure textmode(mode:integer); procedure textmode(mode:integer);
@ -562,22 +564,20 @@ begin
while i<=len-1 do while i<=len-1 do
begin begin
case s[i] of case s[i] of
#8: #7: asm
x:=x-1; mov dl, 7
#9: mov ah, 2
x:=(x-lo(windmin)) and $fff8+8+lo(windmin); call syscall
#10:
;
#13:
begin
x:=lo(windmin);
inc(y);
end; end;
#8: if X > Succ (Lo (WindMin)) then Dec (X);
{ #9: x:=(x-lo(windmin)) and $fff8+8+lo(windmin);}
#10: inc(y);
#13: x:=lo(windmin);
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)+1) and (i<len-1) do} { (x+n<=lo(windmax)+1) and (i<len-1) do}
(x+n<=lo(windmax)) and (i<len-1) do (x+n<=lo(windmax)) and (i<len-1) do
begin begin
@ -960,7 +960,10 @@ end.
{ {
$Log$ $Log$
Revision 1.5 2005-02-14 17:13:22 peter Revision 1.6 2005-03-30 23:11:35 hajny
* OS/2 fixes merged to EMX
Revision 1.5 2005/02/14 17:13:22 peter
* truncate log * truncate log
} }

11
rtl/os2/crt.pas
View File

@ -276,7 +276,7 @@ begin
right:=lo(windmax); right:=lo(windmax);
bot:=hi(windmax)+1; bot:=hi(windmax)+1;
fil:=$20 or (textattr shl 8); fil:=$20 or (textattr shl 8);
scroll_up(row-1,left,bot,right,1,fil); scroll_up(row+1,left,bot,right,1,fil);
end; end;
procedure insline; procedure insline;
@ -290,9 +290,9 @@ begin
row:=whereY; row:=whereY;
left:=lo(windmin); left:=lo(windmin);
right:=lo(windmax); right:=lo(windmax);
bot:=hi(windmax)+1; bot:=hi(windmax);
fil:=$20 or (textattr shl 8); fil:=$20 or (textattr shl 8);
scroll_dn(row,left,bot-1,right,1,fil); scroll_dn(row,left,bot,right,1,fil);
end; end;
procedure textmode(mode:integer); procedure textmode(mode:integer);
@ -613,7 +613,10 @@ end.
{ {
$Log$ $Log$
Revision 1.11 2005-03-30 22:42:49 hajny Revision 1.12 2005-03-30 23:11:35 hajny
* OS/2 fixes merged to EMX
Revision 1.11 2005/03/30 22:42:49 hajny
* fix for InsLine * fix for InsLine
Revision 1.10 2005/03/30 22:40:25 hajny Revision 1.10 2005/03/30 22:40:25 hajny