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

AmigaOS4: extend all parameter to 4 Byte types

Browse Source 
git-svn-id: trunk@33640 -
This commit is contained in:
marcus 2016-05-03 16:15:17 +00:00
parent 43e9c741aa
commit b1a8dec99b
3 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
packages/os4units/src/agraphics.pas
View File

@ -2338,7 +2338,7 @@ function AreaEnd(Rp: PRastPort): LongInt; syscall IGfx 232;
procedure WaitTOF; syscall IGfx 236;
procedure QBlit(blit: PBltNode); syscall IGfx 240;
procedure InitArea(AreaInfo: PAreaInfo; VectorBuffer: APTR; MaxVectors: LongInt); syscall IGfx 244;
procedure SetRGB4(Vp: PViewPort; ColIndex: LongWord; Red, Green, Blue: Byte); syscall IGfx 248;
procedure SetRGB4(Vp: PViewPort; ColIndex: LongWord; Red, Green, Blue: LongWord); syscall IGfx 248;
procedure QBSBlit(Blit: PBltNode); syscall IGfx 252;
procedure BltClear(MemBlock: TPlanePtr; ByteCount, Flags: LongWord); syscall IGfx 256;
procedure RectFill(Rp: PRastPort; XMin, YMin, XMax, YMax: LongInt); syscall IGfx 260;
@ -2347,15 +2347,15 @@ function ReadPixel(Rp: PRastPort; X, Y: LongInt): LongInt; syscall IGfx 268;
function WritePixel(Rp: PRastPort; X, Y: LongInt): LongInt; syscall IGfx 272;
function Flood(Rp: PRastPort; Mode: LongWord; X, Y: LongInt): LongBool; syscall IGfx 276;
procedure PolyDraw(Rp: PRastPort; Count: LongInt; const PolyTable: PSmallInt); syscall IGfx 280;
procedure SetAPen(Rp: PRastPort; Pen: Byte); syscall IGfx 284;
procedure SetBPen(Rp: PRastPort; Pen: Byte); syscall IGfx 288;
procedure SetDrMd(Rp: PRastPort; DrawMode: Byte); syscall IGfx 292;
procedure SetAPen(Rp: PRastPort; Pen: LongWord); syscall IGfx 284;
procedure SetBPen(Rp: PRastPort; Pen: LongWord); syscall IGfx 288;
procedure SetDrMd(Rp: PRastPort; DrawMode: LongWord); syscall IGfx 292;
procedure InitView(View: PView); syscall IGfx 296;
procedure CBump(CopList: PUCopList); syscall IGfx 300;
procedure CMove(CopList: PUCopList; DestOffset: LongInt; data: LongInt); syscall IGfx 304;
procedure CWait(CopList: PUCopList; V, H: LongInt); syscall IGfx 308;
function VBeamPos: LongInt; syscall IGfx 312;
procedure InitBitMap(BitMap: PBitMap; Depth: ShortInt; Width, Height: LongWord); syscall IGfx 316;
procedure InitBitMap(BitMap: PBitMap; Depth: LongInt; Width, Height: LongWord); syscall IGfx 316;
procedure ScrollRaster(Rp: PRastPort; Dx, Dy, XMin, YMin, XMax, YMax: LongInt); syscall IGfx 320;
procedure WaitBOVP(Vp: PViewPort); syscall IGfx 324;
function GetSprite(Sprite: PSimpleSprite; Num: LongInt): LongInt; syscall IGfx 328;
@ -2382,7 +2382,7 @@ procedure ClearRegion(Region: PRegion); syscall IGfx 408;
procedure DisposeRegion(Region: PRegion); syscall IGfx 412;
procedure FreeVPortCopLists(Vp: PViewPort); syscall IGfx 416;
procedure FreeCopList(CopList: PCopList); syscall IGfx 420;
procedure ClipBlit(SrcRP: PRastPort; XSrc, ySrc: LongInt; DestRP: PRastPort; XDest, YDest, XSize, YSize: LongWord; MinTerm: Byte); syscall IGfx 424;
procedure ClipBlit(SrcRP: PRastPort; XSrc, ySrc: LongInt; DestRP: PRastPort; XDest, YDest, XSize, YSize: LongWord; MinTerm: LongWord); syscall IGfx 424;
function XorRectRegion(Region: PRegion; const Rectangle: PRectangle): LongBool; syscall IGfx 428;
procedure FreeCprList(CprList: PCprList); syscall IGfx 432;
function GetColorMap(Entries: LongWord): PColorMap; syscall IGfx 436;
@ -2391,12 +2391,12 @@ function GetRGB4(ColorMap: PColorMap; Entry: LongWord): LongInt; syscall IGfx 44
procedure ScrollVPort(Vp: PViewPort); syscall IGfx 448;
function UCopperListInit(UCopList: PUCopList; N: LongInt): PCopList; syscall IGfx 452;
procedure FreeGBuffers(AnOb: PAnimOb; Rp: PRastPort; Flag: LongInt); syscall IGfx 456;
function BltBitMaPRastPort(const SrcBitMap: PBitMap; XSrc, YSrc: LongInt; DestRP: PRastPort; XDest, YDest, XSize, YSize: LongInt; Minterm: Byte): LongBool; syscall IGfx 460;
function BltBitMaPRastPort(const SrcBitMap: PBitMap; XSrc, YSrc: LongInt; DestRP: PRastPort; XDest, YDest, XSize, YSize: LongInt; Minterm: LongWord): LongBool; syscall IGfx 460;
function OrRegionRegion(const SrcRegion: PRegion; DestRegion: PRegion): LongBool; syscall IGfx 464;
function XorRegionRegion(const SrcRegion: PRegion; DestRegion: PRegion): LongBool; syscall IGfx 468;
function AndRegionRegion(const SrcRegion: PRegion; DestRegion: PRegion): LongBool; syscall IGfx 472;
procedure SetRGB4CM(ColorMap: PColorMap; ColIndex: LongWord; Red, Green, Blue: LongWord); syscall IGfx 476;
procedure BltMaskBitMapRastPort(const SrcBitMap: PBitMap; XSrc, YSrc: LongInt; DestRP: PRastPort; XDest, YDest, XSize, YSize: LongInt; MinTerm: Byte; const BltMask: TPlanePtr); syscall IGfx 480;
procedure BltMaskBitMapRastPort(const SrcBitMap: PBitMap; XSrc, YSrc: LongInt; DestRP: PRastPort; XDest, YDest, XSize, YSize: LongInt; MinTerm: LongWord; const BltMask: TPlanePtr); syscall IGfx 480;
// 484 private
// 488 private
function AttemptLockLayerRom(Layer: PLayer): LongBool; syscall IGfx 492;

