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

AROS Amiga, MorphOS: Added PPObject_, RasSize, MIDDLEUP, MIDDLEDOWN, Changed: Text() -> GfxText() unified, ACTION_WRITE, ACTION_READ, ReadArgs, TextLength

Browse Source 
git-svn-id: trunk@31854 -
This commit is contained in:
marcus 2015-09-27 17:43:27 +00:00
parent 8414d53e0e
commit 5d6c959890
6 changed files with 24 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/amunits/src/coreunits/agraphics.pas
View File

@ -2419,6 +2419,8 @@ PROCEDURE ON_SPRITE (cust: pCustom);
PROCEDURE OFF_VBLANK (cust: pCustom); PROCEDURE OFF_VBLANK (cust: pCustom);
PROCEDURE ON_VBLANK (cust: pCustom); PROCEDURE ON_VBLANK (cust: pCustom);
function RasSize(w, h: Word): Integer;
{Here we read how to compile this unit} {Here we read how to compile this unit}
{You can remove this include and use a define instead} {You can remove this include and use a define instead}
{$I useautoopenlib.inc} {$I useautoopenlib.inc}
@ -2532,6 +2534,11 @@ BEGIN
cust^.intena := BITSET OR INTF_VERTB; cust^.intena := BITSET OR INTF_VERTB;
END; END;
function RasSize(w, h: Word): Integer; inline;
begin
RasSize := h * (((w + 15) shr 3) and $FFFE);
end;
const const
{ Change VERSION and LIBVERSION to proper values } { Change VERSION and LIBVERSION to proper values }

3
packages/amunits/src/coreunits/intuition.pas
View File

