From 8ccc6afb16558039bff1c9988f22b2db696f1eff Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?K=C3=A1roly=20Balogh?= Date: Mon, 15 Sep 2014 23:04:44 +0000 Subject: [PATCH] morpho git-svn-id: trunk@28676 - --- packages/morphunits/src/agraphics.pas | 22 +++--- packages/morphunits/src/ahi.pas | 4 +- packages/morphunits/src/amigados.pas | 103 +++++++++++++------------- packages/morphunits/src/asl.pas | 6 +- packages/morphunits/src/intuition.pas | 36 ++++----- packages/morphunits/src/utility.pas | 4 +- 6 files changed, 88 insertions(+), 87 deletions(-) diff --git a/packages/morphunits/src/agraphics.pas b/packages/morphunits/src/agraphics.pas index d3a6e4ea6f..69cfb6d461 100644 --- a/packages/morphunits/src/agraphics.pas +++ b/packages/morphunits/src/agraphics.pas @@ -2262,7 +2262,7 @@ SysCall GfxBase 156; procedure Animate(anKey : ppAnimOb location 'a0'; rp : pRastPort location 'a1'); SysCall GfxBase 162; -function GetGBuffers(anOb : pAnimOb location 'a0'; rp : pRastPort location 'a1'; flag : LongInt location 'd0') : BOOLEAN; +function GetGBuffers(anOb : pAnimOb location 'a0'; rp : pRastPort location 'a1'; flag : LongInt location 'd0') : LongBool; SysCall GfxBase 168; procedure InitGMasks(anOb : pAnimOb location 'a0'); @@ -2343,7 +2343,7 @@ SysCall GfxBase 318; function WritePixel(rp : pRastPort location 'a1'; x : LongInt location 'd0'; y : LongInt location 'd1') : LongInt; SysCall GfxBase 324; -function Flood(rp : pRastPort location 'a1'; mode : CARDINAL location 'd2'; x : LongInt location 'd0'; y : LongInt location 'd1') : BOOLEAN; +function Flood(rp : pRastPort location 'a1'; mode : CARDINAL location 'd2'; x : LongInt location 'd0'; y : LongInt location 'd1') : LongBool; SysCall GfxBase 330; procedure PolyDraw(rp : pRastPort location 'a1'; count : LongInt location 'd0'; VAR polyTable : INTEGER location 'a0'); @@ -2433,13 +2433,13 @@ SysCall GfxBase 498; procedure AndRectRegion(region : pRegion location 'a0'; rectangle : pRectangle location 'a1'); SysCall GfxBase 504; -function OrRectRegion(region : pRegion location 'a0'; rectangle : pRectangle location 'a1') : BOOLEAN; +function OrRectRegion(region : pRegion location 'a0'; rectangle : pRectangle location 'a1') : LongBool; SysCall GfxBase 510; function NewRegion : pRegion; SysCall GfxBase 516; -function ClearRectRegion(region : pRegion location 'a0'; rectangle : pRectangle location 'a1') : BOOLEAN; +function ClearRectRegion(region : pRegion location 'a0'; rectangle : pRectangle location 'a1') : LongBool; SysCall GfxBase 522; procedure ClearRegion(region : pRegion location 'a0'); @@ -2457,7 +2457,7 @@ SysCall GfxBase 546; procedure ClipBlit(srcRP : pRastPort location 'a0'; xSrc : LongInt location 'd0'; ySrc : LongInt location 'd1'; destRP : pRastPort location 'a1'; xDest : LongInt location 'd2'; yDest : LongInt location 'd3'; xSize : LongInt location 'd4'; ySize : LongInt location 'd5'; minterm : CARDINAL location 'd6'); SysCall GfxBase 552; -function XorRectRegion(region : pRegion location 'a0'; rectangle : pRectangle location 'a1') : BOOLEAN; +function XorRectRegion(region : pRegion location 'a0'; rectangle : pRectangle location 'a1') : LongBool; SysCall GfxBase 558; procedure FreeCprList(cprList : pcprlist location 'a0'); @@ -2484,13 +2484,13 @@ SysCall GfxBase 600; procedure BltBitMapRastPort(srcBitMap : pBitMap location 'a0'; xSrc : LongInt location 'd0'; ySrc : LongInt location 'd1'; destRP : pRastPort location 'a1'; xDest : LongInt location 'd2'; yDest : LongInt location 'd3'; xSize : LongInt location 'd4'; ySize : LongInt location 'd5'; minterm : CARDINAL location 'd6'); SysCall GfxBase 606; -function OrRegionRegion(srcRegion : pRegion location 'a0'; destRegion : pRegion location 'a1') : BOOLEAN; +function OrRegionRegion(srcRegion : pRegion location 'a0'; destRegion : pRegion location 'a1') : LongBool; SysCall GfxBase 612; -function XorRegionRegion(srcRegion : pRegion location 'a0'; destRegion : pRegion location 'a1') : BOOLEAN; +function XorRegionRegion(srcRegion : pRegion location 'a0'; destRegion : pRegion location 'a1') : LongBool; SysCall GfxBase 618; -function AndRegionRegion(srcRegion : pRegion location 'a0'; destRegion : pRegion location 'a1') : BOOLEAN; +function AndRegionRegion(srcRegion : pRegion location 'a0'; destRegion : pRegion location 'a1') : LongBool; SysCall GfxBase 624; procedure SetRGB4CM(colorMap : pColorMap location 'a0'; index : LongInt location 'd0'; red : CARDINAL location 'd1'; green : CARDINAL location 'd2'; blue : CARDINAL location 'd3'); @@ -2499,7 +2499,7 @@ SysCall GfxBase 630; procedure BltMaskBitMapRastPort(srcBitMap : pBitMap location 'a0'; xSrc : LongInt location 'd0'; ySrc : LongInt location 'd1'; destRP : pRastPort location 'a1'; xDest : LongInt location 'd2'; yDest : LongInt location 'd3'; xSize : LongInt location 'd4'; ySize : LongInt location 'd5'; minterm : CARDINAL location 'd6'; bltMask : pCHAR location 'a2'); SysCall GfxBase 636; -function AttemptLockLayerRom(layer : pLayer location 'a5') : BOOLEAN; +function AttemptLockLayerRom(layer : pLayer location 'a5') : LongBool; SysCall GfxBase 654; function GfxNew(gfxNodeType : CARDINAL location 'd0') : POINTER; @@ -2526,13 +2526,13 @@ SysCall GfxBase 696; function GfxLookUp(associateNode : POINTER location 'a0') : POINTER; SysCall GfxBase 702; -function VideoControl(colorMap : pColorMap location 'a0'; tagarray : pTagItem location 'a1') : BOOLEAN; +function VideoControl(colorMap : pColorMap location 'a0'; tagarray : pTagItem location 'a1') : LongBool; SysCall GfxBase 708; function OpenMonitor(monitorName : pSHORTINT location 'a1'; displayID : CARDINAL location 'd0') : pMonitorSpec; SysCall GfxBase 714; -function CloseMonitor(monitorSpec : pMonitorSpec location 'a0') : BOOLEAN; +function CloseMonitor(monitorSpec : pMonitorSpec location 'a0') : LongBool; SysCall GfxBase 720; function FindDisplayInfo(displayID : CARDINAL location 'd0') : POINTER; diff --git a/packages/morphunits/src/ahi.pas b/packages/morphunits/src/ahi.pas index f9655d95cc..ed9ed9c5e1 100644 --- a/packages/morphunits/src/ahi.pas +++ b/packages/morphunits/src/ahi.pas @@ -511,7 +511,7 @@ SysCall AHIBase 096; function AHI_NextAudioID(Last_ID : Cardinal location 'd0') : Cardinal; SysCall AHIBase 102; -function AHI_GetAudioAttrsA(ID : Cardinal location 'd0'; Audioctrl : pAHIAudioCtrl location 'a2'; tagList : pTagItem location 'a1') : BOOLEAN; +function AHI_GetAudioAttrsA(ID : Cardinal location 'd0'; Audioctrl : pAHIAudioCtrl location 'a2'; tagList : pTagItem location 'a1') : LongBool; SysCall AHIBase 108; function AHI_BestAudioIDA(tagList : pTagItem location 'a1') : Cardinal; @@ -520,7 +520,7 @@ SysCall AHIBase 114; function AHI_AllocAudioRequestA(tagList : pTagItem location 'a0') : pAHIAudioModeRequester; SysCall AHIBase 120; -function AHI_AudioRequestA(Requester : pAHIAudioModeRequester location 'a0'; tagList : pTagItem location 'a1') : BOOLEAN; +function AHI_AudioRequestA(Requester : pAHIAudioModeRequester location 'a0'; tagList : pTagItem location 'a1') : LongBool; SysCall AHIBase 126; procedure AHI_FreeAudioRequest(Requester : pAHIAudioModeRequester location 'a0'); diff --git a/packages/morphunits/src/amigados.pas b/packages/morphunits/src/amigados.pas index e749e35ce7..96fb8ddedd 100644 --- a/packages/morphunits/src/amigados.pas +++ b/packages/morphunits/src/amigados.pas @@ -16,6 +16,7 @@ **********************************************************************} {$INLINE ON} +{$PACKRECORDS 2} unit AmigaDOS; @@ -1395,7 +1396,7 @@ function Open(fname : PChar location 'd1'; accessMode: LongInt location 'd2'): LongInt; SysCall MOS_DOSBase 30; -function dosClose(fileh: LongInt location 'd1'): Boolean; +function dosClose(fileh: LongInt location 'd1'): LongBool; SysCall MOS_DOSBase 36; function dosRead(fileh : LongInt location 'd1'; @@ -1419,7 +1420,7 @@ function dosSeek(fileh : LongInt location 'd1'; posmode : LongInt location 'd3'): LongInt; SysCall MOS_DOSBase 66; -function dosDeleteFile(fname: PChar location 'd1'): Boolean; +function dosDeleteFile(fname: PChar location 'd1'): LongBool; SysCall MOS_DOSBase 72; function dosRename(oldName: PChar location 'd1'; @@ -1476,7 +1477,7 @@ function DeviceProc(name: PChar location 'd1'): PMsgPort; SysCall MOS_DOSBase 174; function SetComment(name : PChar location 'd1'; - comment: PChar location 'd2'): Boolean; + comment: PChar location 'd2'): LongBool; SysCall MOS_DOSBase 180; function SetProtection(name: PChar location 'd1'; @@ -1490,18 +1491,18 @@ procedure DOSDelay(timeout: LongInt location 'd1'); SysCall MOS_DOSBase 198; function WaitForChar(file1 : LongInt location 'd1'; - timeout: LongInt location 'd2'): Boolean; + timeout: LongInt location 'd2'): LongBool; SysCall MOS_DOSBase 204; function ParentDir(lock: LongInt location 'd1'): LongInt; SysCall MOS_DOSBase 210; -function IsInteractive(file1: LongInt location 'd1'): Boolean; +function IsInteractive(file1: LongInt location 'd1'): LongBool; SysCall MOS_DOSBase 216; function Execute(string1: PChar location 'd1'; file1 : LongInt location 'd2'; - file2 : LongInt location 'd3'): Boolean; + file2 : LongInt location 'd3'): LongBool; SysCall MOS_DOSBase 222; function AllocDosObject(type1: Cardinal location 'd1'; @@ -1576,19 +1577,19 @@ function LockRecord(fh : LongInt location 'd1'; offset : Cardinal location 'd2'; length : Cardinal location 'd3'; mode : Cardinal location 'd4'; - timeout: Cardinal location 'd5'): Boolean; + timeout: Cardinal location 'd5'): LongBool; SysCall MOS_DOSBase 270; function LockRecords(recArray: PRecordLock location 'd1'; - timeout : Cardinal location 'd2'): Boolean; + timeout : Cardinal location 'd2'): LongBool; SysCall MOS_DOSBase 276; function UnLockRecord(fh : LongInt location 'd1'; offset: Cardinal location 'd2'; - length: Cardinal location 'd3'): Boolean; + length: Cardinal location 'd3'): LongBool; SysCall MOS_DOSBase 282; -function UnLockRecords(recArray: PRecordLock location 'd1'): Boolean; +function UnLockRecords(recArray: PRecordLock location 'd1'): LongBool; SysCall MOS_DOSBase 288; function SelectInput(fh: LongInt location 'd1'): LongInt; @@ -1658,21 +1659,21 @@ function ParentOfFH(fh: LongInt location 'd1'): LongInt; SysCall MOS_DOSBase 384; function ExamineFH(fh : LongInt location 'd1'; - fib: PFileInfoBlock location 'd2'): Boolean; + fib: PFileInfoBlock location 'd2'): LongBool; SysCall MOS_DOSBase 390; function SetFileDate(name: PChar location 'd1'; - date: PDateStamp location 'd2'): Boolean; + date: PDateStamp location 'd2'): LongBool; SysCall MOS_DOSBase 396; function NameFromLock(lock : LongInt location 'd1'; buffer: PChar location 'd2'; - len : LongInt location 'd3'): Boolean; + len : LongInt location 'd3'): LongBool; SysCall MOS_DOSBase 402; function NameFromFH(fh : LongInt location 'd1'; buffer: PChar location 'd2'; - len : LongInt location 'd3'): Boolean; + len : LongInt location 'd3'): LongBool; SysCall MOS_DOSBase 408; function SplitName(name : PChar location 'd1'; @@ -1694,24 +1695,24 @@ function ExAll(lock : LongInt location 'd1'; buffer : PExAllData location 'd2'; size : LongInt location 'd3'; data : LongInt location 'd4'; - control: PExAllControl location 'd5'): Boolean; + control: PExAllControl location 'd5'): LongBool; SysCall MOS_DOSBase 432; function ReadLink(port : PMsgPort location 'd1'; lock : LongInt location 'd2'; path : PChar location 'd3'; buffer: PChar location 'd4'; - size : Cardinal location 'd5'): Boolean; + size : Cardinal location 'd5'): LongBool; SysCall MOS_DOSBase 438; function MakeLink(name: PChar location 'd1'; dest: LongInt location 'd2'; - soft: LongInt location 'd3'): Boolean; + soft: LongInt location 'd3'): LongBool; SysCall MOS_DOSBase 444; function ChangeMode(type1 : LongInt location 'd1'; fh : LongInt location 'd2'; - newmode: LongInt location 'd3'): Boolean; + newmode: LongInt location 'd3'): LongBool; SysCall MOS_DOSBase 450; function SetFileSize(fh : LongInt location 'd1'; @@ -1725,17 +1726,17 @@ SysCall MOS_DOSBase 462; function Fault(code : LongInt location 'd1'; header: PChar location 'd2'; buffer: PChar location 'd3'; - len : LongInt location 'd4'): Boolean; + len : LongInt location 'd4'): LongBool; SysCall MOS_DOSBase 468; function PrintFault(code : LongInt location 'd1'; - header: PChar location 'd2'): Boolean; + header: PChar location 'd2'): LongBool; SysCall MOS_DOSBase 474; function ErrorReport(code : LongInt location 'd1'; type1 : LongInt location 'd2'; arg1 : Cardinal location 'd3'; - device: PMsgPort location 'd4'): Boolean; + device: PMsgPort location 'd4'): LongBool; SysCall MOS_DOSBase 480; function Cli: PCommandLineInterface; @@ -1768,7 +1769,7 @@ SysCall MOS_DOSBase 528; function GetArgStr: PChar; SysCall MOS_DOSBase 534; -function SetArgStr(str: PChar location 'd1'): Boolean; +function SetArgStr(str: PChar location 'd1'): LongBool; SysCall MOS_DOSBase 540; function FindCliProc(num: Cardinal location 'd1'): PProcess; @@ -1777,25 +1778,25 @@ SysCall MOS_DOSBase 546; function MaxCli: Cardinal; SysCall MOS_DOSBase 552; -function SetCurrentDirName(name: PChar location 'd1'): Boolean; +function SetCurrentDirName(name: PChar location 'd1'): LongBool; SysCall MOS_DOSBase 558; function GetCurrentDirName(buf: PChar location 'd1'; - len: LongInt location 'd2'): Boolean; + len: LongInt location 'd2'): LongBool; SysCall MOS_DOSBase 564; -function SetProgramName(name: PChar location 'd1'): Boolean; +function SetProgramName(name: PChar location 'd1'): LongBool; SysCall MOS_DOSBase 570; function GetProgramName(buf: PChar location 'd1'; - len: LongInt location 'd2'): Boolean; + len: LongInt location 'd2'): LongBool; SysCall MOS_DOSBase 576; -function SetPrompt(name: PChar location 'd1'): Boolean; +function SetPrompt(name: PChar location 'd1'): LongBool; SysCall MOS_DOSBase 582; function GetPrompt(buf: PChar location 'd1'; - len: LongInt location 'd2'): Boolean; + len: LongInt location 'd2'): LongBool; SysCall MOS_DOSBase 588; function SetProgramDir(lock: LongInt location 'd1'): LongInt; @@ -1813,23 +1814,23 @@ function dosSystem(command: PChar location 'd1'; SysCall MOS_DOSBase 606; function AssignLock(name: PChar location 'd1'; - lock: LongInt location 'd2'): Boolean; + lock: LongInt location 'd2'): LongBool; SysCall MOS_DOSBase 612; function AssignLate(name: PChar location 'd1'; - path: PChar location 'd2'): Boolean; + path: PChar location 'd2'): LongBool; SysCall MOS_DOSBase 618; function AssignPath(name: PChar location 'd1'; - path: PChar location 'd2'): Boolean; + path: PChar location 'd2'): LongBool; SysCall MOS_DOSBase 624; function AssignAdd(name: PChar location 'd1'; - lock: LongInt location 'd2'): Boolean; + lock: LongInt location 'd2'): LongBool; SysCall MOS_DOSBase 630; function RemAssignList(name: PChar location 'd1'; - lock: LongInt location 'd2'): Boolean; + lock: LongInt location 'd2'): LongBool; SysCall MOS_DOSBase 636; function GetDeviceProc(name: PChar location 'd1'; @@ -1848,7 +1849,7 @@ SysCall MOS_DOSBase 660; function AttemptLockDosList(flags: Cardinal location 'd1'): PDosList; SysCall MOS_DOSBase 666; -function RemDosEntry(dlist: PDosList location 'd1'): Boolean; +function RemDosEntry(dlist: PDosList location 'd1'): LongBool; SysCall MOS_DOSBase 672; function AddDosEntry(dlist: PDosList location 'd1'): LongInt; @@ -1870,34 +1871,34 @@ SysCall MOS_DOSBase 696; procedure FreeDosEntry(dlist: PDosList location 'd1'); SysCall MOS_DOSBase 702; -function IsFileSystem(name: PChar location 'd1'): Boolean; +function IsFileSystem(name: PChar location 'd1'): LongBool; SysCall MOS_DOSBase 708; function Format(filesystem: PChar location 'd1'; volumename: PChar location 'd2'; - dostype : Cardinal location 'd3'): Boolean; + dostype : Cardinal location 'd3'): LongBool; SysCall MOS_DOSBase 714; function Relabel(drive : PChar location 'd1'; - newname: PChar location 'd2'): Boolean; + newname: PChar location 'd2'): LongBool; SysCall MOS_DOSBase 720; function Inhibit(name : PChar location 'd1'; - onoff: LongInt location 'd2'): Boolean; + onoff: LongInt location 'd2'): LongBool; SysCall MOS_DOSBase 726; function AddBuffers(name : PChar location 'd1'; - number: LongInt location 'd2'): Boolean; + number: LongInt location 'd2'): LongBool; SysCall MOS_DOSBase 732; function CompareDates(date1: PDateStamp location 'd1'; date2: PDateStamp location 'd2'): LongInt; SysCall MOS_DOSBase 738; -function DateToStr(datetime: _PDateTime location 'd1'): Boolean; +function DateToStr(datetime: _PDateTime location 'd1'): LongBool; SysCall MOS_DOSBase 744; -function StrToDate(datetime: _PDateTime location 'd1'): Boolean; +function StrToDate(datetime: _PDateTime location 'd1'): LongBool; SysCall MOS_DOSBase 750; function InternalLoadSeg(fh : LongInt location 'd0'; @@ -1916,7 +1917,7 @@ SysCall MOS_DOSBase 768; function AddSegment(name : PChar location 'd1'; seg : LongInt location 'd2'; - system: LongInt location 'd3'): Boolean; + system: LongInt location 'd3'): LongBool; SysCall MOS_DOSBase 774; function FindSegment(name : PChar location 'd1'; @@ -1924,7 +1925,7 @@ function FindSegment(name : PChar location 'd1'; system: LongInt location 'd3'): PSegment; SysCall MOS_DOSBase 780; -function RemSegment(seg: PSegment location 'd1'): Boolean; +function RemSegment(seg: PSegment location 'd1'): LongBool; SysCall MOS_DOSBase 786; function CheckSignal(mask: LongInt location 'd1'): LongInt; @@ -1964,7 +1965,7 @@ function ParsePattern(pat : PChar location 'd1'; SysCall MOS_DOSBase 840; function MatchPattern(pat: PChar location 'd1'; - str: PChar location 'd2'): Boolean; + str: PChar location 'd2'): LongBool; SysCall MOS_DOSBase 846; procedure FreeArgs(args: pRDArgs location 'd1'); @@ -1978,10 +1979,10 @@ SysCall MOS_DOSBase 876; function AddPart(dirname: PChar location 'd1'; filename: PChar location 'd2'; - size : Cardinal location 'd3'): Boolean; + size : Cardinal location 'd3'): LongBool; SysCall MOS_DOSBase 882; -function StartNotify(notify: PNotifyRequest location 'd1'): Boolean; +function StartNotify(notify: PNotifyRequest location 'd1'): LongBool; SysCall MOS_DOSBase 888; procedure EndNotify(notify: PNotifyRequest location 'd1'); @@ -1990,7 +1991,7 @@ SysCall MOS_DOSBase 894; function SetVar(name : PChar location 'd1'; buffer: PChar location 'd2'; size : LongInt location 'd3'; - flags : LongInt location 'd4'): Boolean; + flags : LongInt location 'd4'): LongBool; SysCall MOS_DOSBase 900; function GetVar(name : PChar location 'd1'; @@ -2000,7 +2001,7 @@ function GetVar(name : PChar location 'd1'; SysCall MOS_DOSBase 906; function DeleteVar(name : PChar location 'd1'; - flags: Cardinal location 'd2'): Boolean; + flags: Cardinal location 'd2'): LongBool; SysCall MOS_DOSBase 912; function FindVar(name : PChar location 'd1'; @@ -2030,11 +2031,11 @@ function ParsePatternNoCase(pat : PChar location 'd1'; SysCall MOS_DOSBase 966; function MatchPatternNoCase(pat: PChar location 'd1'; - str: PChar location 'd2'): Boolean; + str: PChar location 'd2'): LongBool; SysCall MOS_DOSBase 972; function SameDevice(lock1: LongInt location 'd1'; - lock2: LongInt location 'd2'): Boolean; + lock2: LongInt location 'd2'): LongBool; SysCall MOS_DOSBase 984; procedure ExAllEnd(lock : LongInt location 'd1'; @@ -2045,7 +2046,7 @@ procedure ExAllEnd(lock : LongInt location 'd1'; SysCall MOS_DOSBase 990; function SetOwner(name : PChar location 'd1'; - owner_info: LongInt location 'd2'): Boolean; + owner_info: LongInt location 'd2'): LongBool; SysCall MOS_DOSBase 996; function AddSegmentTagList(tags: PTagItem location 'a0'): LongInt; diff --git a/packages/morphunits/src/asl.pas b/packages/morphunits/src/asl.pas index ae06289bb7..20b5d17fa1 100644 --- a/packages/morphunits/src/asl.pas +++ b/packages/morphunits/src/asl.pas @@ -530,7 +530,7 @@ SysCall AslBase 030; procedure FreeFileRequest(fileReq : pFileRequester location 'a0'); SysCall AslBase 036; -function RequestFile(fileReq : pFileRequester location 'a0'): Boolean; +function RequestFile(fileReq : pFileRequester location 'a0'): LongBool; SysCall AslBase 042; function AllocAslRequest(reqType: Cardinal location 'd0'; @@ -541,7 +541,7 @@ procedure FreeAslRequest(requester: Pointer location 'a0'); SysCall AslBase 054; function AslRequest(requester: Pointer location 'a0'; - tagList : pTagItem location 'a1'): Boolean; + tagList : pTagItem location 'a1'): LongBool; SysCall AslBase 060; procedure AbortAslRequest(requester: Pointer location 'a0'); @@ -553,7 +553,7 @@ SysCall AslBase 084; function AllocAslRequestTags(reqType: Cardinal; tagList: array of DWord): Pointer; Inline; function AslRequestTags(requester: Pointer; - tagList : array of DWord): Boolean; Inline; + tagList : array of DWord): LongBool; Inline; function InitAslLibrary : boolean; diff --git a/packages/morphunits/src/intuition.pas b/packages/morphunits/src/intuition.pas index 10b9703751..0ace8ae7aa 100644 --- a/packages/morphunits/src/intuition.pas +++ b/packages/morphunits/src/intuition.pas @@ -4052,7 +4052,7 @@ SysCall IntuitionBase 036; function AddGadget(window : pWindow location 'a0'; gadget : pGadget location 'a1'; position : CARDINAL location 'd0') : Word; SysCall IntuitionBase 042; -function ClearDMRequest(window : pWindow location 'a0') : BOOLEAN; +function ClearDMRequest(window : pWindow location 'a0') : LongBool; SysCall IntuitionBase 048; procedure ClearMenuStrip(window : pWindow location 'a0'); @@ -4061,7 +4061,7 @@ SysCall IntuitionBase 054; procedure ClearPointer(window : pWindow location 'a0'); SysCall IntuitionBase 060; -function CloseScreen(screen : pScreen location 'a0') : BOOLEAN; +function CloseScreen(screen : pScreen location 'a0') : LongBool; SysCall IntuitionBase 066; procedure CloseWindow(window : pWindow location 'a0'); @@ -4073,13 +4073,13 @@ SysCall IntuitionBase 078; procedure CurrentTime(VAR seconds : CARDINAL location 'a0'; VAR micros : CARDINAL location 'a1'); SysCall IntuitionBase 084; -function DisplayAlert(alertNumber : CARDINAL location 'd0'; string1 : PChar location 'a0'; height : CARDINAL location 'd1') : BOOLEAN; +function DisplayAlert(alertNumber : CARDINAL location 'd0'; string1 : PChar location 'a0'; height : CARDINAL location 'd1') : LongBool; SysCall IntuitionBase 090; procedure DisplayBeep(screen : pScreen location 'a0'); SysCall IntuitionBase 096; -function DoubleClick(sSeconds : CARDINAL location 'd0'; sMicros : CARDINAL location 'd1'; cSeconds : CARDINAL location 'd2'; cMicros : CARDINAL location 'd3') : BOOLEAN; +function DoubleClick(sSeconds : CARDINAL location 'd0'; sMicros : CARDINAL location 'd1'; cSeconds : CARDINAL location 'd2'; cMicros : CARDINAL location 'd3') : LongBool; SysCall IntuitionBase 102; procedure DrawBorder(rp : pRastPort location 'a0'; border : pBorder location 'a1'; leftOffset : LongInt location 'd0'; topOffset : LongInt location 'd1'); @@ -4103,7 +4103,7 @@ SysCall IntuitionBase 138; function ItemAddress(menuStrip : pMenu location 'a0'; menuNumber : CARDINAL location 'd0') : pMenuItem; SysCall IntuitionBase 144; -function ModifyIDCMP(window : pWindow location 'a0'; flags : CARDINAL location 'd0') : BOOLEAN; +function ModifyIDCMP(window : pWindow location 'a0'; flags : CARDINAL location 'd0') : LongBool; SysCall IntuitionBase 150; procedure ModifyProp(gadget : pGadget location 'a0'; window : pWindow location 'a1'; requester : pRequester location 'a2'; flags : CARDINAL location 'd0'; horizPot : CARDINAL location 'd1'; vertPot : CARDINAL location 'd2'; horizBody : CARDINAL location 'd3'; vertBody : CARDINAL location 'd4'); @@ -4148,7 +4148,7 @@ SysCall IntuitionBase 228; procedure ReportMouse(flag : LongInt location 'd0'; window : pWindow location 'a0'); SysCall IntuitionBase 234; -function Request(requester : pRequester location 'a0'; window : pWindow location 'a1') : BOOLEAN; +function Request(requester : pRequester location 'a0'; window : pWindow location 'a1') : LongBool; SysCall IntuitionBase 240; procedure ScreenToBack(screen : pScreen location 'a0'); @@ -4157,10 +4157,10 @@ SysCall IntuitionBase 246; procedure ScreenToFront(screen : pScreen location 'a0'); SysCall IntuitionBase 252; -function SetDMRequest(window : pWindow location 'a0'; requester : pRequester location 'a1') : BOOLEAN; +function SetDMRequest(window : pWindow location 'a0'; requester : pRequester location 'a1') : LongBool; SysCall IntuitionBase 258; -function SetMenuStrip(window : pWindow location 'a0'; menu : pMenu location 'a1') : BOOLEAN; +function SetMenuStrip(window : pWindow location 'a0'; menu : pMenu location 'a1') : LongBool; SysCall IntuitionBase 264; procedure SetPointer(window : pWindow location 'a0'; VAR pointer : Word location 'a1'; height : LongInt location 'd0'; width : LongInt location 'd1'; xOffset : LongInt location 'd2'; yOffset : LongInt location 'd3'); @@ -4187,7 +4187,7 @@ SysCall IntuitionBase 306; procedure WindowToFront(window : pWindow location 'a0'); SysCall IntuitionBase 312; -function WindowLimits(window : pWindow location 'a0'; widthMin : LongInt location 'd0'; heightMin : LongInt location 'd1'; widthMax : CARDINAL location 'd2'; heightMax : CARDINAL location 'd3') : BOOLEAN; +function WindowLimits(window : pWindow location 'a0'; widthMin : LongInt location 'd0'; heightMin : LongInt location 'd1'; widthMax : CARDINAL location 'd2'; heightMax : CARDINAL location 'd3') : LongBool; SysCall IntuitionBase 318; function SetPrefs(preferences : pPreferences location 'a0'; size : LongInt location 'd0'; inform : LongInt location 'd1') : pPreferences; @@ -4196,13 +4196,13 @@ SysCall IntuitionBase 324; function IntuiTextLength(iText : pIntuiText location 'a0') : LongInt; SysCall IntuitionBase 330; -function WBenchToBack : BOOLEAN; +function WBenchToBack : LongBool; SysCall IntuitionBase 336; -function WBenchToFront : BOOLEAN; +function WBenchToFront : LongBool; SysCall IntuitionBase 342; -function AutoRequest(window : pWindow location 'a0'; body : pIntuiText location 'a1'; posText : pIntuiText location 'a2'; negText : pIntuiText location 'a3'; pFlag : CARDINAL location 'd0'; nFlag : CARDINAL location 'd1'; width : CARDINAL location 'd2'; height : CARDINAL location 'd3') : BOOLEAN; +function AutoRequest(window : pWindow location 'a0'; body : pIntuiText location 'a1'; posText : pIntuiText location 'a2'; negText : pIntuiText location 'a3'; pFlag : CARDINAL location 'd0'; nFlag : CARDINAL location 'd1'; width : CARDINAL location 'd2'; height : CARDINAL location 'd3') : LongBool; SysCall IntuitionBase 348; procedure BeginRefresh(window : pWindow location 'a0'); @@ -4256,7 +4256,7 @@ SysCall IntuitionBase 450; procedure RefreshWindowFrame(window : pWindow location 'a0'); SysCall IntuitionBase 456; -function ActivateGadget(gadgets : pGadget location 'a0'; window : pWindow location 'a1'; requester : pRequester location 'a2') : BOOLEAN; +function ActivateGadget(gadgets : pGadget location 'a0'; window : pWindow location 'a1'; requester : pRequester location 'a2') : LongBool; SysCall IntuitionBase 462; procedure NewModifyProp(gadget : pGadget location 'a0'; window : pWindow location 'a1'; requester : pRequester location 'a2'; flags : CARDINAL location 'd0'; horizPot : CARDINAL location 'd1'; vertPot : CARDINAL location 'd2'; horizBody : CARDINAL location 'd3'; vertBody : CARDINAL location 'd4'; numGad : LongInt location 'd5'); @@ -4338,7 +4338,7 @@ function OpenScreenTags(newScreen : pNewScreen; tagList : array of DWord) : pScr procedure DrawImageState(rp : pRastPort location 'a0'; image : pImage location 'a1'; leftOffset : LongInt location 'd0'; topOffset : LongInt location 'd1'; state : CARDINAL location 'd2'; drawInfo : pDrawInfo location 'a2'); SysCall IntuitionBase 618; -function PointInImage(point : CARDINAL location 'd0'; image : pImage location 'a0') : BOOLEAN; +function PointInImage(point : CARDINAL location 'd0'; image : pImage location 'a0') : LongBool; SysCall IntuitionBase 624; procedure EraseImage(rp : pRastPort location 'a0'; image : pImage location 'a1'; leftOffset : LongInt location 'd0'; topOffset : LongInt location 'd1'); @@ -4376,13 +4376,13 @@ SysCall IntuitionBase 690; procedure FreeScreenDrawInfo(screen : pScreen location 'a0'; drawInfo : pDrawInfo location 'a1'); SysCall IntuitionBase 696; -function ResetMenuStrip(window : pWindow location 'a0'; menu : pMenu location 'a1') : BOOLEAN; +function ResetMenuStrip(window : pWindow location 'a0'; menu : pMenu location 'a1') : LongBool; SysCall IntuitionBase 702; procedure RemoveClass(classPtr : pIClass location 'a0'); SysCall IntuitionBase 708; -function FreeClass(classPtr : pIClass location 'a0') : BOOLEAN; +function FreeClass(classPtr : pIClass location 'a0') : LongBool; SysCall IntuitionBase 714; function AllocScreenBuffer(sc : pScreen location 'a0'; bm : pBitMap location 'a1'; flags : CARDINAL location 'd0') : pScreenBuffer; @@ -4412,7 +4412,7 @@ SysCall IntuitionBase 810; procedure SetWindowPointerA(win : pWindow location 'a0'; taglist : pTagItem location 'a1'); SysCall IntuitionBase 816; -function TimedDisplayAlert(alertNumber : CARDINAL location 'd0'; string1 : PChar location 'a0'; height : CARDINAL location 'd1'; time : CARDINAL location 'a1') : BOOLEAN; +function TimedDisplayAlert(alertNumber : CARDINAL location 'd0'; string1 : PChar location 'a0'; height : CARDINAL location 'd1'; time : CARDINAL location 'a1') : LongBool; SysCall IntuitionBase 822; procedure HelpControl(win : pWindow location 'a0'; flags : CARDINAL location 'd0'); @@ -4433,7 +4433,7 @@ SysCall IntuitionBase 936; procedure WindowAction(window : pWindow location 'a0'; action : CARDINAL location 'd0'; tags : pTagItem location 'a1'); SysCall IntuitionBase 942; -function TransparencyControl(window : pWindow location 'a0'; method : CARDINAL location 'd0'; tags : pTagItem location 'a1') : BOOLEAN; +function TransparencyControl(window : pWindow location 'a0'; method : CARDINAL location 'd0'; tags : pTagItem location 'a1') : LongBool; SysCall IntuitionBase 948; procedure ScrollWindowRasterNoFill(win : pWindow location 'a1'; dx : LongInt location 'd0'; dy : LongInt location 'd1'; xMin : LongInt location 'd2'; yMin : LongInt location 'd3'; xMax : LongInt location 'd4'; yMax : LongInt location 'd5'); diff --git a/packages/morphunits/src/utility.pas b/packages/morphunits/src/utility.pas index 5005b30666..30f38747bd 100644 --- a/packages/morphunits/src/utility.pas +++ b/packages/morphunits/src/utility.pas @@ -235,7 +235,7 @@ procedure RefreshTagItemClones(clone : PTagItem location 'a0'; SysCall MOS_UtilityBase 084; function TagInArray(tagValue : Cardinal location 'd0'; - var tagArray: Cardinal location 'a0'): Boolean; + var tagArray: Cardinal location 'a0'): LongBool; SysCall MOS_UtilityBase 090; function FilterTagItems(tagList : PTagItem location 'a0'; @@ -312,7 +312,7 @@ function UnpackStructureTags(pack : Pointer location 'a0'; SysCall MOS_UtilityBase 216; function AddNamedObject(nameSpace: PNamedObject location 'a0'; - nobject : PNamedObject location 'a1'): Boolean; + nobject : PNamedObject location 'a1'): LongBool; SysCall MOS_UtilityBase 222; function AllocNamedObjectA(name : PChar location 'a0';