AmigaOS4: extend all parameter to 4 Byte types

git-svn-id: trunk@33640 -

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;

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;

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;