mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 17:59:27 +02:00
AROS: more ABIv1 and x64 adjustments
git-svn-id: trunk@35074 -
This commit is contained in:
marcus
parent
759a53dfc7
commit
afaefc32e8
@ -637,9 +637,16 @@ type
|
||||
TxBaseline: Word; // text baseline
|
||||
TxSpacing: SmallInt; // text spacing (per character)
|
||||
RP_User: APTR;
|
||||
{$ifdef AROS_ABIv0}
|
||||
longreserved: array[0..1] of IPTR;
|
||||
wordreserved: array[0..6] of Word; // used to be a node
|
||||
reserved: array[0..7] of Byte; // for future use
|
||||
{$endif}
|
||||
{$ifdef AROS_ABIv1}
|
||||
RP_Extra: APTR;
|
||||
longreserved: array[0..5] of IPTR;
|
||||
reserved: array[0..1] of Byte;
|
||||
{$endif}
|
||||
end;
|
||||
|
||||
const
|
||||
@ -2047,198 +2054,231 @@ const
|
||||
var
|
||||
GfxBase: PGfxBase;
|
||||
|
||||
procedure AddAnimOb(AnOb: PAnimOb; AnKey: PPAnimOb; Rp: PRastPort); syscall GfxBase 26;
|
||||
procedure AddBob(Bob: PBob; Rp: PRastPort); syscall GfxBase 16;
|
||||
function AddDisplayDriverA(GfxHidd: APTR; Tags: PTagItem): LongInt; syscall GfxBase 181;
|
||||
procedure AddFont(TextFont: PTextFont); syscall GfxBase 80;
|
||||
procedure AddVSprite(VSprite: PVSprite; Rp: PRastPort); syscall GfxBase 17;
|
||||
function AllocBitMap(Sizex, Sizey, Depth, Flags: LongWord; Friend_Bitmap: PBitMap): PBitMap; syscall GfxBase 153;
|
||||
function AllocDBufInfo(Vp: PViewPort): PDBufInfo; syscall GfxBase 161;
|
||||
function AllocRaster(Width, Height: LongWord): TPlanePtr; syscall GfxBase 82;
|
||||
function AllocSpriteDataA(Bitmap: PBitMap; TagList: PTagItem): PExtSprite; syscall GfxBase 170;
|
||||
function AndRectRect(Rect1: PRectangle; Rect2: PRectangle; Intersect: PRectangle): LongBool; syscall GfxBase 193;
|
||||
procedure AndRectRegion(Reg: PRegion; Rect :PRectangle); syscall GfxBase 84;
|
||||
procedure AndRectRegionND(Reg: PRegion; Rect: PRectangle); syscall GfxBase 107;
|
||||
function AndRegionRegion(SrcRegion: PRegion; DestRegion: PRegion): LongBool; syscall GfxBase 104;
|
||||
function AndRegionRegionND(R1: PRegion; R2: PRegion): PRegion; syscall GfxBase 108;
|
||||
procedure Animate(AnKey: PPAnimOb; Rp: PRastPort); syscall GfxBase 27;
|
||||
function AreaDraw(Rp: PRastPort; x, y: SmallInt): LongWord; syscall GfxBase 43;
|
||||
function AreaEllipse(Rp: PRastPort; xCenter, yCenter, a, b: SmallInt): LongWord; syscall GfxBase 31;
|
||||
function AreaEnd(Rp: PRastPort): LongInt; syscall GfxBase 44;
|
||||
function AreaMove(Rp: PRastPort; x, y: SmallInt): LongWord; syscall GfxBase 42;
|
||||
function AreRegionsEqual(R1: PRegion; R2: PRegion): LongBool; syscall GfxBase 189;
|
||||
procedure AskFont(Rp: PRastPort; TextAttr: PTextAttr); syscall GfxBase 79;
|
||||
function AskSoftStyle(Rp: PRastPort): LongWord; syscall GfxBase 14;
|
||||
function AttachPalExtra(Cm: PColorMap; Vp: PViewPort): LongInt; syscall GfxBase 139;
|
||||
function AttemptLockLayerRom(l: PLayer): LongBool; syscall GfxBase 109;
|
||||
function BestModeIDA(Tags: PTagItem): LongWord; syscall GfxBase 175;
|
||||
procedure BitMapScale(BitScaleArgs: PBitScaleArgs); syscall GfxBase 113;
|
||||
|
||||
|
||||
function BltBitMap(const SrcBitMap: PBitMap; xSrc, ySrc: LongInt; DestBitMap: PBitMap; xDest, yDest, xSize, ySize: LongInt; MinTerm : LongWord; Mask: LongWord; TempA: TPlanePtr): LongInt; syscall GfxBase 5;
|
||||
procedure BltBitMapRastPort(const SrcBitMap: PBitMap; xSrc, ySrc: LongInt; DestRP: PRastPort; xDest, yDest, xSize, ySize: LongInt; MinTerm: LongWord); syscall GfxBase 101;
|
||||
procedure BltClear(MemBlock: Pointer; ByteCount: LongWord; Flags: LongWord); syscall GfxBase 50; deprecated;
|
||||
procedure BltMaskBitMapRastPort(SrcBitMap: PBitMap; xSrc, ySrc: LongInt; DestRP: PRastPort; xDest, yDest, xSize, ySize: LongInt; MinTerm: LongWord; bltMask: TPlanePtr); syscall GfxBase 106;
|
||||
procedure BltPattern(Rp: PRastPort; mask: TPlanePtr; xMin, yMin, xMax, yMax: LongInt; ByteCnt: LongWord); syscall GfxBase 52;
|
||||
procedure BltRastPortBitMap(SrcRastPort: PRastPort; xSrc, ySrc: LongInt; DestBitMap: PBitMap; xDest, yDest, xSize, ySize, MinTerm: LongWord); syscall GfxBase 196;
|
||||
procedure BltTemplate(const Source: TPlanePtr; xSrc, srcMod: LongInt; DestRP: PRastPort; xDest, yDest, xSize, ySize: LongInt); syscall GfxBase 6;
|
||||
function CalcIVG(View: PView; ViewPort: PViewPort): Word; syscall GfxBase 138; unimplemented;
|
||||
procedure CBump(CopList: PUCopList); syscall GfxBase 61;
|
||||
function ChangeExtSpriteA(Vp: PViewPort; Oldsprite: PExtSprite; NewSprite: PExtSprite; Tags: PTagItem): LongInt; syscall GfxBase 171;
|
||||
procedure ChangeSprite(Vp: PViewPort; s: PSimpleSprite; NewData: Pointer); syscall GfxBase 70; unimplemented;
|
||||
procedure ChangeVPBitMap(Vp: PViewPort; Bm: PBitMap; Db: PDBufInfo); syscall GfxBase 157;
|
||||
procedure ClearEOL(Rp: PRastPort); syscall GfxBase 7;
|
||||
function ClearRectRegion(Reg: PRegion; Rect: PRectangle): LongBool; syscall GfxBase 87;
|
||||
function ClearRectRegionND(Reg: PRegion; Rect: PRectangle): PRegion; syscall GfxBase 124;
|
||||
procedure ClearRegion(Region: PRegion); syscall GfxBase 88;
|
||||
function ClearRegionRegion(R1: PRegion; R2: PRegion): LongBool; syscall GfxBase 187;
|
||||
function ClearRegionRegionND(R1: PRegion; R2: PRegion): PRegion; syscall GfxBase 141;
|
||||
procedure ClearScreen(Rp: PRastPort); syscall GfxBase 8;
|
||||
procedure ClipBlit(SrcRP: PRastPort; xSrc, ySrc: LongInt; DestRP: PRastPort; xDest, yDest, xSize, ySize: LongInt; MinTerm: Byte); syscall GfxBase 92;
|
||||
function TextLength(Rp: PRastPort; const string_: STRPTR; Count: LongWord): SmallInt; syscall GfxBase 9;
|
||||
procedure GfxText(Rp: PRastPort; const String_: STRPTR; Count: LongWord); syscall GfxBase 10;
|
||||
procedure SetFont(Rp: PRastPort; TextFont: PTextFont); syscall GfxBase 11;
|
||||
function OpenFont(TextAttr: PTextAttr): PTextFont; syscall GfxBase 12;
|
||||
procedure CloseFont(TextFont: PTextFont); syscall GfxBase 13;
|
||||
function CloseMonitor(Monitor_Spec: PMonitorSpec): LongInt; syscall GfxBase 120;
|
||||
function AskSoftStyle(Rp: PRastPort): LongWord; syscall GfxBase 14;
|
||||
function SetSoftStyle(Rp: PRastPort; Style: LongWord; Enable: LongWord): LongWord; syscall GfxBase 15;
|
||||
procedure AddBob(Bob: PBob; Rp: PRastPort); syscall GfxBase 16;
|
||||
procedure AddVSprite(VSprite: PVSprite; Rp: PRastPort); syscall GfxBase 17;
|
||||
procedure DoCollision(Rp: PRastPort); syscall GfxBase 18;
|
||||
procedure DrawGList(Rp: PRastPort; Vp: PViewPort); syscall GfxBase 19;
|
||||
procedure InitGels(Head: PVSprite; Tail: PVSprite; GelsInfo: PGelsInfo); syscall GfxBase 20;
|
||||
procedure InitMasks(VSprite: PVSprite); syscall GfxBase 21;
|
||||
procedure RemIBob(Bob: PBob; Rp: PRastPort; Vp: PViewPort); syscall GfxBase 22;
|
||||
procedure RemVSprite(VSprite: PVSprite); syscall GfxBase 23;
|
||||
procedure SetCollision(Num: LongWord; Routine: TProcedure; GInfo: PGelsInfo); syscall GfxBase 24;
|
||||
procedure SortGList(Rp: PRastPort); syscall GfxBase 25;
|
||||
procedure AddAnimOb(AnOb: PAnimOb; AnKey: PPAnimOb; Rp: PRastPort); syscall GfxBase 26;
|
||||
procedure Animate(AnKey: PPAnimOb; Rp: PRastPort); syscall GfxBase 27;
|
||||
function GetGBuffers(AnOb: PAnimOb; Rp: PRastPort; Db: LongBool): LongBool; syscall GfxBase 28;
|
||||
procedure InitGMasks(AnOb: PAnimOb); syscall GfxBase 29;
|
||||
procedure DrawEllipse(Rp: PRastPort; xCenter, yCenter, a, b: LongInt); syscall GfxBase 30;
|
||||
function AreaEllipse(Rp: PRastPort; xCenter, yCenter, a, b: SmallInt): LongWord; syscall GfxBase 31;
|
||||
procedure LoadRGB4(Vp: PViewPort; Colors: PWord; Count: LongInt); syscall GfxBase 32;
|
||||
procedure InitRastPort(Rp: PRastPort); syscall GfxBase 33;
|
||||
procedure InitVPort(Vp: PViewPort); syscall GfxBase 34;
|
||||
function MrgCop(View: PView): LongWord; syscall GfxBase 35;
|
||||
function MakeVPort(View: PView; ViewPort: PViewPort): LongWord; syscall GfxBase 36;
|
||||
procedure LoadView(View: PView); syscall GfxBase 37;
|
||||
procedure WaitBlit; syscall GfxBase 38; unimplemented;
|
||||
procedure SetRast(Rp: PRastPort; Pen: LongWord); syscall GfxBase 39;
|
||||
procedure GfxMove(Rp: PRastPort; x, y: SmallInt); syscall GfxBase 40;
|
||||
procedure Draw(Rp: PRastPort; x, y: LongInt); syscall GfxBase 41;
|
||||
function AreaMove(Rp: PRastPort; x, y: SmallInt): LongWord; syscall GfxBase 42;
|
||||
function AreaDraw(Rp: PRastPort; x, y: SmallInt): LongWord; syscall GfxBase 43;
|
||||
function AreaEnd(Rp: PRastPort): LongInt; syscall GfxBase 44;
|
||||
procedure WaitTOF; syscall GfxBase 45;
|
||||
procedure QBlit(Blit: PBltNode); syscall GfxBase 46;
|
||||
procedure InitArea(AreaInfo: PAreaInfo; Buffer: Pointer; MaxVectors: SmallInt); syscall GfxBase 47;
|
||||
procedure SetRGB4(Vp: PViewPort; n, r, g, b: LongWord); syscall GfxBase 48;
|
||||
procedure QBSBlit(Blit: PBltNode); syscall GfxBase 49;
|
||||
procedure BltClear(MemBlock: Pointer; ByteCount: LongWord; Flags: LongWord); syscall GfxBase 50; deprecated;
|
||||
procedure RectFill(Rp: PRastPort; xMin, yMin, xMax, yMax : LongInt); syscall GfxBase 51;
|
||||
procedure BltPattern(Rp: PRastPort; mask: TPlanePtr; xMin, yMin, xMax, yMax: LongInt; ByteCnt: LongWord); syscall GfxBase 52;
|
||||
function ReadPixel(Rp: PRastPort; x, y: LongInt): LongInt; syscall GfxBase 53;
|
||||
function WritePixel(Rp: PRastPort; x, y: LongInt): LongInt; syscall GfxBase 54;
|
||||
function Flood(Rp: PRastPort; Mode: LongWord; x, y: LongInt): LongBool; syscall GfxBase 55;
|
||||
procedure PolyDraw(Rp: PRastPort; Count: LongInt; PolyTable: PSmallInt); syscall GfxBase 56;
|
||||
procedure SetAPen(Rp: PRastPort; Pen: LongWord); syscall GfxBase 57;
|
||||
procedure SetBPen(Rp: PRastPort; Pen: LongWord); syscall GfxBase 58;
|
||||
procedure SetDrMd(Rp: PRastPort; DrawMode: LongWord); syscall GfxBase 59;
|
||||
procedure InitView(View: PView); syscall GfxBase 60;
|
||||
procedure CBump(CopList: PUCopList); syscall GfxBase 61;
|
||||
procedure CMove(CopList: PUCopList; Reg: Pointer; Value: LongInt); syscall GfxBase 62;
|
||||
function CoerceMode(RealViewPort: PViewPort; MonitorID: LongWord; Flags: LongWord): LongWord; syscall GfxBase 156; unimplemented;
|
||||
function CopyRegion(Region: PRegion): PRegion; syscall GfxBase 188;
|
||||
procedure CWait(CopList: PUCopList; V: SmallInt; H: SmallInt); syscall GfxBase 63;
|
||||
function VBeamPos: LongInt; syscall GfxBase 64; platform;
|
||||
procedure InitBitMap(Bm: PBitMap; Depth: ShortInt; Width, Height: Word); syscall GfxBase 65;
|
||||
procedure ScrollRaster(Rp: PRastPort; dx, dy, xMin, yMin, xMax, yMax: LongInt); syscall GfxBase 66;
|
||||
procedure WaitBOVP(Vp: PViewPort); syscall GfxBase 67; unimplemented;
|
||||
function GetSprite(Sprite: PSimpleSprite; Pick: SmallInt): SmallInt; syscall GfxBase 68;
|
||||
procedure FreeSprite(Pick: SmallInt); syscall GfxBase 69;
|
||||
procedure ChangeSprite(Vp: PViewPort; s: PSimpleSprite; NewData: Pointer); syscall GfxBase 70; unimplemented;
|
||||
procedure MoveSprite(Vp: PViewPort; Sprite: PSimpleSprite; x, y: SmallInt); syscall GfxBase 71;
|
||||
procedure LockLayerRom(l: PLayer); syscall GfxBase 72;
|
||||
procedure UnlockLayerRom(l: PLayer); syscall GfxBase 73;
|
||||
procedure SyncSBitMap(l: PLayer); syscall GfxBase 74;
|
||||
procedure CopySBitMap(l: PLayer); syscall GfxBase 75;
|
||||
procedure OwnBlitter; syscall GfxBase 76;
|
||||
procedure DisownBlitter; syscall GfxBase 77;
|
||||
function InitTmpRas(TmpRas: PTmpRas; Buffer: Pointer; Size: LongWord): PTmpRas; syscall GfxBase 78;
|
||||
procedure AskFont(Rp: PRastPort; TextAttr: PTextAttr); syscall GfxBase 79;
|
||||
procedure AddFont(TextFont: PTextFont); syscall GfxBase 80;
|
||||
procedure RemFont(TextFont: PTextFont); syscall GfxBase 81;
|
||||
function AllocRaster(Width, Height: LongWord): TPlanePtr; syscall GfxBase 82;
|
||||
procedure FreeRaster(p: TPlanePtr; Width, Height: LongWord); syscall GfxBase 83;
|
||||
procedure AndRectRegion(Reg: PRegion; Rect :PRectangle); syscall GfxBase 84;
|
||||
function OrRectRegion(Reg: PRegion; Rect: PRectangle): LongBool; syscall GfxBase 85;
|
||||
function NewRegion: PRegion; syscall GfxBase 86;
|
||||
function ClearRectRegion(Reg: PRegion; Rect: PRectangle): LongBool; syscall GfxBase 87;
|
||||
procedure ClearRegion(Region: PRegion); syscall GfxBase 88;
|
||||
procedure DisposeRegion(Region: PRegion); syscall GfxBase 89;
|
||||
procedure FreeVPortCopLists(Vp: PViewPort); syscall GfxBase 90;
|
||||
procedure FreeCopList(CopList: PCopList); syscall GfxBase 91;
|
||||
procedure ClipBlit(SrcRP: PRastPort; xSrc, ySrc: LongInt; DestRP: PRastPort; xDest, yDest, xSize, ySize: LongInt; MinTerm: Byte); syscall GfxBase 92;
|
||||
function XorRectRegion(Reg: PRegion; Rect: PRectangle): LongBool; syscall GfxBase 93;
|
||||
procedure FreeCprList(CprList: PCprList); syscall GfxBase 94;
|
||||
function GetColorMap(Entries: LongWord): PColorMap; syscall GfxBase 95;
|
||||
procedure FreeColorMap(ColorMap: PColorMap); syscall GfxBase 96;
|
||||
function GetRGB4(ColorMap: PColorMap; Entry: LongInt): LongWord; syscall GfxBase 97;
|
||||
procedure ScrollVPort(Vp: PViewPort); syscall GfxBase 98;
|
||||
function UCopperListInit(Ucl: PUCopList; n: SmallInt): PCopList; syscall GfxBase 99;
|
||||
procedure FreeGBuffers(AnOb: PAnimOb; Rp: PRastPort; db: LongBool); syscall GfxBase 100;
|
||||
procedure BltBitMapRastPort(const SrcBitMap: PBitMap; xSrc, ySrc: LongInt; DestRP: PRastPort; xDest, yDest, xSize, ySize: LongInt; MinTerm: LongWord); syscall GfxBase 101;
|
||||
function OrRegionRegion(SrcRegion: PRegion; DestRegion: PRegion): LongBool; syscall GfxBase 102;
|
||||
function XorRegionRegion(SrcRegion: PRegion; DestRegion: PRegion): LongBool; syscall GfxBase 103;
|
||||
function AndRegionRegion(SrcRegion: PRegion; DestRegion: PRegion): LongBool; syscall GfxBase 104;
|
||||
procedure SetRGB4CM(Cm: PColorMap; n: SmallInt; r, g, b: Byte); syscall GfxBase 105;
|
||||
procedure BltMaskBitMapRastPort(SrcBitMap: PBitMap; xSrc, ySrc: LongInt; DestRP: PRastPort; xDest, yDest, xSize, ySize: LongInt; MinTerm: LongWord; bltMask: TPlanePtr); syscall GfxBase 106;
|
||||
function AttemptLockLayerRom(l: PLayer): LongBool; syscall GfxBase 109;
|
||||
function GfxNew(Node_Type: LongWord): PExtendedNode; syscall GfxBase 110;
|
||||
procedure GfxFree(Node: PExtendedNode); syscall GfxBase 111;
|
||||
procedure GfxAssociate(Pointer_: Pointer; Node: PExtendedNode); syscall GfxBase 112;
|
||||
procedure BitMapScale(BitScaleArgs: PBitScaleArgs); syscall GfxBase 113;
|
||||
function ScalerDiv(Factor: LongWord; Numerator: LongWord; Denominator: LongWord): Word; syscall GfxBase 114;
|
||||
procedure TextExtent(Rp: PRastPort; const String_: STRPTR; Count: LongWord; TextExtent_: PTextExtent); syscall GfxBase 115;
|
||||
function TextFit(Rp: PRastPort; const String_: STRPTR; StrLen: LongWord; TextExtent_: PTextExtent; ConstrainingExtent: PTextExtent; StrDirection: LongInt; ConstrainingBitWidth: LongWord; ConstrainingBitHeight: LongWord): LongWord; syscall GfxBase 116;
|
||||
function GfxLookUp(Pointer_: Pointer): PExtendedNode; syscall GfxBase 117;
|
||||
function VideoControl(Cm: PColorMap; Tags: PTagItem): LongWord; syscall GfxBase 118; unimplemented;
|
||||
function OpenMonitor(MonitorName: STRPTR; DisplayID: LongWord): PMonitorSpec; syscall GfxBase 119;
|
||||
function CloseMonitor(Monitor_Spec: PMonitorSpec): LongInt; syscall GfxBase 120;
|
||||
function FindDisplayInfo(ID: LongWord): DisplayInfoHandle; syscall GfxBase 121;
|
||||
function NextDisplayInfo(Last_ID: LongWord): LongWord; syscall GfxBase 122;
|
||||
function GetDisplayInfoData(Handle: DisplayInfoHandle; Buf: PChar; Size: LongWord; TagID: LongWord; ID: LongWord): LongWord; syscall GfxBase 126;
|
||||
procedure FontExtent(Font: PTextFont; FontExtent: PTextExtent); syscall GfxBase 127;
|
||||
function ReadPixelLine8(Rp: PRastPort; xStart, yStart, Width: LongWord; Array_: PByte; TempRP: PRastPort): LongInt; syscall GfxBase 128;
|
||||
function WritePixelLine8(Rp: PRastPort; xStart, yStart, Width: LongWord; Array_: PByte; TempRP: PRastPort): LongInt; syscall GfxBase 129;
|
||||
function ReadPixelArray8(Rp: PRastPort; xStart, yStart, xStop, yStop: LongWord; Array_: PByte; TempRp: PRastPort): LongInt; syscall GfxBase 130;
|
||||
function WritePixelArray8(Rp: PRastPort; xStart, yStart, xStop, yStop: LongWord; Array_: PByte; TempRp: PRastPort): LongInt; syscall GfxBase 131;
|
||||
function GetVPModeID(Vp: PViewPort): LongWord; syscall GfxBase 132;
|
||||
function ModeNotAvailable(ModeID: LongWord): LongWord; syscall GfxBase 133;
|
||||
function WeighTAMatch(ReqTextAttr: PTextAttr; TargetTextAttr: PTextAttr; TargetTags: PTagItem): SmallInt; syscall GfxBase 134;
|
||||
procedure EraseRect(Rp: PRastPort; xMin, yMin, xMax, yMax: LongInt); syscall GfxBase 135;
|
||||
function ExtendFont(Font: PTextFont; FontTags: PTagItem): LongWord; syscall GfxBase 136;
|
||||
procedure StripFont(Font: PTextFont); syscall GfxBase 137;
|
||||
function CalcIVG(View: PView; ViewPort: PViewPort): Word; syscall GfxBase 138; unimplemented;
|
||||
function AttachPalExtra(Cm: PColorMap; Vp: PViewPort): LongInt; syscall GfxBase 139;
|
||||
function ObtainBestPenA(Cm: PColorMap; r, g, b: LongWord; Tags: PTagItem): LongInt; syscall GfxBase 140;
|
||||
procedure SetRGB32(Vp: PViewPort; n, r, g, b : LongWord); syscall GfxBase 142;
|
||||
function GetAPen(Rp: PRastPort): LongWord; syscall GfxBase 143;
|
||||
function GetBPen(Rp: PRastPort): LongWord; syscall GfxBase 144;
|
||||
function GetDrMd(Rp: PRastPort): LongWord; syscall GfxBase 145;
|
||||
function GetOutlinePen(Rp: PRastPort): LongWord; syscall GfxBase 146;
|
||||
procedure LoadRGB32(Vp: PViewPort; const Table: PLongWord); syscall GfxBase 147;
|
||||
function SetChipRev(ChipRev: LongWord): LongWord; syscall GfxBase 148; platform;
|
||||
procedure SetABPenDrMd(Rp: PRastPort; APen: LongWord; BPen: LongWord; DrawMode: LongWord); syscall GfxBase 149;
|
||||
procedure GetRGB32(Cm: PColorMap; FirstColor: LongWord; NColors: LongWord; Table: PLongWord); syscall GfxBase 150;
|
||||
function AllocBitMap(Sizex, Sizey, Depth, Flags: LongWord; Friend_Bitmap: PBitMap): PBitMap; syscall GfxBase 153;
|
||||
procedure FreeBitMap(Bm: PBitMap); syscall GfxBase 154;
|
||||
function GetExtSpriteA(Sprite: PExtSprite; Tags: PTagItem): LongInt; syscall GfxBase 155;
|
||||
function CoerceMode(RealViewPort: PViewPort; MonitorID: LongWord; Flags: LongWord): LongWord; syscall GfxBase 156; unimplemented;
|
||||
procedure ChangeVPBitMap(Vp: PViewPort; Bm: PBitMap; Db: PDBufInfo); syscall GfxBase 157;
|
||||
procedure ReleasePen(Cm: PColorMap; n: LongWord); syscall GfxBase 158;
|
||||
function ObtainPen(Cm: PColorMap; n, r, g, b: LongWord; Flags: LongWord): LongInt; syscall GfxBase 159;
|
||||
function GetBitMapAttr(BitMap: PBitMap; Attribute: LongWord): IPTR; syscall GfxBase 160;
|
||||
function AllocDBufInfo(Vp: PViewPort): PDBufInfo; syscall GfxBase 161;
|
||||
procedure FreeDBufInfo(Dbi: PDBufInfo); syscall GfxBase 162;
|
||||
function SetOutlinePen(Rp: PRastPort; Pen: LongWord): LongWord; syscall GfxBase 163;
|
||||
function SetWriteMask(Rp: PRastPort; Mask: LongWord): LongWord; syscall GfxBase 164;
|
||||
procedure SetMaxPen(Rp: PRastPort; MaxPen: LongWord); syscall GfxBase 165;
|
||||
procedure SetRGB32CM(Cm: PColorMap; n, r, g, b: LongWord); syscall GfxBase 166;
|
||||
procedure ScrollRasterBF(Rp: PRastPort; dx, dy, xMin, yMin, xMax, yMax: LongInt); syscall GfxBase 167;
|
||||
function FindColor(Cm: PColorMap; r, g, b, MaxPen: LongWord): LongWord; syscall GfxBase 168;
|
||||
function AllocSpriteDataA(Bitmap: PBitMap; TagList: PTagItem): PExtSprite; syscall GfxBase 170;
|
||||
function ChangeExtSpriteA(Vp: PViewPort; Oldsprite: PExtSprite; NewSprite: PExtSprite; Tags: PTagItem): LongInt; syscall GfxBase 171;
|
||||
procedure FreeSpriteData(ExtSp: PExtSprite); syscall GfxBase 172;
|
||||
procedure SetRPAttrsA(Rp: PRastPort; Tags: PTagItem); syscall GfxBase 173;
|
||||
procedure GetRPAttrsA(Rp: PRastPort; Tags: PTagItem); syscall GfxBase 174;
|
||||
function BestModeIDA(Tags: PTagItem): LongWord; syscall GfxBase 175;
|
||||
procedure WriteChunkyPixels(Rp: PRastPort; xStart, yStart, xStop, yStop: LongWord; Array_: PByte; BytesPerRow: LongInt); syscall GfxBase 176;
|
||||
|
||||
{$ifdef AROS_ABIv0}
|
||||
procedure AndRectRegionND(Reg: PRegion; Rect: PRectangle); syscall GfxBase 107;
|
||||
function AndRegionRegionND(R1: PRegion; R2: PRegion): PRegion; syscall GfxBase 108;
|
||||
function OrRectRegionND(Reg: PRegion; Rect: PRectangle): PRegion; syscall GfxBase 123;
|
||||
function ClearRectRegionND(Reg: PRegion; Rect: PRectangle): PRegion; syscall GfxBase 124;
|
||||
function OrRegionRegionND(R1: PRegion; R2: PRegion): PRegion; syscall GfxBase 125;
|
||||
function ClearRegionRegionND(R1: PRegion; R2: PRegion): PRegion; syscall GfxBase 141;
|
||||
function XorRegionRegionND(R1: PRegion; R2: PRegion): PRegion; syscall GfxBase 151;
|
||||
function XorRectRegionND(Reg: PRegion; Rect: PRectangle): PRegion; syscall GfxBase 152;
|
||||
function CreateRastPort: PRastPort; syscall GfxBase 177;
|
||||
function CloneRastPort(Rp: PRastPort): PRastPort; syscall GfxBase 178;
|
||||
procedure DeinitRastPort(Rp: PRastPort); syscall GfxBase 179;
|
||||
procedure FreeRastPort(Rp: PRastPort); syscall GfxBase 180;
|
||||
procedure CWait(CopList: PUCopList; V: SmallInt; H: SmallInt); syscall GfxBase 63;
|
||||
procedure DisownBlitter; syscall GfxBase 77;
|
||||
procedure DisposeRegion(Region: PRegion); syscall GfxBase 89;
|
||||
procedure DoCollision(Rp: PRastPort); syscall GfxBase 18;
|
||||
function DoPixelFunc(Rp: PRastPort; x, y: LongInt; Render_Func: Pointer; FuncData: APTR; Do_Update: LongBool): LongInt; syscall GfxBase 185;
|
||||
function DoRenderFunc(Rp: PRastPort; Src: PPoint; Rr: PRectangle; Render_Func: Pointer; FuncData: APTR; Do_Update: LongBool): LongInt; syscall GfxBase 184;
|
||||
procedure Draw(Rp: PRastPort; x, y: LongInt); syscall GfxBase 41;
|
||||
procedure DrawEllipse(Rp: PRastPort; xCenter, yCenter, a, b: LongInt); syscall GfxBase 30;
|
||||
procedure DrawGList(Rp: PRastPort; Vp: PViewPort); syscall GfxBase 19;
|
||||
procedure EraseRect(Rp: PRastPort; xMin, yMin, xMax, yMax: LongInt); syscall GfxBase 135;
|
||||
function ExtendFont(Font: PTextFont; FontTags: PTagItem): LongWord; syscall GfxBase 136;
|
||||
function FillRectPenDrMd(Rp: PRastPort; x1, y1, x2, y2: LongInt; Pix: Pointer{HIDDT_Pixel}; drmd: Pointer{HIDDT_DrawMode}; Do_Update: LongBool): LongInt; syscall GfxBase 183;
|
||||
function FindColor(Cm: PColorMap; r, g, b, MaxPen: LongWord): LongWord; syscall GfxBase 168;
|
||||
function FindDisplayInfo(ID: LongWord): DisplayInfoHandle; syscall GfxBase 121;
|
||||
function Flood(Rp: PRastPort; Mode: LongWord; x, y: LongInt): LongBool; syscall GfxBase 55;
|
||||
procedure FontExtent(Font: PTextFont; FontExtent: PTextExtent); syscall GfxBase 127;
|
||||
procedure FreeBitMap(Bm: PBitMap); syscall GfxBase 154;
|
||||
procedure FreeColorMap(ColorMap: PColorMap); syscall GfxBase 96;
|
||||
procedure FreeCopList(CopList: PCopList); syscall GfxBase 91;
|
||||
procedure FreeCprList(CprList: PCprList); syscall GfxBase 94;
|
||||
procedure FreeDBufInfo(Dbi: PDBufInfo); syscall GfxBase 162;
|
||||
procedure FreeGBuffers(AnOb: PAnimOb; Rp: PRastPort; db: LongBool); syscall GfxBase 100;
|
||||
procedure FreeRaster(p: TPlanePtr; Width, Height: LongWord); syscall GfxBase 83;
|
||||
procedure FreeSprite(Pick: SmallInt); syscall GfxBase 69;
|
||||
procedure FreeSpriteData(ExtSp: PExtSprite); syscall GfxBase 172;
|
||||
procedure FreeVPortCopLists(Vp: PViewPort); syscall GfxBase 90;
|
||||
function GetAPen(Rp: PRastPort): LongWord; syscall GfxBase 143;
|
||||
function GetBitMapAttr(BitMap: PBitMap; Attribute: LongWord): IPTR; syscall GfxBase 160;
|
||||
function GetBPen(Rp: PRastPort): LongWord; syscall GfxBase 144;
|
||||
function GetColorMap(Entries: LongWord): PColorMap; syscall GfxBase 95;
|
||||
function GetDisplayInfoData(Handle: DisplayInfoHandle; Buf: PChar; Size: LongWord; TagID: LongWord; ID: LongWord): LongWord; syscall GfxBase 126;
|
||||
function GetDrMd(Rp: PRastPort): LongWord; syscall GfxBase 145;
|
||||
function GetExtSpriteA(Sprite: PExtSprite; Tags: PTagItem): LongInt; syscall GfxBase 155;
|
||||
function GetGBuffers(AnOb: PAnimOb; Rp: PRastPort; Db: LongBool): LongBool; syscall GfxBase 28;
|
||||
function GetOutlinePen(Rp: PRastPort): LongWord; syscall GfxBase 146;
|
||||
procedure GetRGB32(Cm: PColorMap; FirstColor: LongWord; NColors: LongWord; Table: PLongWord); syscall GfxBase 150;
|
||||
function GetRGB4(ColorMap: PColorMap; Entry: LongInt): LongWord; syscall GfxBase 97;
|
||||
procedure GetRPAttrsA(Rp: PRastPort; Tags: PTagItem); syscall GfxBase 174;
|
||||
function GetSprite(Sprite: PSimpleSprite; Pick: SmallInt): SmallInt; syscall GfxBase 68;
|
||||
function GetVPModeID(Vp: PViewPort): LongWord; syscall GfxBase 132;
|
||||
procedure GfxAssociate(Pointer_: Pointer; Node: PExtendedNode); syscall GfxBase 112;
|
||||
procedure GfxFree(Node: PExtendedNode); syscall GfxBase 111;
|
||||
function GfxLookUp(Pointer_: Pointer): PExtendedNode; syscall GfxBase 117;
|
||||
function GfxNew(Node_Type: LongWord): PExtendedNode; syscall GfxBase 110;
|
||||
procedure InitArea(AreaInfo: PAreaInfo; Buffer: Pointer; MaxVectors: SmallInt); syscall GfxBase 47;
|
||||
procedure InitBitMap(Bm: PBitMap; Depth: ShortInt; Width, Height: Word); syscall GfxBase 65;
|
||||
procedure InitGels(Head: PVSprite; Tail: PVSprite; GelsInfo: PGelsInfo); syscall GfxBase 20;
|
||||
procedure InitGMasks(AnOb: PAnimOb); syscall GfxBase 29;
|
||||
procedure InitMasks(VSprite: PVSprite); syscall GfxBase 21;
|
||||
procedure InitRastPort(Rp: PRastPort); syscall GfxBase 33;
|
||||
function InitTmpRas(TmpRas: PTmpRas; Buffer: Pointer; Size: LongWord): PTmpRas; syscall GfxBase 78;
|
||||
procedure InitView(View: PView); syscall GfxBase 60;
|
||||
procedure InitVPort(Vp: PViewPort); syscall GfxBase 34;
|
||||
function IsPointInRegion(Reg: PRegion; x, y: SmallInt): LongBool; syscall GfxBase 190;
|
||||
procedure LoadRGB32(Vp: PViewPort; const Table: PLongWord); syscall GfxBase 147;
|
||||
procedure LoadRGB4(Vp: PViewPort; Colors: PWord; Count: LongInt); syscall GfxBase 32;
|
||||
procedure LoadView(View: PView); syscall GfxBase 37;
|
||||
procedure LockLayerRom(l: PLayer); syscall GfxBase 72;
|
||||
function MakeVPort(View: PView; ViewPort: PViewPort): LongWord; syscall GfxBase 36;
|
||||
function ModeNotAvailable(ModeID: LongWord): LongWord; syscall GfxBase 133;
|
||||
procedure GfxMove(Rp: PRastPort; x, y: SmallInt); syscall GfxBase 40;
|
||||
procedure MoveSprite(Vp: PViewPort; Sprite: PSimpleSprite; x, y: SmallInt); syscall GfxBase 71;
|
||||
function MrgCop(View: PView): LongWord; syscall GfxBase 35;
|
||||
function NewRectRegion(MinX, MinY, MaxX, MaxY: SmallInt): PRegion; syscall GfxBase 194;
|
||||
function NewRegion: PRegion; syscall GfxBase 86;
|
||||
function NextDisplayInfo(Last_ID: LongWord): LongWord; syscall GfxBase 122;
|
||||
function ObtainBestPenA(Cm: PColorMap; r, g, b: LongWord; Tags: PTagItem): LongInt; syscall GfxBase 140;
|
||||
function ObtainPen(Cm: PColorMap; n, r, g, b: LongWord; Flags: LongWord): LongInt; syscall GfxBase 159;
|
||||
function OpenFont(TextAttr: PTextAttr): PTextFont; syscall GfxBase 12;
|
||||
function OpenMonitor(MonitorName: STRPTR; DisplayID: LongWord): PMonitorSpec; syscall GfxBase 119;
|
||||
function OrRectRegion(Reg: PRegion; Rect: PRectangle): LongBool; syscall GfxBase 85;
|
||||
function OrRectRegionND(Reg: PRegion; Rect: PRectangle): PRegion; syscall GfxBase 123;
|
||||
function OrRegionRegion(SrcRegion: PRegion; DestRegion: PRegion): LongBool; syscall GfxBase 102;
|
||||
function OrRegionRegionND(R1: PRegion; R2: PRegion): PRegion; syscall GfxBase 125;
|
||||
procedure OwnBlitter; syscall GfxBase 76;
|
||||
procedure PolyDraw(Rp: PRastPort; Count: LongInt; PolyTable: PSmallInt); syscall GfxBase 56;
|
||||
procedure QBlit(Blit: PBltNode); syscall GfxBase 46;
|
||||
procedure QBSBlit(Blit: PBltNode); syscall GfxBase 49;
|
||||
function ReadPixel(Rp: PRastPort; x, y: LongInt): LongInt; syscall GfxBase 53;
|
||||
function ReadPixelArray8(Rp: PRastPort; xStart, yStart, xStop, yStop: LongWord; Array_: PByte; TempRp: PRastPort): LongInt; syscall GfxBase 130;
|
||||
function ReadPixelLine8(Rp: PRastPort; xStart, yStart, Width: LongWord; Array_: PByte; TempRP: PRastPort): LongInt; syscall GfxBase 128;
|
||||
procedure RectFill(Rp: PRastPort; xMin, yMin, xMax, yMax : LongInt); syscall GfxBase 51;
|
||||
procedure ReleasePen(Cm: PColorMap; n: LongWord); syscall GfxBase 158;
|
||||
procedure RemFont(TextFont: PTextFont); syscall GfxBase 81;
|
||||
procedure RemIBob(Bob: PBob; Rp: PRastPort; Vp: PViewPort); syscall GfxBase 22;
|
||||
procedure RemVSprite(VSprite: PVSprite); syscall GfxBase 23;
|
||||
function ScalerDiv(Factor: LongWord; Numerator: LongWord; Denominator: LongWord): Word; syscall GfxBase 114;
|
||||
procedure ShowImminentReset; syscall GfxBase 197;
|
||||
procedure ScrollRaster(Rp: PRastPort; dx, dy, xMin, yMin, xMax, yMax: LongInt); syscall GfxBase 66;
|
||||
procedure ScrollRasterBF(Rp: PRastPort; dx, dy, xMin, yMin, xMax, yMax: LongInt); syscall GfxBase 167;
|
||||
function ScrollRegion(Region: PRegion; Rect: PRectangle; Dx, Dy: SmallInt): LongBool; syscall GfxBase 191;
|
||||
procedure ScrollVPort(Vp: PViewPort); syscall GfxBase 98;
|
||||
procedure SetABPenDrMd(Rp: PRastPort; APen: LongWord; BPen: LongWord; DrawMode: LongWord); syscall GfxBase 149;
|
||||
procedure SetAPen(Rp: PRastPort; Pen: LongWord); syscall GfxBase 57;
|
||||
procedure SetBPen(Rp: PRastPort; Pen: LongWord); syscall GfxBase 58;
|
||||
function SetChipRev(ChipRev: LongWord): LongWord; syscall GfxBase 148; platform;
|
||||
procedure SetCollision(Num: LongWord; Routine: TProcedure; GInfo: PGelsInfo); syscall GfxBase 24;
|
||||
procedure SetDisplayDriverCallback(CallBack: TDriverNotifyFunc; UserData: APTR); syscall GfxBase 186;
|
||||
procedure SetDrMd(Rp: PRastPort; DrawMode: LongWord); syscall GfxBase 59;
|
||||
procedure SetFont(Rp: PRastPort; TextFont: PTextFont); syscall GfxBase 11;
|
||||
procedure SetMaxPen(Rp: PRastPort; MaxPen: LongWord); syscall GfxBase 165;
|
||||
function SetOutlinePen(Rp: PRastPort; Pen: LongWord): LongWord; syscall GfxBase 163;
|
||||
procedure SetRast(Rp: PRastPort; Pen: LongWord); syscall GfxBase 39;
|
||||
function SetRegion(Src: PRegion; Dest: PRegion): LongBool; syscall GfxBase 195;
|
||||
procedure SetRGB32(Vp: PViewPort; n, r, g, b : LongWord); syscall GfxBase 142;
|
||||
procedure SetRGB32CM(Cm: PColorMap; n, r, g, b: LongWord); syscall GfxBase 166;
|
||||
procedure SetRGB4(Vp: PViewPort; n, r, g, b: LongWord); syscall GfxBase 48;
|
||||
procedure SetRGB4CM(Cm: PColorMap; n: SmallInt; r, g, b: Byte); syscall GfxBase 105;
|
||||
procedure SetRPAttrsA(Rp: PRastPort; Tags: PTagItem); syscall GfxBase 173;
|
||||
function SetSoftStyle(Rp: PRastPort; Style: LongWord; Enable: LongWord): LongWord; syscall GfxBase 15;
|
||||
function SetWriteMask(Rp: PRastPort; Mask: LongWord): LongWord; syscall GfxBase 164;
|
||||
procedure SortGList(Rp: PRastPort); syscall GfxBase 25;
|
||||
procedure StripFont(Font: PTextFont); syscall GfxBase 137;
|
||||
function SwapRegions(Region1: PRegion; Region2: PRegion; Intersect: PRectangle): LongBool; syscall GfxBase 192;
|
||||
procedure SyncSBitMap(l: PLayer); syscall GfxBase 74;
|
||||
procedure GfxText(Rp: PRastPort; const String_: STRPTR; Count: LongWord); syscall GfxBase 10;
|
||||
procedure TextExtent(Rp: PRastPort; const String_: STRPTR; Count: LongWord; TextExtent_: PTextExtent); syscall GfxBase 115;
|
||||
function TextFit(Rp: PRastPort; const String_: STRPTR; StrLen: LongWord; TextExtent_: PTextExtent; ConstrainingExtent: PTextExtent; StrDirection: LongInt; ConstrainingBitWidth: LongWord; ConstrainingBitHeight: LongWord): LongWord; syscall GfxBase 116;
|
||||
function TextLength(Rp: PRastPort; const string_: STRPTR; Count: LongWord): SmallInt; syscall GfxBase 9;
|
||||
function UCopperListInit(Ucl: PUCopList; n: SmallInt): PCopList; syscall GfxBase 99;
|
||||
procedure UnlockLayerRom(l: PLayer); syscall GfxBase 73;
|
||||
function VBeamPos: LongInt; syscall GfxBase 64; platform;
|
||||
function VideoControl(Cm: PColorMap; Tags: PTagItem): LongWord; syscall GfxBase 118; unimplemented;
|
||||
procedure WaitBlit; syscall GfxBase 38; unimplemented;
|
||||
procedure WaitBOVP(Vp: PViewPort); syscall GfxBase 67; unimplemented;
|
||||
procedure WaitTOF; syscall GfxBase 45;
|
||||
function WeighTAMatch(ReqTextAttr: PTextAttr; TargetTextAttr: PTextAttr; TargetTags: PTagItem): SmallInt; syscall GfxBase 134;
|
||||
procedure WriteChunkyPixels(Rp: PRastPort; xStart, yStart, xStop, yStop: LongWord; Array_: PByte; BytesPerRow: LongInt); syscall GfxBase 176;
|
||||
function WritePixel(Rp: PRastPort; x, y: LongInt): LongInt; syscall GfxBase 54;
|
||||
function WritePixelArray8(Rp: PRastPort; xStart, yStart, xStop, yStop: LongWord; Array_: PByte; TempRp: PRastPort): LongInt; syscall GfxBase 131;
|
||||
function WritePixelLine8(Rp: PRastPort; xStart, yStart, Width: LongWord; Array_: PByte; TempRP: PRastPort): LongInt; syscall GfxBase 129;
|
||||
function AddDisplayDriverA(GfxHidd: APTR; Tags: PTagItem): LongInt; syscall GfxBase 181;
|
||||
function WritePixels8(Rp: PRastPort; Array_: PByte; Modulo: LongWord; xStart, yStart, xStop, yStop: LongWord; PixLUT: Pointer{PHIDDT_PixelLUT}; Do_Update: LongBool): LongInt; syscall GfxBase 182;
|
||||
function XorRectRegion(Reg: PRegion; Rect: PRectangle): LongBool; syscall GfxBase 93;
|
||||
function XorRectRegionND(Reg: PRegion; Rect: PRectangle): PRegion; syscall GfxBase 152;
|
||||
function XorRegionRegion(SrcRegion: PRegion; DestRegion: PRegion): LongBool; syscall GfxBase 103;
|
||||
function XorRegionRegionND(R1: PRegion; R2: PRegion): PRegion; syscall GfxBase 151;
|
||||
function FillRectPenDrMd(Rp: PRastPort; x1, y1, x2, y2: LongInt; Pix: Pointer{HIDDT_Pixel}; drmd: Pointer{HIDDT_DrawMode}; Do_Update: LongBool): LongInt; syscall GfxBase 183;
|
||||
function DoRenderFunc(Rp: PRastPort; Src: PPoint; Rr: PRectangle; Render_Func: Pointer; FuncData: APTR; Do_Update: LongBool): LongInt; syscall GfxBase 184;
|
||||
function DoPixelFunc(Rp: PRastPort; x, y: LongInt; Render_Func: Pointer; FuncData: APTR; Do_Update: LongBool): LongInt; syscall GfxBase 185;
|
||||
procedure SetDisplayDriverCallback(CallBack: TDriverNotifyFunc; UserData: APTR); syscall GfxBase 186;
|
||||
function ClearRegionRegion(R1: PRegion; R2: PRegion): LongBool; syscall GfxBase 187;
|
||||
function CopyRegion(Region: PRegion): PRegion; syscall GfxBase 188;
|
||||
function AreRegionsEqual(R1: PRegion; R2: PRegion): LongBool; syscall GfxBase 189;
|
||||
function IsPointInRegion(Reg: PRegion; x, y: SmallInt): LongBool; syscall GfxBase 190;
|
||||
function ScrollRegion(Region: PRegion; Rect: PRectangle; Dx, Dy: SmallInt): LongBool; syscall GfxBase 191;
|
||||
function SwapRegions(Region1: PRegion; Region2: PRegion; Intersect: PRectangle): LongBool; syscall GfxBase 192;
|
||||
function AndRectRect(Rect1: PRectangle; Rect2: PRectangle; Intersect: PRectangle): LongBool; syscall GfxBase 193;
|
||||
function NewRectRegion(MinX, MinY, MaxX, MaxY: SmallInt): PRegion; syscall GfxBase 194;
|
||||
function SetRegion(Src: PRegion; Dest: PRegion): LongBool; syscall GfxBase 195;
|
||||
procedure BltRastPortBitMap(SrcRastPort: PRastPort; xSrc, ySrc: LongInt; DestBitMap: PBitMap; xDest, yDest, xSize, ySize, MinTerm: LongWord); syscall GfxBase 196;
|
||||
procedure ShowImminentReset; syscall GfxBase 197;
|
||||
{$endif}
|
||||
|
||||
{$ifdef AROS_ABIv1}
|
||||
function AddDisplayDriverA(GfxHidd: APTR; Tags: PTagItem): LongInt; syscall GfxBase 107;
|
||||
procedure SetDisplayDriverCallback(CallBack: TDriverNotifyFunc; UserData: APTR); syscall GfxBase 108;
|
||||
function SetRegion(Src: PRegion; Dest: PRegion): LongBool; syscall GfxBase 181;
|
||||
function ClearRegionRegion(R1: PRegion; R2: PRegion): LongBool; syscall GfxBase 182;
|
||||
function AreRegionsEqual(R1: PRegion; R2: PRegion): LongBool; syscall GfxBase 183;
|
||||
function IsPointInRegion(Reg: PRegion; x, y: SmallInt): LongBool; syscall GfxBase 184;
|
||||
function ScrollRegion(Region: PRegion; Rect: PRectangle; Dx, Dy: SmallInt): LongBool; syscall GfxBase 185;
|
||||
procedure AndRectRegionND(Reg: PRegion; Rect: PRectangle); syscall GfxBase 186;
|
||||
function AndRegionRegionND(R1: PRegion; R2: PRegion): PRegion; syscall GfxBase 187;
|
||||
function OrRectRegionND(Reg: PRegion; Rect: PRectangle): PRegion; syscall GfxBase 188;
|
||||
function OrRegionRegionND(R1: PRegion; R2: PRegion): PRegion; syscall GfxBase 189;
|
||||
function XorRectRegionND(Reg: PRegion; Rect: PRectangle): PRegion; syscall GfxBase 190;
|
||||
function XorRegionRegionND(R1: PRegion; R2: PRegion): PRegion; syscall GfxBase 191;
|
||||
function ClearRectRegionND(Reg: PRegion; Rect: PRectangle): PRegion; syscall GfxBase 192;
|
||||
function ClearRegionRegionND(R1: PRegion; R2: PRegion): PRegion; syscall GfxBase 193;
|
||||
function WritePixels8(Rp: PRastPort; Array_: PByte; Modulo: LongWord; xStart, yStart, xStop, yStop: LongWord; PixLUT: Pointer{PHIDDT_PixelLUT}; Do_Update: LongBool): LongInt; syscall GfxBase 197;
|
||||
function FillRectPenDrMd(Rp: PRastPort; x1, y1, x2, y2: LongInt; Pix: Pointer{HIDDT_Pixel}; drmd: Pointer{HIDDT_DrawMode}; Do_Update: LongBool): LongInt; syscall GfxBase 198;
|
||||
function DoRenderFunc(Rp: PRastPort; Src: PPoint; Rr: PRectangle; Render_Func: Pointer; FuncData: APTR; Do_Update: LongBool): LongInt; syscall GfxBase 199;
|
||||
function DoPixelFunc(Rp: PRastPort; x, y: LongInt; Render_Func: Pointer; FuncData: APTR; Do_Update: LongBool): LongInt; syscall GfxBase 200;
|
||||
procedure UpdateBitMap(Bitmap: PBitmap; x, y, Width, Height: LongWord); syscall GfxBase 201;
|
||||
|
||||
function CreateRastPort: PRastPort;
|
||||
function CloneRastPort(Rp: PRastPort): PRastPort;
|
||||
procedure DeinitRastPort(Rp: PRastPort);
|
||||
procedure FreeRastPort(Rp: PRastPort);
|
||||
{$endif}
|
||||
|
||||
function BestModeID(const Tags: array of PtrUInt): LongWord;
|
||||
function AllocSpriteData(Bitmap: PBitMap; const Tags: array of PtrUInt): PExtSprite;
|
||||
@ -2439,6 +2479,35 @@ begin
|
||||
CWAIT(c, 10000, 255);
|
||||
end;
|
||||
|
||||
function CreateRastPort: PRastPort;
|
||||
var
|
||||
RP: PRastPort;
|
||||
begin
|
||||
RP := AllocMem(SizeOf(TRastPort));
|
||||
InitRastPort(RP);
|
||||
CreateRastPort := RP;
|
||||
end;
|
||||
|
||||
function CloneRastPort(Rp: PRastPort): PRastPort;
|
||||
var
|
||||
NRP: PRastPort;
|
||||
begin
|
||||
NRP := AllocMem(SizeOf(TRastPort));
|
||||
Move(Rp^, NRP^, SizeOf(TRastPort));
|
||||
CloneRastPort := NRP;
|
||||
end;
|
||||
|
||||
procedure DeinitRastPort(Rp: PRastPort);
|
||||
begin
|
||||
// nothing to do;
|
||||
end;
|
||||
|
||||
procedure FreeRastPort(Rp: PRastPort);
|
||||
begin
|
||||
if Assigned(Rp) then
|
||||
FreeMem(Rp);
|
||||
end;
|
||||
|
||||
initialization
|
||||
GfxBase := PGfxBase(OpenLibrary(GRAPHICSNAME, 36));
|
||||
finalization
|
||||
|
||||
@ -501,7 +501,7 @@ type
|
||||
mh_First: PMemChunk; // first free region
|
||||
mh_Lower, // lower memory bound
|
||||
mh_Upper: APTR; // upper memory bound+1
|
||||
mh_Free: ULONG; // total number of free bytes
|
||||
mh_Free: IPTR; // total number of free bytes
|
||||
end;
|
||||
|
||||
//****** MemEntry ****************************************************
|
||||
@ -512,7 +512,7 @@ type
|
||||
0: (meu_Reqs: ULONG);
|
||||
1: (meu_Addr: APTR);
|
||||
end;
|
||||
me_Length: ULONG;
|
||||
me_Length: IPTR;
|
||||
end;
|
||||
|
||||
//****** MemList *****************************************************
|
||||
@ -558,9 +558,9 @@ type
|
||||
// Note: This structure is *READ ONLY* and only EXEC can create it!
|
||||
PMemHandlerData = ^TMemHandlerData;
|
||||
TMemHandlerData = record
|
||||
memh_RequestSize, // Requested allocation size
|
||||
memh_RequestFlags, // Requested allocation flags
|
||||
memh_Flags: ULONG; // Flags (see below)
|
||||
memh_RequestSize: IPTR; // Requested allocation size
|
||||
memh_RequestFlags, // Requested allocation flags
|
||||
memh_Flags: ULONG; // Flags (see below)
|
||||
end;
|
||||
|
||||
const
|
||||
@ -1010,7 +1010,7 @@ type
|
||||
{ ******* Static System Variables ******* }
|
||||
SoftVer: Word; // kickstart release number (obs.)
|
||||
LowMemChkSum: SmallInt; // checksum of 68000 trap vectors
|
||||
ChkBase: ULONG; // system base pointer complement
|
||||
ChkBase: IPTR; // system base pointer complement
|
||||
ColdCapture, // coldstart soft capture vector
|
||||
CoolCapture, // coolstart soft capture vector
|
||||
WarmCapture, // warmstart soft capture vector
|
||||
|
||||
@ -3191,150 +3191,161 @@ const
|
||||
var
|
||||
IntuitionBase: PIntuitionBase;
|
||||
|
||||
|
||||
function ActivateGadget(Gadget: PGadget; Window: PWindow; Requester: PRequester): LongBool; syscall IntuitionBase 77;
|
||||
procedure ActivateWindow(Window: PWindow); syscall IntuitionBase 75;
|
||||
procedure AddClass(ClassPtr: PIClass); syscall IntuitionBase 114;
|
||||
function AddGadget(Window: PWindow; Gadget: PGadget; Position: LongWord): Word; syscall IntuitionBase 7;
|
||||
function AddGList(Window: PWindow; Gadget: PGadget; Position: LongWord; NumGad: LongInt; Requester: PRequester): Word; syscall IntuitionBase 73;
|
||||
function AllocIntuiMessage(Window: PWindow): PIntuiMessage; syscall IntuitionBase 148;
|
||||
function AllocRemember(var RememberKey: PRemember; Size: LongWord; Flags: LongWord): APTR; syscall IntuitionBase 66;
|
||||
function AllocScreenBuffer(Screen: PScreen; Bitmap: PBitMap; Flags: LongWord): PScreenBuffer; syscall IntuitionBase 128;
|
||||
procedure AlohaWorkbench(MsgPort: PMsgPort); syscall IntuitionBase 67;
|
||||
function AutoRequest(Window: PWindow; Body: PIntuiText; PosText: PIntuiText; NegText: PIntuiText; PFlag: LongWord; NFlag: LongWord; Width: LongWord; Height: LongWord): LongBool; syscall IntuitionBase 58;
|
||||
procedure BeginRefresh(Window: PWindow); syscall IntuitionBase 59;
|
||||
function BuildEasyRequestArgs(Window: PWindow; EasyStruct: PEasyStruct; IDCMP: LongWord; Args: APTR): PWindow; syscall IntuitionBase 99;
|
||||
function BuildSysRequest(Window: PWindow; Body: PIntuiText; PosText: PIntuiText; NegText: PIntuiText; Flags: LongWord; Width: LongWord; Height: LongWord): PWindow; syscall IntuitionBase 60;
|
||||
function ChangeScreenBuffer(Screen: PScreen; ScreenBuffer: PScreenBuffer): LongWord; syscall IntuitionBase 130;
|
||||
procedure ChangeWindowBox(Window: PWindow; Left: LongInt; Top: LongInt; Width: LongInt; Height: LongInt); syscall IntuitionBase 81;
|
||||
function ClearDMRequest(Window: PWindow): LongBool; syscall IntuitionBase 8;
|
||||
procedure ClearMenuStrip(Window: PWindow); syscall IntuitionBase 9;
|
||||
procedure ClearPointer(Window: PWindow); syscall IntuitionBase 10;
|
||||
function CloseScreen(Screen: PScreen): LongBool; syscall IntuitionBase 11;
|
||||
procedure CloseWindow(Window: PWindow); syscall IntuitionBase 12;
|
||||
function CloseWorkBench: LongInt; syscall IntuitionBase 13;
|
||||
procedure ChangeDecoration(ID: LongWord; Decor: PNewDecorator); syscall IntuitionBase 153;
|
||||
function ChangeWindowShape(Window: PWindow; NewShape: PRegion; CallBack: PHook): PRegion; syscall IntuitionBase 143; unimplemented;
|
||||
procedure CurrentTime(var Seconds: LongWord; var Micros: LongWord); syscall IntuitionBase 14;
|
||||
function DisplayAlert(AlertNumber: LongWord; String_: PChar; Height: Word): LongBool; syscall IntuitionBase 15; deprecated;
|
||||
procedure DisplayBeep(Screen: PScreen); syscall IntuitionBase 16;
|
||||
procedure DisposeObject(Object_: APTR); syscall IntuitionBase 107;
|
||||
function DoGadgetMethodA(Gad: PGadget; Win: PWindow; Req: PRequester; Msg: TMsg): IPTR; syscall IntuitionBase 135;
|
||||
function DoNotify(Cl: PIClass; O: PObject_; Ic: Pointer; Msg: TopUpdate): Pointer; syscall IntuitionBase 145;
|
||||
function DoubleClick(SSeconds: LongWord; SMicros: LongWord; CSeconds: LongWord; CMicros: LongWord): LongBool; syscall IntuitionBase 17;
|
||||
procedure DrawBorder(Rp: PRastPort; Border: PBorder; LeftOffset: LongInt; TopOffset: LongInt); syscall IntuitionBase 18;
|
||||
procedure DrawImage(Rp: PRastPort; Image: PImage; LeftOffset: LongInt; TopOffset: LongInt); syscall IntuitionBase 19;
|
||||
procedure DrawImageState(Rp: PRastPort; Image: PImage; LeftOffset: LongInt; TopOffset: LongInt; state: LongWord; DrawInfo: PDrawInfo); syscall IntuitionBase 103;
|
||||
function EasyRequestArgs(Window: PWindow; EasyStruct: PEasyStruct; IDCMP_Ptr: PLongWord; Args: APTR): LongInt; syscall IntuitionBase 98;
|
||||
procedure EndRefresh(Window: PWindow; Complete: LongBool); syscall IntuitionBase 61;
|
||||
procedure EndRequest(Requester: PRequester; Window: PWindow); syscall IntuitionBase 20;
|
||||
function EndScreenNotify(Notify: IPTR): LongBool; syscall IntuitionBase 162;
|
||||
procedure EraseImage(Rp: PRastPort; Image: PImage; LeftOffset: LongInt; TopOffset: LongInt); syscall IntuitionBase 105;
|
||||
function FindClass(ClassID: ClassID): PIClass; syscall IntuitionBase 112;
|
||||
function FreeClass(IClass: PIClass): LongBool; syscall IntuitionBase 119;
|
||||
procedure FreeICData(ICData: Pointer); syscall IntuitionBase 146;
|
||||
procedure FreeIntuiMessage(IMsg: PIntuiMessage); syscall IntuitionBase 149;
|
||||
procedure FreeMonitorList(Obj: PPObject_); syscall IntuitionBase 164;
|
||||
procedure FreeRemember(var RememberKey: PRemember; ReallyForget: LongInt); syscall IntuitionBase 68;
|
||||
procedure FreeScreenBuffer(Screen: PScreen; ScreenBuffer: PScreenBuffer); syscall IntuitionBase 129;
|
||||
procedure FreeScreenDrawInfo(Screen: PScreen; DrawInfo: PDrawInfo); syscall IntuitionBase 116;
|
||||
procedure FreeSysRequest(Window: PWindow); syscall IntuitionBase 62;
|
||||
procedure GadgetMouse(Gadget: PGadget; GInfo: PGadgetInfo; var MousePoint: SmallInt); syscall IntuitionBase 95;
|
||||
function GetAttr(AttrID: LongWord; Object_: PObject_; StoragePtr: PIPTR): LongWord; overload syscall IntuitionBase 109;
|
||||
function GetAttr(AttrID: LongWord; Object_: PObject_; var Storage: IPTR): LongWord; overload syscall IntuitionBase 109;
|
||||
function GetDefaultPubScreen(NameBuffer: PChar): PScreen; syscall IntuitionBase 97;
|
||||
function GetDefPrefs(Preferences: PPreferences; Size: SmallInt): PPreferences; syscall IntuitionBase 21;
|
||||
function GetMonitorList(Tags: PTagItem): PPObject_; syscall IntuitionBase 163;
|
||||
function GetPrefs(Preferences: PPreferences; Size: SmallInt): PPreferences; syscall IntuitionBase 22;
|
||||
function GetScreenData(Buffer: APTR; Size: LongWord; Type_: LongWord; Screen: PScreen): LongInt; syscall IntuitionBase 71;
|
||||
function GetScreenDrawInfo(Screen: PScreen): PDrawInfo; syscall IntuitionBase 115;
|
||||
procedure HelpControl(Window: PWindow; Flags: LongWord); syscall IntuitionBase 138;
|
||||
procedure HideWindow(Window: PWindow); syscall IntuitionBase 141;
|
||||
procedure InitRequester(Requester: PRequester); syscall IntuitionBase 23; deprecated;
|
||||
function IntuiTextLength(iText: PIntuiText): LongInt; syscall IntuitionBase 55;
|
||||
function ItemAddress(MenuStrip: PMenu; MenuNumber: Word): PMenuItem; syscall IntuitionBase 24;
|
||||
function IsWindowVisible(Window: PWindow): LongWord; syscall IntuitionBase 139;
|
||||
procedure LendMenus(FromWindow: PWindow; ToWindow: PWindow); syscall IntuitionBase 134;
|
||||
function LockIBase(LockNumber: LongWord): LongWord; syscall IntuitionBase 69;
|
||||
function LockPubScreen(const Name: STRPTR): PScreen; syscall IntuitionBase 85;
|
||||
function LockPubScreenList: PList; syscall IntuitionBase 87;
|
||||
function MakeClass(ClassID: ClassID; SuperClassID: ClassID; SuperClassPtr: PIClass; InstanceSize: LongWord; Flags: LongWord): PIClass; syscall IntuitionBase 113;
|
||||
function MakeScreen(Screen: PScreen): LongInt; syscall IntuitionBase 63;
|
||||
function ModifyIDCMP(Window: PWindow; Flags: LongWord): LongBool; syscall IntuitionBase 25;
|
||||
procedure ModifyProp(Gadget: PGadget; Window: PWindow; Requester: PRequester; Flags: LongWord; HorizPot: LongWord; VertPot: LongWord; HorizBody: LongWord; VertBody: LongWord); syscall IntuitionBase 26;
|
||||
procedure MoveScreen(Screen: PScreen; Dx: LongInt; Dy: LongInt); syscall IntuitionBase 27;
|
||||
procedure MoveWindow(Window: PWindow; Dx: LongInt; Dy: LongInt); syscall IntuitionBase 28;
|
||||
procedure MoveWindowInFrontOf(Window: PWindow; BehindWindow: PWindow); syscall IntuitionBase 80;
|
||||
procedure NewModifyProp(Gadget: PGadget; Window: PWindow; Requester: PRequester; Flags: LongWord; HorizPot: LongWord; VertPot: LongWord; HorizBody: LongWord; VertBody: LongWord; NumGad: LongInt); syscall IntuitionBase 78;
|
||||
function NewObjectA(ClassPtr: PIClass; ClassID: PChar; TagList: PTagItem): APTR; syscall IntuitionBase 106;
|
||||
function NextObject(ObjectPtrPtr: APTR): APTR; syscall IntuitionBase 111;
|
||||
function NextPubScreen(Screen: PScreen; Namebuf: PChar): PChar; syscall IntuitionBase 89;
|
||||
function ObtainGIRPort(GInfo: PGadgetInfo): PRastPort; syscall IntuitionBase 93;
|
||||
procedure OffGadget(Gadget: PGadget; Window: PWindow; Requester: PRequester); syscall IntuitionBase 29;
|
||||
procedure OffMenu(Window: PWindow; MenuNumber: Word); syscall IntuitionBase 30;
|
||||
procedure OnGadget(Gadget: PGadget; Window: PWindow; Requester: PRequester); syscall IntuitionBase 31;
|
||||
procedure OnMenu(Window: PWindow; MenuNumber: Word); syscall IntuitionBase 32;
|
||||
function OpenScreen(NewScreen: PNewScreen): PScreen; syscall IntuitionBase 33;
|
||||
function OpenScreenTagList(NewScreen: PNewScreen; TagList: PTagItem): PScreen; syscall IntuitionBase 102;
|
||||
function OpenWindow(NewWindow: PNewWindow): PWindow; syscall IntuitionBase 34;
|
||||
function OpenWindowTagList(NewWindow: PNewWindow; TagList: PTagItem): PWindow; syscall IntuitionBase 101;
|
||||
function OpenWorkBench: IPTR; syscall IntuitionBase 35;
|
||||
function PointInImage(Point: LongWord; Image: PImage): LongBool; syscall IntuitionBase 104;
|
||||
procedure PrintIText(Rp: PRastPort; IText: PIntuiText; Left: LongInt; Top: LongInt); syscall IntuitionBase 36;
|
||||
function PubScreenStatus(Screen: PScreen; StatusFlags: Word): Word; syscall IntuitionBase 92;
|
||||
function QueryOverscan(DisplayID: LongWord; Rect: PRectangle; OScanType: SmallInt): LongInt; syscall IntuitionBase 79;
|
||||
procedure RefreshGadgets(Gadgets: PGadget; Window: PWindow; Requester: PRequester); syscall IntuitionBase 37;
|
||||
procedure RefreshGList(Gadgets: PGadget; Window: PWindow; Requester: PRequester; NumGad: LongInt); syscall IntuitionBase 72;
|
||||
procedure RefreshWindowFrame(Window: PWindow); syscall IntuitionBase 76;
|
||||
procedure ReleaseGIRPort(Rp: PRastPort); syscall IntuitionBase 94;
|
||||
function RemakeDisplay: LongInt; syscall IntuitionBase 64;
|
||||
procedure RemoveClass(ClassPtr: PIClass); syscall IntuitionBase 118;
|
||||
function RemoveGadget(Window: PWindow; Gadget: PGadget): Word; syscall IntuitionBase 38;
|
||||
function RemoveGList(RemPtr: PWindow; Gadget: PGadget; NumGad: LongInt): Word; syscall IntuitionBase 74;
|
||||
procedure ReportMouse(Flag: LongInt; Window: PWindow); syscall IntuitionBase 39;
|
||||
function Request(Requester: PRequester; Window: PWindow): LongBool; syscall IntuitionBase 40;
|
||||
function ResetMenuStrip(Window: PWindow; Menu: PMenu): LongBool; syscall IntuitionBase 117;
|
||||
function RethinkDisplay: LongInt; syscall IntuitionBase 65;
|
||||
procedure ScreenDepth(Screen: PScreen; Flags: LongWord; Reserved: APTR); syscall IntuitionBase 131;
|
||||
procedure ScreenPosition(Screen: PScreen; Flags: LongWord; X1: LongInt; Y1: LongInt; X2: LongInt; Y2: LongInt); syscall IntuitionBase 132;
|
||||
procedure ScreenToBack(Screen: PScreen); syscall IntuitionBase 41;
|
||||
procedure ScreenToFront(Screen: PScreen); syscall IntuitionBase 42;
|
||||
procedure ScrollWindowRaster(Win: PWindow; Dx: SmallInt; Dy: SmallInt; XMin: SmallInt; YMin: SmallInt; XMax: SmallInt; YMax: SmallInt); syscall IntuitionBase 133;
|
||||
procedure ScrollWindowRasterNoFill(Window: PWindow; Dx, Dy, XMin, YMin, XMax, YMax: Word); syscall IntuitionBase 159;
|
||||
procedure SendIntuiMessage(Window: PWindow; IMsg: PIntuiMessage); syscall IntuitionBase 151;
|
||||
function SetAttrsA(Object_: APTR; TagList: PTagItem): IPTR; syscall IntuitionBase 108;
|
||||
procedure SetDefaultPubScreen(Name: PChar); syscall IntuitionBase 90;
|
||||
procedure SetDefaultScreenFont(TextFont: PTextFont); syscall IntuitionBase 144;
|
||||
function SetDMRequest(Window: PWindow; Requester: PRequester): LongBool; syscall IntuitionBase 43;
|
||||
function SetEditHook(Hook: PHook): PHook; syscall IntuitionBase 82;
|
||||
function SetGadgetAttrsA(Gadget: PGadget; Window: PWindow; Requester: PRequester; TagList: PTagItem): IPTR; syscall IntuitionBase 110;
|
||||
function SetIPrefs(Data: Pointer; Length: LongWord; Typ: LongWord): LongWord; syscall IntuitionBase 96;
|
||||
function SetMenuStrip(Window: PWindow; Menu: PMenu): LongBool; syscall IntuitionBase 44;
|
||||
function SetMouseQueue(Window: PWindow; QueueLength: LongWord): LongInt; syscall IntuitionBase 83;
|
||||
procedure SetPointer(Window: PWindow; Pointer_: PWord; Height: LongInt; Width: LongInt; XOffset: LongInt; YOffset: LongInt); syscall IntuitionBase 45;
|
||||
function SetPointerBounds(Screen: PScreen; Rect: TRectangle; Reserved: LongWord; Tags: PTagItem): LongWord; syscall IntuitionBase 160;
|
||||
function SetPrefs(PrefBuffer: PPreferences; Size: LongInt; Inform: LongBool): PPreferences; syscall IntuitionBase 54;
|
||||
function SetPubScreenModes(Modes: Word): Word; syscall IntuitionBase 91;
|
||||
procedure SetWindowPointerA(Win: PWindow; Taglist: PTagItem); syscall IntuitionBase 136;
|
||||
procedure SetWindowTitles(Window: PWindow; const WindowTitle: PChar; const ScreenTitle: PChar); syscall IntuitionBase 46;
|
||||
procedure ShowTitle(Screen: PScreen; ShowIt: LongBool); syscall IntuitionBase 47;
|
||||
procedure ShowWindow(Window: PWindow); syscall IntuitionBase 140;
|
||||
procedure SizeWindow(Window: PWindow; Dx: LongInt; Dy: LongInt); syscall IntuitionBase 48;
|
||||
function StartScreenNotifyTagList(Tags: PTagItem): IPTR; syscall IntuitionBase 161;
|
||||
function SysReqHandler(Window: PWindow; IDCMPFlagsPtr: PLongWord; WaitInput: LongBool): LongInt; syscall IntuitionBase 100;
|
||||
function TimedDisplayAlert(AlertNumber: LongWord; String_: PChar; Height: Word; Time: LongWord): LongBool; syscall IntuitionBase 137;
|
||||
procedure UnlockIBase(LockNumber: LongWord); syscall IntuitionBase 70;
|
||||
procedure UnlockPubScreen(Name: PChar; Screen: PScreen); syscall IntuitionBase 86;
|
||||
procedure UnlockPubScreenList; syscall IntuitionBase 88;
|
||||
function ViewAddress: PView; syscall IntuitionBase 49;
|
||||
function ViewPortAddress(Window: PWindow): PViewPort; syscall IntuitionBase 50;
|
||||
function WBenchToBack: LongBool; syscall IntuitionBase 56;
|
||||
function WBenchToFront: LongBool; syscall IntuitionBase 57;
|
||||
procedure WindowAction(Window: PWindow; Action: LongWord; Tags: PTagItem); syscall IntuitionBase 157;
|
||||
function WindowLimits(Window: PWindow; WidthMin: SmallInt; HeightMin: SmallInt; WidthMax: Word; HeightMax: Word): LongBool; syscall IntuitionBase 53;
|
||||
procedure WindowToBack(Window: PWindow); syscall IntuitionBase 51;
|
||||
procedure WindowToFront(Window: PWindow); syscall IntuitionBase 52;
|
||||
function WindowLimits(Window: PWindow; WidthMin: SmallInt; HeightMin: SmallInt; WidthMax: Word; HeightMax: Word): LongBool; syscall IntuitionBase 53;
|
||||
function SetPrefs(PrefBuffer: PPreferences; Size: LongInt; Inform: LongBool): PPreferences; syscall IntuitionBase 54;
|
||||
function IntuiTextLength(iText: PIntuiText): LongInt; syscall IntuitionBase 55;
|
||||
function WBenchToBack: LongBool; syscall IntuitionBase 56;
|
||||
function WBenchToFront: LongBool; syscall IntuitionBase 57;
|
||||
function AutoRequest(Window: PWindow; Body: PIntuiText; PosText: PIntuiText; NegText: PIntuiText; PFlag: LongWord; NFlag: LongWord; Width: LongWord; Height: LongWord): LongBool; syscall IntuitionBase 58;
|
||||
procedure BeginRefresh(Window: PWindow); syscall IntuitionBase 59;
|
||||
function BuildSysRequest(Window: PWindow; Body: PIntuiText; PosText: PIntuiText; NegText: PIntuiText; Flags: LongWord; Width: LongWord; Height: LongWord): PWindow; syscall IntuitionBase 60;
|
||||
procedure EndRefresh(Window: PWindow; Complete: LongBool); syscall IntuitionBase 61;
|
||||
procedure FreeSysRequest(Window: PWindow); syscall IntuitionBase 62;
|
||||
function MakeScreen(Screen: PScreen): LongInt; syscall IntuitionBase 63;
|
||||
function RemakeDisplay: LongInt; syscall IntuitionBase 64;
|
||||
function RethinkDisplay: LongInt; syscall IntuitionBase 65;
|
||||
function AllocRemember(var RememberKey: PRemember; Size: LongWord; Flags: LongWord): APTR; syscall IntuitionBase 66;
|
||||
procedure AlohaWorkbench(MsgPort: PMsgPort); syscall IntuitionBase 67;
|
||||
procedure FreeRemember(var RememberKey: PRemember; ReallyForget: LongInt); syscall IntuitionBase 68;
|
||||
function LockIBase(LockNumber: LongWord): LongWord; syscall IntuitionBase 69;
|
||||
procedure UnlockIBase(LockNumber: LongWord); syscall IntuitionBase 70;
|
||||
function GetScreenData(Buffer: APTR; Size: LongWord; Type_: LongWord; Screen: PScreen): LongInt; syscall IntuitionBase 71;
|
||||
procedure RefreshGList(Gadgets: PGadget; Window: PWindow; Requester: PRequester; NumGad: LongInt); syscall IntuitionBase 72;
|
||||
function AddGList(Window: PWindow; Gadget: PGadget; Position: LongWord; NumGad: LongInt; Requester: PRequester): Word; syscall IntuitionBase 73;
|
||||
function RemoveGList(RemPtr: PWindow; Gadget: PGadget; NumGad: LongInt): Word; syscall IntuitionBase 74;
|
||||
procedure ActivateWindow(Window: PWindow); syscall IntuitionBase 75;
|
||||
procedure RefreshWindowFrame(Window: PWindow); syscall IntuitionBase 76;
|
||||
function ActivateGadget(Gadget: PGadget; Window: PWindow; Requester: PRequester): LongBool; syscall IntuitionBase 77;
|
||||
procedure NewModifyProp(Gadget: PGadget; Window: PWindow; Requester: PRequester; Flags: LongWord; HorizPot: LongWord; VertPot: LongWord; HorizBody: LongWord; VertBody: LongWord; NumGad: LongInt); syscall IntuitionBase 78;
|
||||
function QueryOverscan(DisplayID: LongWord; Rect: PRectangle; OScanType: SmallInt): LongInt; syscall IntuitionBase 79;
|
||||
procedure MoveWindowInFrontOf(Window: PWindow; BehindWindow: PWindow); syscall IntuitionBase 80;
|
||||
procedure ChangeWindowBox(Window: PWindow; Left: LongInt; Top: LongInt; Width: LongInt; Height: LongInt); syscall IntuitionBase 81;
|
||||
function SetEditHook(Hook: PHook): PHook; syscall IntuitionBase 82;
|
||||
function SetMouseQueue(Window: PWindow; QueueLength: LongWord): LongInt; syscall IntuitionBase 83;
|
||||
procedure ZipWindow(Window: PWindow); syscall IntuitionBase 84;
|
||||
function LockPubScreen(const Name: STRPTR): PScreen; syscall IntuitionBase 85;
|
||||
procedure UnlockPubScreen(Name: PChar; Screen: PScreen); syscall IntuitionBase 86;
|
||||
function LockPubScreenList: PList; syscall IntuitionBase 87;
|
||||
procedure UnlockPubScreenList; syscall IntuitionBase 88;
|
||||
function NextPubScreen(Screen: PScreen; Namebuf: PChar): PChar; syscall IntuitionBase 89;
|
||||
procedure SetDefaultPubScreen(Name: PChar); syscall IntuitionBase 90;
|
||||
function SetPubScreenModes(Modes: Word): Word; syscall IntuitionBase 91;
|
||||
function PubScreenStatus(Screen: PScreen; StatusFlags: Word): Word; syscall IntuitionBase 92;
|
||||
function ObtainGIRPort(GInfo: PGadgetInfo): PRastPort; syscall IntuitionBase 93;
|
||||
procedure ReleaseGIRPort(Rp: PRastPort); syscall IntuitionBase 94;
|
||||
procedure GadgetMouse(Gadget: PGadget; GInfo: PGadgetInfo; var MousePoint: SmallInt); syscall IntuitionBase 95;
|
||||
function SetIPrefs(Data: Pointer; Length: LongWord; Typ: LongWord): LongWord; syscall IntuitionBase 96;
|
||||
function GetDefaultPubScreen(NameBuffer: PChar): PScreen; syscall IntuitionBase 97;
|
||||
function EasyRequestArgs(Window: PWindow; EasyStruct: PEasyStruct; IDCMP_Ptr: PLongWord; Args: APTR): LongInt; syscall IntuitionBase 98;
|
||||
function BuildEasyRequestArgs(Window: PWindow; EasyStruct: PEasyStruct; IDCMP: LongWord; Args: APTR): PWindow; syscall IntuitionBase 99;
|
||||
function SysReqHandler(Window: PWindow; IDCMPFlagsPtr: PLongWord; WaitInput: LongBool): LongInt; syscall IntuitionBase 100;
|
||||
function OpenWindowTagList(NewWindow: PNewWindow; TagList: PTagItem): PWindow; syscall IntuitionBase 101;
|
||||
function OpenScreenTagList(NewScreen: PNewScreen; TagList: PTagItem): PScreen; syscall IntuitionBase 102;
|
||||
procedure DrawImageState(Rp: PRastPort; Image: PImage; LeftOffset: LongInt; TopOffset: LongInt; state: LongWord; DrawInfo: PDrawInfo); syscall IntuitionBase 103;
|
||||
function PointInImage(Point: LongWord; Image: PImage): LongBool; syscall IntuitionBase 104;
|
||||
procedure EraseImage(Rp: PRastPort; Image: PImage; LeftOffset: LongInt; TopOffset: LongInt); syscall IntuitionBase 105;
|
||||
function NewObjectA(ClassPtr: PIClass; ClassID: PChar; TagList: PTagItem): APTR; syscall IntuitionBase 106;
|
||||
procedure DisposeObject(Object_: APTR); syscall IntuitionBase 107;
|
||||
function SetAttrsA(Object_: APTR; TagList: PTagItem): IPTR; syscall IntuitionBase 108;
|
||||
function GetAttr(AttrID: LongWord; Object_: PObject_; StoragePtr: PIPTR): LongWord; overload syscall IntuitionBase 109;
|
||||
function GetAttr(AttrID: LongWord; Object_: PObject_; var Storage: IPTR): LongWord; overload syscall IntuitionBase 109;
|
||||
function SetGadgetAttrsA(Gadget: PGadget; Window: PWindow; Requester: PRequester; TagList: PTagItem): IPTR; syscall IntuitionBase 110;
|
||||
function NextObject(ObjectPtrPtr: APTR): APTR; syscall IntuitionBase 111;
|
||||
function FindClass(ClassID: ClassID): PIClass; syscall IntuitionBase 112;
|
||||
function MakeClass(ClassID: ClassID; SuperClassID: ClassID; SuperClassPtr: PIClass; InstanceSize: LongWord; Flags: LongWord): PIClass; syscall IntuitionBase 113;
|
||||
procedure AddClass(ClassPtr: PIClass); syscall IntuitionBase 114;
|
||||
function GetScreenDrawInfo(Screen: PScreen): PDrawInfo; syscall IntuitionBase 115;
|
||||
procedure FreeScreenDrawInfo(Screen: PScreen; DrawInfo: PDrawInfo); syscall IntuitionBase 116;
|
||||
function ResetMenuStrip(Window: PWindow; Menu: PMenu): LongBool; syscall IntuitionBase 117;
|
||||
procedure RemoveClass(ClassPtr: PIClass); syscall IntuitionBase 118;
|
||||
function FreeClass(IClass: PIClass): LongBool; syscall IntuitionBase 119;
|
||||
function AllocScreenBuffer(Screen: PScreen; Bitmap: PBitMap; Flags: LongWord): PScreenBuffer; syscall IntuitionBase 128;
|
||||
procedure FreeScreenBuffer(Screen: PScreen; ScreenBuffer: PScreenBuffer); syscall IntuitionBase 129;
|
||||
function ChangeScreenBuffer(Screen: PScreen; ScreenBuffer: PScreenBuffer): LongWord; syscall IntuitionBase 130;
|
||||
procedure ScreenDepth(Screen: PScreen; Flags: LongWord; Reserved: APTR); syscall IntuitionBase 131;
|
||||
procedure ScreenPosition(Screen: PScreen; Flags: LongWord; X1: LongInt; Y1: LongInt; X2: LongInt; Y2: LongInt); syscall IntuitionBase 132;
|
||||
procedure ScrollWindowRaster(Win: PWindow; Dx: SmallInt; Dy: SmallInt; XMin: SmallInt; YMin: SmallInt; XMax: SmallInt; YMax: SmallInt); syscall IntuitionBase 133;
|
||||
procedure LendMenus(FromWindow: PWindow; ToWindow: PWindow); syscall IntuitionBase 134;
|
||||
function DoGadgetMethodA(Gad: PGadget; Win: PWindow; Req: PRequester; Msg: TMsg): IPTR; syscall IntuitionBase 135;
|
||||
procedure SetWindowPointerA(Win: PWindow; Taglist: PTagItem); syscall IntuitionBase 136;
|
||||
function TimedDisplayAlert(AlertNumber: LongWord; String_: PChar; Height: Word; Time: LongWord): LongBool; syscall IntuitionBase 137;
|
||||
procedure HelpControl(Window: PWindow; Flags: LongWord); syscall IntuitionBase 138;
|
||||
function IsWindowVisible(Window: PWindow): LongWord; syscall IntuitionBase 139;
|
||||
procedure ShowWindow(Window: PWindow); syscall IntuitionBase 140;
|
||||
procedure HideWindow(Window: PWindow); syscall IntuitionBase 141;
|
||||
function ChangeWindowShape(Window: PWindow; NewShape: PRegion; CallBack: PHook): PRegion; syscall IntuitionBase 143; unimplemented;
|
||||
procedure SetDefaultScreenFont(TextFont: PTextFont); syscall IntuitionBase 144;
|
||||
function DoNotify(Cl: PIClass; O: PObject_; Ic: Pointer; Msg: TopUpdate): Pointer; syscall IntuitionBase 145;
|
||||
procedure FreeICData(ICData: Pointer); syscall IntuitionBase 146;
|
||||
function AllocIntuiMessage(Window: PWindow): PIntuiMessage; syscall IntuitionBase 148;
|
||||
procedure FreeIntuiMessage(IMsg: PIntuiMessage); syscall IntuitionBase 149;
|
||||
procedure SendIntuiMessage(Window: PWindow; IMsg: PIntuiMessage); syscall IntuitionBase 151;
|
||||
function GetDrawInfoAttr(DrawInfo: PDrawInfo; AttrID: LongWord; ErrorPtr: PIPTR): IPTR; syscall IntuitionBase 156;
|
||||
procedure WindowAction(Window: PWindow; Action: LongWord; Tags: PTagItem); syscall IntuitionBase 157;
|
||||
procedure ScrollWindowRasterNoFill(Window: PWindow; Dx, Dy, XMin, YMin, XMax, YMax: Word); syscall IntuitionBase 159;
|
||||
function SetPointerBounds(Screen: PScreen; Rect: TRectangle; Reserved: LongWord; Tags: PTagItem): LongWord; syscall IntuitionBase 160;
|
||||
|
||||
{$ifdef AROS_ABIv0}
|
||||
procedure ChangeDecoration(ID: LongWord; Decor: PNewDecorator); syscall IntuitionBase 153;
|
||||
function StartScreenNotifyTagList(Tags: PTagItem): IPTR; syscall IntuitionBase 161;
|
||||
function EndScreenNotify(Notify: IPTR): LongBool; syscall IntuitionBase 162;
|
||||
function GetMonitorList(Tags: PTagItem): PPObject_; syscall IntuitionBase 163;
|
||||
procedure FreeMonitorList(Obj: PPObject_); syscall IntuitionBase 164;
|
||||
{$endif}
|
||||
|
||||
{$ifdef AROS_ABIv1}
|
||||
procedure ChangeDecoration(ID: LongWord; Decor: PNewDecorator); syscall IntuitionBase 152;
|
||||
function StartScreenNotifyTagList(Tags: PTagItem): IPTR; syscall IntuitionBase 154;
|
||||
function EndScreenNotify(Notify: IPTR): LongBool; syscall IntuitionBase 155;
|
||||
procedure FreeMonitorList(Obj: PPObject_); syscall IntuitionBase 162;
|
||||
function GetMonitorList(Tags: PTagItem): PPObject_; syscall IntuitionBase 161;
|
||||
{$endif}
|
||||
|
||||
// VarArgs Versions
|
||||
function SetAttrs(Obj: APTR; const Tags: array of PtrUInt): LongWord;
|
||||
|
||||
@ -208,45 +208,45 @@ type
|
||||
ub_Reserved: Byte;
|
||||
end;
|
||||
|
||||
function AddNamedObject(NameSpace, Object_: PNamedObject): LongBool; syscall AOS_UtilityBase 37;
|
||||
function AllocateTagItems(Num: LongWord): PTagItem; syscall AOS_UtilityBase 11;
|
||||
function AllocNamedObjectA(const Name: STRPTR; TagList: PTagItem): PNamedObject; syscall AOS_UtilityBase 38;
|
||||
procedure Amiga2Date(Seconds: LongWord; Resultat: PClockData); syscall AOS_UtilityBase 20;
|
||||
procedure ApplyTagChanges(List: PTagItem; ChangeList: PTagItem); syscall AOS_UtilityBase 31;
|
||||
function AttemptRemNamedObject(Object_: PNamedObject): LongInt; syscall AOS_UtilityBase 39;
|
||||
function CallHookPkt(Hook: PHook; Object_, ParamPaket: APTR): IPTR; syscall AOS_UtilityBase 17;
|
||||
function CheckDate(Date: PClockData): LongWord; syscall AOS_UtilityBase 22;
|
||||
function CloneTagItems(const TagList: PTagItem): PTagItem; syscall AOS_UtilityBase 12;
|
||||
function Date2Amiga(Date: PClockData): LongWord; syscall AOS_UtilityBase 21;
|
||||
procedure FilterTagChanges(ChangeList: PTagItem; const Oldvalues: PTagItem; Apply: LongBool); syscall AOS_UtilityBase 9;
|
||||
function FilterTagItems(TagList: PTagItem; FilterArray: PTag; Logic: LongWord): LongWord; syscall AOS_UtilityBase 16;
|
||||
function FindNamedObject(NameSpace: PNamedObject; const Name: STRPTR; LastObject: PNamedObject): PNamedObject; syscall AOS_UtilityBase 40;
|
||||
function FindTagItem(TagValue: Tag; const TagList: PTagItem): PTagItem; syscall AOS_UtilityBase 5;
|
||||
procedure FreeNamedObject(Object_: PNamedObject); syscall AOS_UtilityBase 41;
|
||||
procedure FreeTagItems(TagList: PTagItem); syscall AOS_UtilityBase 13;
|
||||
function GetTagData(TagValue: Tag; Default: IPTR; const TagList: PTagItem): IPTR; syscall AOS_UtilityBase 6;
|
||||
function GetUniqueID: LongWord; syscall AOS_UtilityBase 45;
|
||||
procedure MapTags(TagList: PTagItem; const MapList: PTagItem; MapType: LongWord); syscall AOS_UtilityBase 10;
|
||||
function NamedObjectName(Object_: PNamedObject): STRPTR; syscall AOS_UtilityBase 42;
|
||||
function PackBoolTags(InitialFlags: LongWord; const TagList, BoolMap: PTagItem): IPTR; syscall AOS_UtilityBase 7;
|
||||
function NextTagItem(var Item: PTagItem): PTagItem; overload; syscall AOS_UtilityBase 8;
|
||||
function NextTagItem(ItemPtr: PPTagItem): PTagItem; overload; syscall AOS_UtilityBase 8;
|
||||
function PackBoolTags(InitialFlags: LongWord; const TagList, BoolMap: PTagItem): IPTR; syscall AOS_UtilityBase 7;
|
||||
function PackStructureTags(Pack: APTR; PackTable: PLongWord; TagList: PTagItem): LongWord; syscall AOS_UtilityBase 35;
|
||||
procedure FilterTagChanges(ChangeList: PTagItem; const Oldvalues: PTagItem; Apply: LongBool); syscall AOS_UtilityBase 9;
|
||||
procedure MapTags(TagList: PTagItem; const MapList: PTagItem; MapType: LongWord); syscall AOS_UtilityBase 10;
|
||||
function AllocateTagItems(Num: LongWord): PTagItem; syscall AOS_UtilityBase 11;
|
||||
function CloneTagItems(const TagList: PTagItem): PTagItem; syscall AOS_UtilityBase 12;
|
||||
procedure FreeTagItems(TagList: PTagItem); syscall AOS_UtilityBase 13;
|
||||
procedure RefreshTagItemClones(Clone: PTagItem; const Original: PTagItem); syscall AOS_UtilityBase 14;
|
||||
procedure ReleaseNamedObject(Object_: PNamedObject); syscall AOS_UtilityBase 43;
|
||||
procedure RemNamedObject(Object_: PNamedObject; Message: PMessage); syscall AOS_UtilityBase 44;
|
||||
function SDivMod32(Dividend, Divisor: LongInt): Int64; syscall AOS_UtilityBase 25;
|
||||
function TagInArray(TagValue: Tag; TagArray: PTag): LongBool; syscall AOS_UtilityBase 15;
|
||||
function FilterTagItems(TagList: PTagItem; FilterArray: PTag; Logic: LongWord): LongWord; syscall AOS_UtilityBase 16;
|
||||
function CallHookPkt(Hook: PHook; Object_, ParamPaket: APTR): IPTR; syscall AOS_UtilityBase 17;
|
||||
procedure Amiga2Date(Seconds: LongWord; Resultat: PClockData); syscall AOS_UtilityBase 20;
|
||||
function Date2Amiga(Date: PClockData): LongWord; syscall AOS_UtilityBase 21;
|
||||
function CheckDate(Date: PClockData): LongWord; syscall AOS_UtilityBase 22;
|
||||
function SMult32(Arg1, Arg2: LongInt): LongInt; syscall AOS_UtilityBase 23;
|
||||
function SMult64(Arg1, Arg2: LongInt): Int64; syscall AOS_UtilityBase 33;
|
||||
function UMult32(Arg1, Arg2: LongWord): LongWord; syscall AOS_UtilityBase 24;
|
||||
function SDivMod32(Dividend, Divisor: LongInt): Int64; syscall AOS_UtilityBase 25;
|
||||
function UDivMod32(Dividend, Divisor: LongWord): LongWord; syscall AOS_UtilityBase 26;
|
||||
function Stricmp(const Str1: STRPTR; const Str2: STRPTR): LongInt; syscall AOS_UtilityBase 27;
|
||||
function Strnicmp(const Str1: STRPTR; const Str2 : STRPTR; Length_: LongInt): LongInt; syscall AOS_UtilityBase 28;
|
||||
function TagInArray(TagValue: Tag; TagArray: PTag): LongBool; syscall AOS_UtilityBase 15;
|
||||
function ToLower(c: LongWord): Char; syscall AOS_UtilityBase 30;
|
||||
function ToUpper(c: LongWord): Char; syscall AOS_UtilityBase 29;
|
||||
function UDivMod32(Dividend, Divisor: LongWord): LongWord; syscall AOS_UtilityBase 26;
|
||||
function UMult32(Arg1, Arg2: LongWord): LongWord; syscall AOS_UtilityBase 24;
|
||||
function ToLower(c: LongWord): Char; syscall AOS_UtilityBase 30;
|
||||
procedure ApplyTagChanges(List: PTagItem; ChangeList: PTagItem); syscall AOS_UtilityBase 31;
|
||||
function SMult64(Arg1, Arg2: LongInt): Int64; syscall AOS_UtilityBase 33;
|
||||
function UMult64(Arg1, Arg2: LongWord): QWord; syscall AOS_UtilityBase 34;
|
||||
function PackStructureTags(Pack: APTR; PackTable: PLongWord; TagList: PTagItem): LongWord; syscall AOS_UtilityBase 35;
|
||||
function UnpackStructureTags(Pack: APTR; PackTable: PLongWord; TagList: PTagItem): LongWord; syscall AOS_UtilityBase 36;
|
||||
function AddNamedObject(NameSpace, Object_: PNamedObject): LongBool; syscall AOS_UtilityBase 37;
|
||||
function AllocNamedObjectA(const Name: STRPTR; TagList: PTagItem): PNamedObject; syscall AOS_UtilityBase 38;
|
||||
function AttemptRemNamedObject(Object_: PNamedObject): LongInt; syscall AOS_UtilityBase 39;
|
||||
function FindNamedObject(NameSpace: PNamedObject; const Name: STRPTR; LastObject: PNamedObject): PNamedObject; syscall AOS_UtilityBase 40;
|
||||
procedure FreeNamedObject(Object_: PNamedObject); syscall AOS_UtilityBase 41;
|
||||
function NamedObjectName(Object_: PNamedObject): STRPTR; syscall AOS_UtilityBase 42;
|
||||
procedure ReleaseNamedObject(Object_: PNamedObject); syscall AOS_UtilityBase 43;
|
||||
procedure RemNamedObject(Object_: PNamedObject; Message: PMessage); syscall AOS_UtilityBase 44;
|
||||
function GetUniqueID: LongWord; syscall AOS_UtilityBase 45;
|
||||
|
||||
// Macros
|
||||
function CALLHOOKPKT_(Hook: PHook; Object_: APTR; Message: APTR): IPTR; inline;
|
||||
|
||||
Loading…
Reference in New Issue
Block a user