From b1a8dec99b3c88cc16f1c0e55e4aecda71f2b2f7 Mon Sep 17 00:00:00 2001 From: marcus Date: Tue, 3 May 2016 16:15:17 +0000 Subject: [PATCH] AmigaOS4: extend all parameter to 4 Byte types git-svn-id: trunk@33640 - --- packages/os4units/src/agraphics.pas | 16 ++++++++-------- packages/os4units/src/exec.pas | 10 +++++----- packages/os4units/src/layers.pas | 4 ++-- 3 files changed, 15 insertions(+), 15 deletions(-) diff --git a/packages/os4units/src/agraphics.pas b/packages/os4units/src/agraphics.pas index 67e7383f67..edc118070d 100644 --- a/packages/os4units/src/agraphics.pas +++ b/packages/os4units/src/agraphics.pas @@ -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; diff --git a/packages/os4units/src/exec.pas b/packages/os4units/src/exec.pas index 4e926b0af1..0fd3c6c7a4 100644 --- a/packages/os4units/src/exec.pas +++ b/packages/os4units/src/exec.pas @@ -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; diff --git a/packages/os4units/src/layers.pas b/packages/os4units/src/layers.pas index 98c58c1f14..d9cdda98de 100644 --- a/packages/os4units/src/layers.pas +++ b/packages/os4units/src/layers.pas @@ -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;