paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 12:50:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

tosunits: xbios vsetrgb/vgetrgb - do not use Pascal open array style syntax in a C-style API, but C pointer-style

Browse Source
This commit is contained in:
Karoly Balogh 2023-09-17 12:41:48 +02:00
parent e3f4676fb0
commit 35ac20c1f0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/tosunits/src/xbios.pas
View File

@ -687,8 +687,8 @@ function xbios_Vsetmode(modecode: smallint): smallint; syscall 14 88;
function xbios_mon_type: smallint; syscall 14 89;
procedure xbios_VsetSync(flag: smallint); syscall 14 90;
function xbios_VgetSize(mode: smallint): LongInt; syscall 14 91;
procedure xbios_VsetRGB(index, count: smallint; xrgbArray: Array of TRGB); syscall 14 93;
procedure xbios_VgetRGB(index, count: smallint; var xrgbArray: Array of TRGB); syscall 14 94;
procedure xbios_VsetRGB(index, count: smallint; xrgbArray: PRGB); syscall 14 93;
procedure xbios_VgetRGB(index, count: smallint; xrgbArray: PRGB); syscall 14 94;
function xbios_Validmode(mode: smallint): smallint; syscall 14 95;
procedure xbios_Dsp_DoBlock(data_in: Pointer; size_in: LongInt; data_out: Pointer; size_out: LongInt); syscall 14 96;
procedure xbios_Dsp_BlkHandShake(data_in: Pointer; size_in: LongInt; data_out: Pointer; size_out: LongInt); syscall 14 97;