paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-20 18:29:30 +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/keyboard.pp svneol=native#text/plain
packages/rtl-console/src/amicommon/mouse.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/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/amiga/video.pp svneol=native#text/plain
packages/rtl-console/src/aros/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 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/amicommon/sysutils.pp svneol=native#text/plain
rtl/amiga/Makefile svneol=native#text/plain rtl/amiga/Makefile svneol=native#text/plain
rtl/amiga/Makefile.fpc 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/doslibd.inc svneol=native#text/plain
rtl/amiga/m68k/doslibf.inc svneol=native#text/plain rtl/amiga/m68k/doslibf.inc svneol=native#text/plain
rtl/amiga/m68k/execd.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; KVMAll = [emx,go32v2,netware,netwlibc,os2,win32,win64]+UnixLikes+AllAmigaLikeOSes;
// all full KVMers have crt too, except Amigalikes // all full KVMers have crt too, except Amigalikes
CrtOSes = KVMALL+[msdos,WatCom]-AllAmigaLikeOSes; CrtOSes = KVMALL+[msdos,WatCom]-[aros,morphos];
KbdOSes = KVMALL+[msdos]; KbdOSes = KVMALL+[msdos];
VideoOSes = KVMALL; VideoOSes = KVMALL;
MouseOSes = KVMALL; MouseOSes = KVMALL;

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

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