paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-21 13:52:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ ObtainPen()'s 2nd argument is actually a longint, not cardinal,

Browse Source 
because -1 is a valid argument for this function there.
  This bug is also in the original AmigaOS C SDK, which specifies
  this argument as ULONG, and defines -1 as valid argument for it.

git-svn-id: trunk@11981 -
This commit is contained in:
Károly Balogh 2008-10-27 09:27:07 +00:00
parent df8fa326cd
commit 42871abdeb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/morphos/graphics.pas
View File

@ -2631,7 +2631,7 @@ SysCall GfxBase 942;
procedure ReleasePen(cm : pColorMap location 'a0'; n : CARDINAL location 'd0'); procedure ReleasePen(cm : pColorMap location 'a0'; n : CARDINAL location 'd0');
SysCall GfxBase 948; SysCall GfxBase 948;
function ObtainPen(cm : pColorMap location 'a0'; n : CARDINAL location 'd0'; r : CARDINAL location 'd1'; g : CARDINAL location 'd2'; b : CARDINAL location 'd3'; f : LongInt location 'd4') : CARDINAL; function ObtainPen(cm : pColorMap location 'a0'; n : longint location 'd0'; r : CARDINAL location 'd1'; g : CARDINAL location 'd2'; b : CARDINAL location 'd3'; f : LongInt location 'd4') : CARDINAL;
SysCall GfxBase 954; SysCall GfxBase 954;
function GetBitMapAttr(bm : pBitMap location 'a0'; attrnum : CARDINAL location 'd1') : CARDINAL; function GetBitMapAttr(bm : pBitMap location 'a0'; attrnum : CARDINAL location 'd1') : CARDINAL;