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

AmigaOS4: added missing varargs function

Browse Source 
git-svn-id: trunk@48944 -
This commit is contained in:
marcus 2021-03-12 19:42:15 +00:00
parent 61a4eaa302
commit 5821143387
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
packages/os4units/src/cybergraphics.pas
View File

@ -189,12 +189,13 @@ function WritePixelArrayAlpha(Src: APTR; SrcX, SrcY, SrcMod: LongInt; Rp: PRastP
procedure BltTemplateAlpha(SrcTemplate: APTR; SrcX, SrcY: LongInt; Rp: PRastPort; DestX, DestY: LongInt; Width, Height: LongWord); syscall ICyberGfx 232;
// Functions and procedures with array of const go here
function AllocCModeListTags(const ModeListTags: array of PtrUInt): PList;
function BestCModeIDTags(const BestModeIDTags: array of PtrUInt): LongWord;
procedure CVideoCtrlTags(ViewPort: PViewPort; const TagList: array of PtrUInt);
procedure DoCDrawMethodTags(Hook: PHook; a1arg: PRastPort; const TagList: array of PtrUInt);
function LockBitMapTags(BitMap: APTR; const TagList: array of PtrUInt): APTR;
procedure UnLockBitMapTags(Handle: APTR; const TagList: array of PtrUInt);
function AllocCModeListTags(const ModeListTags: array of PtrUInt): PList; inline;
function BestCModeIDTags(const BestModeIDTags: array of PtrUInt): LongWord; inline;
function CModeRequestTags(ModeRequest: APTR; const ModeRequestTags : array of PtrUInt): LongWord; inline;
procedure CVideoCtrlTags(ViewPort: PViewPort; const TagList: array of PtrUInt); inline;
procedure DoCDrawMethodTags(Hook: PHook; a1arg: PRastPort; const TagList: array of PtrUInt); inline;
function LockBitMapTags(BitMap: APTR; const TagList: array of PtrUInt): APTR; inline;
procedure UnLockBitMapTags(Handle: APTR; const TagList: array of PtrUInt); inline;
function SHIFT_PIXFMT(fmt: LongInt): LongInt;
function DOWNSHIFT_PIXFMT(fmt: LongInt): LongInt;
@ -212,6 +213,11 @@ begin
BestCModeIDTags := BestCModeIDTagList(@BestModeIDTags);
end;
function CModeRequestTags(ModeRequest: APTR; const ModeRequestTags : array of PtrUInt): LongWord;
begin
CModeRequestTags := CModeRequestTagList(ModeRequest, @ModeRequestTags);
end;
procedure CVideoCtrlTags(ViewPort: PViewPort; const TagList: array of PtrUInt); inline;
begin
CVideoCtrlTagList(ViewPort, @TagList);