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

amunits/morphunits: more planeptr type fixes

Browse Source 
git-svn-id: trunk@30537 -
This commit is contained in:
Károly Balogh 2015-04-11 00:08:05 +00:00
parent 7e7f85c20a
commit 363a24a038
4 changed files with 6 additions and 6 deletions
packages
amunits/src
coreunits
agraphics.pas
otherlibs
render.pas
utilunits
doublebuffer.pas
morphunits/src
agraphics.pas

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

@ -2242,7 +2242,7 @@ PROCEDURE AddFont(textFont : pTextFont location 'a1'); syscall GfxBase 480;
PROCEDURE AddVSprite(vSprite : pVSprite location 'a0'; rp : pRastPort location 'a1'); syscall GfxBase 102;
FUNCTION AllocBitMap(sizex : ULONG location 'd0'; sizey : ULONG location 'd1'; depth : ULONG location 'd2'; flags : ULONG location 'd3'; const friend_bitmap : pBitMap location 'a0') : pBitMap; syscall GfxBase 918;
FUNCTION AllocDBufInfo(vp : pViewPort location 'a0') : pDBufInfo; syscall GfxBase 966;
FUNCTION AllocRaster(width : ULONG location 'd0'; height : ULONG location 'd1') : pCHAR; syscall GfxBase 492;
FUNCTION AllocRaster(width : ULONG location 'd0'; height : ULONG location 'd1') : TPlanePtr; syscall GfxBase 492;
FUNCTION AllocSpriteDataA(const bm : pBitMap location 'a2';const tags : pTagItem location 'a1') : pExtSprite; syscall GfxBase 1020;
PROCEDURE AndRectRegion(region : pRegion location 'a0';const rectangle : pRectangle location 'a1'); syscall GfxBase 504;
FUNCTION AndRegionRegion(const srcRegion : pRegion location 'a0'; destRegion : pRegion location 'a1') : LongBool; syscall GfxBase 624;
@ -2297,7 +2297,7 @@ PROCEDURE FreeCopList(copList : pCopList location 'a0'); syscall GfxBase 546;
PROCEDURE FreeCprList(cprList : pcprlist location 'a0'); syscall GfxBase 564;
PROCEDURE FreeDBufInfo(dbi : pDBufInfo location 'a1'); syscall GfxBase 972;
PROCEDURE FreeGBuffers(anOb : pAnimOb location 'a0'; rp : pRastPort location 'a1'; flag : LONGINT location 'd0'); syscall GfxBase 600;
PROCEDURE FreeRaster(p : pCHAR location 'a0'; width : ULONG location 'd0'; height : ULONG location 'd1'); syscall GfxBase 498;
PROCEDURE FreeRaster(p : TPlanePtr location 'a0'; width : ULONG location 'd0'; height : ULONG location 'd1'); syscall GfxBase 498;
PROCEDURE FreeSprite(num : LONGINT location 'd0'); syscall GfxBase 414;
PROCEDURE FreeSpriteData(sp : pExtSprite location 'a2'); syscall GfxBase 1032;
PROCEDURE FreeVPortCopLists(vp : pViewPort location 'a0'); syscall GfxBase 540;

2
packages/amunits/src/otherlibs/render.pas
View File

@ -42,7 +42,7 @@ USES Exec,utility,agraphics;
VAR RenderBase : pLibrary;
type
pPLANEPTR = ^PLANEPTR;
pPLANEPTR = ^TPLANEPTR;
const
RENDERNAME : PChar = 'render.library';

2
packages/amunits/src/utilunits/doublebuffer.pas
View File

@ -181,7 +181,7 @@ var
bm1,
bm2 : pBitMap;
rp : pRastPort;
Temp : Array [0..7] of PLANEPTR;
Temp : Array [0..7] of TPLANEPTR;
begin
s := w^.WScreen;
rp := w^.RPort;

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

@ -2424,10 +2424,10 @@ SysCall GfxBase 480;
procedure RemFont(textFont : pTextFont location 'a1');
SysCall GfxBase 486;
function AllocRaster(width : CARDINAL location 'd0'; height : CARDINAL location 'd1') : pCHAR;
function AllocRaster(width : CARDINAL location 'd0'; height : CARDINAL location 'd1') : TPlanePtr;
SysCall GfxBase 492;
procedure FreeRaster(p : pCHAR location 'a0'; width : CARDINAL location 'd0'; height : CARDINAL location 'd1');
procedure FreeRaster(p : TPlanePtr location 'a0'; width : CARDINAL location 'd0'; height : CARDINAL location 'd1');
SysCall GfxBase 498;
procedure AndRectRegion(region : pRegion location 'a0'; rectangle : pRectangle location 'a1');