10
packages/os4units/src/exec.pas
View File

@ -1787,16 +1787,16 @@ procedure Enable(); syscall IExec 252;
procedure Reschedule(); syscall IExec 256;
function FindTask(const Name: STRPTR): PTask; syscall IExec 260;
procedure RemTask(Task: PTask); syscall IExec 264;
function SetTaskPri(Task: PTask; Priority: ShortInt): ShortInt; syscall IExec 268;
function SetTaskPri(Task: PTask; Priority: LongInt): LongInt; syscall IExec 268;
procedure StackSwap(NewStack: PStackSwapStruct); syscall IExec 272;
function AllocSignal(SignalNum: ShortInt): ShortInt; syscall IExec 276;
procedure FreeSignal(SignalNum: ShortInt); syscall IExec 280;
function AllocSignal(SignalNum: LongInt): ShortInt; syscall IExec 276;
procedure FreeSignal(SignalNum: LongInt); syscall IExec 280;
function SetExcept(NewSignals: LongWord; SignalMask: LongWord): LongWord; syscall IExec 284;
function SetSignal(NewSignals: LongWord; SignalMask: LongWord): LongWord; syscall IExec 288;
procedure Signal(Task: PTask; Signals: LongWord); syscall IExec 292;
function Wait(SignalSet: LongWord): LongWord; syscall IExec 296;
procedure AddPort(Port: PMsgPort); syscall IExec 300;
function CreatePort(const Name: STRPTR; Pri: ShortInt): PMsgPort; syscall IExec 304;
function CreatePort(const Name: STRPTR; Pri: LongInt): PMsgPort; syscall IExec 304;
function CreateMsgPort(): PMsgPort; syscall IExec 308;
procedure DeletePort(Port: PMsgPort); syscall IExec 312;
procedure DeleteMsgPort(Port: PMsgPort); syscall IExec 316;
@ -1852,7 +1852,7 @@ function CreateIORequest(const IOReplyPort: PMsgPort; Size: LongWord): PIOReques
procedure DeleteIORequest(IORequest: PIORequest); syscall IExec 516;
procedure AbortIO(IORequest: PIORequest); syscall IExec 520;
function CheckIO(IORequest: PIORequest): PIORequest; syscall IExec 524;
function DoIO(IORequest: PIORequest): ShortInt; syscall IExec 528;
function DoIO(IORequest: PIORequest): LongInt; syscall IExec 528;
procedure SendIO(IORequest: PIORequest); syscall IExec 532;
procedure BeginIO(IORequest: PIORequest); syscall IExec 536;
procedure WaitIO(IORequest: PIORequest); syscall IExec 540;

4
packages/os4units/src/layers.pas
View File

@ -169,7 +169,7 @@ procedure LockLayers(Li: PLayer_Info); syscall ILayers 128;
procedure UnlockLayers(Li: PLayer_Info); syscall ILayers 132;
procedure LockLayerInfo(Li: PLayer_Info); syscall ILayers 136;
procedure SwapBitsRastPortClipRect(Rp: PRastPort; Cr: PClipRect); syscall ILayers 140;
function WhichLayer(Li: PLayer_Info; X, Y: SmallInt): PLayer; syscall ILayers 144;
function WhichLayer(Li: PLayer_Info; X, Y: LongInt): PLayer; syscall ILayers 144;
procedure UnlockLayerInfo(Li: PLayer_Info); syscall ILayers 148;
function NewLayerInfo: PLayer_Info; syscall ILayers 152;
procedure DisposeLayerInfo(Li: PLayer_Info); syscall ILayers 156;
@ -182,7 +182,7 @@ function CreateUpfrontHookLayer(Li: PLayer_Info; Bm: PBitMap; X0, Y0, X1, Y1, Fl
function CreateBehindHookLayer(Li: PLayer_Info; Bm: PBitMap; X0, Y0, X1, Y1, Flags: LongInt; Hook: PHook; Bm2: PBitMap): PLayer; syscall ILayers 184;
function InstallLayerHook(Layer: PLayer; Hook: PHook): PHook; syscall ILayers 188;
function InstallLayerInfoHook(Li: PLayer_Info; const Hook: PHook): PHook; syscall ILayers 192;
procedure SortLayerCR(Layer: PLayer; Dx, Dy: SmallInt); syscall ILayers 196;
procedure SortLayerCR(Layer: PLayer; Dx, Dy: LongInt); syscall ILayers 196;
procedure DoHookClipRects(Hook: PHook; RPort: PRastPort; const Rect: PRectangle); syscall ILayers 200;
function LayerOccluded(Layer: PLayer): LongInt; syscall ILayers 204;
function HideLayer(Layer: PLayer): LongInt; syscall ILayers 208;