paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 06:09:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

MorphOS: overloads for Get/SetRGB32 to be compatible with other Amiga flavours

Browse Source 
OS4: Missing forward declaration

git-svn-id: trunk@42261 -
This commit is contained in:
marcus 2019-06-21 18:07:39 +00:00
parent ee1be45df9
commit 2651f867e8
2 changed files with 5 additions and 2 deletions
packages
morphunits/src
agraphics.pas
os4units/src
agraphics.pas

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

@ -2118,10 +2118,12 @@ function GetAPen(Rp: PRastPort location 'a0'): LongWord; SysCall GfxBase 858;
function GetBPen(Rp: PRastPort location 'a0'): LongWord; SysCall GfxBase 864;
function GetDrMd(Rp: PRastPort location 'a0'): LongWord; SysCall GfxBase 870;
function GetOutlinePen(Rp: PRastPort location 'a0'): LongWord; SysCall GfxBase 876;
procedure LoadRGB32(Vp: PViewPort location 'a0'; var Table: LongWord location 'a1'); SysCall GfxBase 882;
procedure LoadRGB32(Vp: PViewPort location 'a0'; var Table: LongWord location 'a1'); SysCall GfxBase 882; overload;
procedure LoadRGB32(Vp: PViewPort location 'a0'; Table: PLongWord location 'a1'); SysCall GfxBase 882; overload;
function SetChipRev(Want: LongWord location 'd0'): LongWord; SysCall GfxBase 888;
procedure SetABPenDrMd(Rp: PRastPort location 'a1'; APen: LongWord location 'd0'; BPen: LongWord location 'd1'; DrawMode: LongWord location 'd2'); SysCall GfxBase 894;
procedure GetRGB32(Cm: PColorMap location 'a0'; FirstColor: LongWord location 'd0'; NColors: LongWord location 'd1'; var Table: LongWord location 'a1'); SysCall GfxBase 900;
procedure GetRGB32(Cm: PColorMap location 'a0'; FirstColor: LongWord location 'd0'; NColors: LongWord location 'd1'; var Table: LongWord location 'a1'); SysCall GfxBase 900; overload;
procedure GetRGB32(Cm: PColorMap location 'a0'; FirstColor: LongWord location 'd0'; NColors: LongWord location 'd1'; Table: PLongWord location 'a1'); SysCall GfxBase 900; overload;
function AllocBitMap(SizeX: LongWord location 'd0'; SizeY: LongWord location 'd1'; Depth: LongWord location 'd2'; Flags: LongWord location 'd3'; Friend_Bitmap: PBitMap location 'a0'): PBitMap; SysCall GfxBase 918;
procedure FreeBitMap(Bm: PBitMap location 'a0'); SysCall GfxBase 924;
function GetExtSpriteA(Ss: PExtSprite location 'a2'; Tags: PTagItem location 'a1'): LongInt; SysCall GfxBase 930;

1
packages/os4units/src/agraphics.pas
View File

@ -2509,6 +2509,7 @@ function ChangeExtSprite(vp: PViewPort; oldsprite: PExtSprite; newsprite: PExtSp
function ExtendFontTags(font: PTextFont; const argv: array of PtrUInt): LongWord;
function GetExtSprite(ss: pExtSprite; const argv: array of PtrUInt): LongInt;
procedure GetRPAttrs(rp: PRastPort; const argv: array of PtrUInt);
function ObtainBestPen(cm: pColorMap; r: LongWord; g: LongWord; b: LongWord; const argv: array of PtrUInt): LongInt;
procedure SetRPAttrs(rp: PRastPort; const argv: array of PtrUInt);
function VideoControlTags(colorMap: PColorMap; const argv: array of PtrUInt): LongWord;