@ -1725,6 +1725,8 @@ CONST
SELECTDOWN = IECODE_LBUTTON; SELECTDOWN = IECODE_LBUTTON;
MENUUP = IECODE_RBUTTON + IECODE_UP_PREFIX; MENUUP = IECODE_RBUTTON + IECODE_UP_PREFIX;
MENUDOWN = IECODE_RBUTTON; MENUDOWN = IECODE_RBUTTON;
MIDDLEUP = IECODE_MBUTTON + IECODE_UP_PREFIX;
MIDDLEDOWN = IECODE_MBUTTON;
ALTLEFT = IEQUALIFIER_LALT; ALTLEFT = IEQUALIFIER_LALT;
ALTRIGHT = IEQUALIFIER_RALT; ALTRIGHT = IEQUALIFIER_RALT;
AMIGALEFT = IEQUALIFIER_LCOMMAND; AMIGALEFT = IEQUALIFIER_LCOMMAND;
@ -2751,6 +2753,7 @@ Type
Type Type
Object_ = ULONG; Object_ = ULONG;
pObject_ = ^Object_; pObject_ = ^Object_;
ppObject_ = ^pObject_;
ClassID = ^Byte; ClassID = ^Byte;
{ {

2
packages/arosunits/src/amigados.pas
View File

@ -2361,7 +2361,7 @@ function PathPart(const Path: STRPTR): STRPTR; syscall AOS_DOSBase 146;
function Pipe(const Name: STRPTR; var Reader: BPTR; var Writer: BPTR): LongInt; syscall AOS_DOSBase 160; function Pipe(const Name: STRPTR; var Reader: BPTR; var Writer: BPTR): LongInt; syscall AOS_DOSBase 160;
function PrintFault(Code: LongInt; const Header: STRPTR): LongBool; syscall AOS_DOSBase 79; function PrintFault(Code: LongInt; const Header: STRPTR): LongBool; syscall AOS_DOSBase 79;
function PutStr(const String_: STRPTR): LongInt; syscall AOS_DOSBase 158; function PutStr(const String_: STRPTR): LongInt; syscall AOS_DOSBase 158;
function ReadArgs(const Template: STRPTR; var Array_: IPTR; RdArgs: PRDArgs): PRDArgs; syscall AOS_DOSBase 133; function ReadArgs(const Template: STRPTR; Array_: PIPTR; RdArgs: PRDArgs): PRDArgs; syscall AOS_DOSBase 133;
function ReadItem(const Buffer: STRPTR; MaxChars: LongInt; CSource: PCSource): LongInt; syscall AOS_DOSBase 135; function ReadItem(const Buffer: STRPTR; MaxChars: LongInt; CSource: PCSource): LongInt; syscall AOS_DOSBase 135;
function ReadLink(Port: PMsgPort; Lock: LongInt; const Path: STRPTR; Buffer: STRPTR; Size: LongWord): LongInt; syscall AOS_DOSBase 73; function ReadLink(Port: PMsgPort; Lock: LongInt; const Path: STRPTR; Buffer: STRPTR; Size: LongWord): LongInt; syscall AOS_DOSBase 73;
function Relabel(const Drive: STRPTR; const NewName: STRPTR): LongInt; syscall AOS_DOSBase 120; function Relabel(const Drive: STRPTR; const NewName: STRPTR): LongInt; syscall AOS_DOSBase 120;

10
packages/morphunits/src/agraphics.pas
View File

@ -2208,10 +2208,10 @@ SysCall GfxBase 042;
procedure ClearScreen(rp : pRastPort location 'a1'); procedure ClearScreen(rp : pRastPort location 'a1');
SysCall GfxBase 048; SysCall GfxBase 048;
function TextLength(rp : pRastPort location 'a1'; string1 : pSHORTINT location 'a0'; count : CARDINAL location 'd0') : INTEGER; function TextLength(rp : pRastPort location 'a1'; string1 : STRPTR location 'a0'; count : CARDINAL location 'd0') : INTEGER;
SysCall GfxBase 054; SysCall GfxBase 054;
function Text(rp : pRastPort location 'a1'; string1: pSHORTINT location 'a0'; count : CARDINAL location 'd0') : LongInt; function GfxText(rp : pRastPort location 'a1'; string1: STRPTR location 'a0'; count : CARDINAL location 'd0') : LongInt;
SysCall GfxBase 060; SysCall GfxBase 060;
function SetFont(rp : pRastPort location 'a1'; textFont : pTextFont location 'a0') : LongInt; function SetFont(rp : pRastPort location 'a1'; textFont : pTextFont location 'a0') : LongInt;
@ -2704,6 +2704,8 @@ procedure ON_SPRITE (cust: pCustom);
procedure OFF_VBLANK (cust: pCustom); procedure OFF_VBLANK (cust: pCustom);
procedure ON_VBLANK (cust: pCustom); procedure ON_VBLANK (cust: pCustom);
function RasSize(w, h: Word): Integer;
{ unit/library initialization } { unit/library initialization }
function InitGraphicsLibrary : boolean; function InitGraphicsLibrary : boolean;
@ -2802,6 +2804,10 @@ begin
cust^.intena := BITSET or INTF_VERTB; cust^.intena := BITSET or INTF_VERTB;
end; end;
function RasSize(w, h: Word): Integer; inline;
begin
RasSize := h * (((w + 15) shr 3) and $FFFE);
end;
const const
{ Change VERSION and LIBVERSION to proper values } { Change VERSION and LIBVERSION to proper values }

4
packages/morphunits/src/amigados.pas
View File

@ -423,8 +423,8 @@ const
ACTION_CURRENT_VOLUME = 7; ACTION_CURRENT_VOLUME = 7;
ACTION_LOCATE_OBJECT = 8; ACTION_LOCATE_OBJECT = 8;
ACTION_RENAME_DISK = 9; ACTION_RENAME_DISK = 9;
ACTION_WRITE = 'W'; ACTION_WRITE = $57; // 'W'
ACTION_READ = 'R'; ACTION_READ = $52; // 'R'
ACTION_FREE_LOCK = 15; ACTION_FREE_LOCK = 15;
ACTION_DELETE_OBJECT = 16; ACTION_DELETE_OBJECT = 16;
ACTION_RENAME_OBJECT = 17; ACTION_RENAME_OBJECT = 17;

3
packages/morphunits/src/intuition.pas
View File

@ -1699,6 +1699,8 @@ CONST
SELECTDOWN = IECODE_LBUTTON; SELECTDOWN = IECODE_LBUTTON;
MENUUP = IECODE_RBUTTON + IECODE_UP_PREFIX; MENUUP = IECODE_RBUTTON + IECODE_UP_PREFIX;
MENUDOWN = IECODE_RBUTTON; MENUDOWN = IECODE_RBUTTON;
MIDDLEUP = IECODE_MBUTTON + IECODE_UP_PREFIX;
MIDDLEDOWN = IECODE_MBUTTON;
ALTLEFT = IEQUALIFIER_LALT; ALTLEFT = IEQUALIFIER_LALT;
ALTRIGHT = IEQUALIFIER_RALT; ALTRIGHT = IEQUALIFIER_RALT;
AMIGALEFT = IEQUALIFIER_LCOMMAND; AMIGALEFT = IEQUALIFIER_LCOMMAND;
@ -2725,6 +2727,7 @@ Type
Type Type
Object_ = Cardinal; Object_ = Cardinal;
pObject_ = ^Object_; pObject_ = ^Object_;
ppObject_ = ^pObject_;
ClassID = ^Byte; ClassID = ^Byte;
{ {