morpho

git-svn-id: trunk@28676 -

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;

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');

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;

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;
 

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');

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';