paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 06:30:26 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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; 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 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 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; 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; 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; 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 FreeCprList(cprList : pcprlist location 'a0'); syscall GfxBase 564;
PROCEDURE FreeDBufInfo(dbi : pDBufInfo location 'a1'); syscall GfxBase 972; 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 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 FreeSprite(num : LONGINT location 'd0'); syscall GfxBase 414;
PROCEDURE FreeSpriteData(sp : pExtSprite location 'a2'); syscall GfxBase 1032; PROCEDURE FreeSpriteData(sp : pExtSprite location 'a2'); syscall GfxBase 1032;
PROCEDURE FreeVPortCopLists(vp : pViewPort location 'a0'); syscall GfxBase 540; 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; VAR RenderBase : pLibrary;
type type
pPLANEPTR = ^PLANEPTR; pPLANEPTR = ^TPLANEPTR;
const const
RENDERNAME : PChar = 'render.library'; RENDERNAME : PChar = 'render.library';

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

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

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

@ -2424,10 +2424,10 @@ SysCall GfxBase 480;
procedure RemFont(textFont : pTextFont location 'a1'); procedure RemFont(textFont : pTextFont location 'a1');
SysCall GfxBase 486; 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; 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; SysCall GfxBase 498;
procedure AndRectRegion(region : pRegion location 'a0'; rectangle : pRectangle location 'a1'); procedure AndRectRegion(region : pRegion location 'a0'; rectangle : pRectangle location 'a1');