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

Amiga: moved the remnants of the old CRT unit from Amiga RTL to rtl-console package and made it to build at least. It's probably still very broken, and needs fixing.

Browse Source 
git-svn-id: trunk@28592 -
This commit is contained in:
Károly Balogh 2014-09-03 22:43:22 +00:00
parent 3ede5ec99b
commit e126b787a3
3 changed files with 19 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -6589,6 +6589,7 @@ packages/rtl-console/fpmake.pp svneol=native#text/plain
packages/rtl-console/src/amicommon/keyboard.pp svneol=native#text/plain
packages/rtl-console/src/amicommon/mouse.pp svneol=native#text/plain
packages/rtl-console/src/amicommon/videodata.inc svneol=native#text/plain
packages/rtl-console/src/amiga/crt.pp svneol=native#text/plain
packages/rtl-console/src/amiga/video.pp svneol=native#text/plain
packages/rtl-console/src/aros/video.pp svneol=native#text/plain
packages/rtl-console/src/emx/crt.pp svneol=native#text/plain
@ -7869,7 +7870,6 @@ rtl/amicommon/sysosh.inc svneol=native#text/plain
rtl/amicommon/sysutils.pp svneol=native#text/plain
rtl/amiga/Makefile svneol=native#text/plain
rtl/amiga/Makefile.fpc svneol=native#text/plain
rtl/amiga/crt.pp svneol=native#text/plain
rtl/amiga/doslibd.inc svneol=native#text/plain
rtl/amiga/m68k/doslibf.inc svneol=native#text/plain
rtl/amiga/m68k/execd.inc svneol=native#text/plain

2
packages/rtl-console/fpmake.pp
View File

@ -16,7 +16,7 @@ Const
KVMAll = [emx,go32v2,netware,netwlibc,os2,win32,win64]+UnixLikes+AllAmigaLikeOSes;
// all full KVMers have crt too, except Amigalikes
CrtOSes = KVMALL+[msdos,WatCom]-AllAmigaLikeOSes;
CrtOSes = KVMALL+[msdos,WatCom]-[aros,morphos];
KbdOSes = KVMALL+[msdos];
VideoOSes = KVMALL;
MouseOSes = KVMALL;

30
rtl/amiga/crt.pp → packages/rtl-console/src/amiga/crt.pp
View File

@ -40,6 +40,9 @@ Const
Implementation
uses
exec, amigados, conunit, intuition;
var
maxcols,maxrows : longint;
@ -49,7 +52,7 @@ CONST
KeyPress : char = #0;
_LVODisplayBeep = -96;
(*
Type
pInfoData = ^tInfoData;
@ -184,7 +187,7 @@ Type
IFont : Pointer;
MoreFlags : Longint;
end;
*)
const
M_LNM = 20; { linefeed newline mode }
@ -193,6 +196,7 @@ Type
MAXTABS = 80;
IECLASS_MAX = $15;
(*
type
pKeyMap = ^tKeyMap;
@ -263,7 +267,7 @@ type
{ one bit per mode }
cu_RawEvents : Array [0..(IECLASS_MAX+7) div 8 - 1] of Byte;
end;
*)
const
@ -276,7 +280,7 @@ const
SIGBREAKF_CTRL_C = 4096;
function AllocVec( size, reqm : Longint ): Pointer;
{function AllocVec( size, reqm : Longint ): Pointer;
begin
asm
MOVE.L A6,-(A7)
@ -412,7 +416,7 @@ begin
MOVE.L (A7)+,A6
MOVE.L d0,@RESULT
end;
end;
end;}
function OpenInfo : pInfoData;
var
@ -703,23 +707,23 @@ procedure sound(hz : word);
begin
end;
procedure delay(DTime : Word);
procedure delay(ms : Word);
var
dummy : Longint;
begin
dummy := trunc((real(DTime) / 1000.0) * 50.0);
Delay_(dummy);
dummy := trunc((real(ms) / 1000.0) * 50.0);
DOSDelay(dummy);
end;
function CheckBreak : boolean;
{function CheckBreak : boolean;
begin
if (SetSignal(0, 0) and SIGBREAKF_CTRL_C) = SIGBREAKF_CTRL_C then
CheckBreak := true
else
CheckBreak := false;
end;
end;}
procedure textmode(mode : integer);
procedure textmode(mode : word);
begin
lastmode:=mode;
mode:=mode and $ff;
@ -822,7 +826,7 @@ end;
begin
buf[0]:=c;
realgotoxy(row,col);
do_write(f.handle,longint(@buf[0]),1);
{do_write(f.handle,longint(@buf[0]),1);}
inc(col);
end;
end;
@ -858,7 +862,7 @@ end;
Function CrtRead(Var F: TextRec): Integer;
Begin
f.bufend:=do_read(f.handle,longint(f.bufptr),f.bufsize);
{f.bufend:=do_read(f.handle,longint(f.bufptr),f.bufsize);}
f.bufpos:=0;
CrtRead:=0;
End;