Browse Source

Amiga: Boolean -> LongBool changes in syscalls

git-svn-id: trunk@28675 -
Károly Balogh 11 years ago
parent
commit
4f0d42131d
3 changed files with 63 additions and 63 deletions
  1. 51 51
      rtl/amiga/m68k/doslibf.inc
  2. 2 2
      rtl/amiga/m68k/utilf.inc
  3. 10 10
      rtl/amiga/powerpc/doslibf.inc

+ 51 - 51
rtl/amiga/m68k/doslibf.inc

@@ -20,7 +20,7 @@ function Open(fname     : PChar   location 'd1';
               accessMode: LongInt location 'd2'): LongInt;
 SysCall AOS_DOSBase 30;
 
-function dosClose(fileh: LongInt location 'd1'): Boolean;
+function dosClose(fileh: LongInt location 'd1'): LongBool;
 SysCall AOS_DOSBase 36;
 
 function dosRead(fileh : LongInt location 'd1';
@@ -44,7 +44,7 @@ function dosSeek(fileh   : LongInt location 'd1';
                  posmode : LongInt location 'd3'): LongInt;
 SysCall AOS_DOSBase 66;
 
-function dosDeleteFile(fname: PChar location 'd1'): Boolean;
+function dosDeleteFile(fname: PChar location 'd1'): LongBool;
 SysCall AOS_DOSBase 72;
 
 function dosRename(oldName: PChar location 'd1';
@@ -101,7 +101,7 @@ function DeviceProc(name: PChar location 'd1'): PMsgPort;
 SysCall AOS_DOSBase 174;
 
 function SetComment(name   : PChar location 'd1';
-                    comment: PChar location 'd2'): Boolean;
+                    comment: PChar location 'd2'): LongBool;
 SysCall AOS_DOSBase 180;
 
 function SetProtection(name: PChar   location 'd1';
@@ -115,18 +115,18 @@ procedure Delay(timeout: LongInt location 'd1');
 SysCall AOS_DOSBase 198;
 
 function WaitForChar(file1  : LongInt location 'd1';
-                     timeout: LongInt location 'd2'): Boolean;
+                     timeout: LongInt location 'd2'): LongBool;
 SysCall AOS_DOSBase 204;
 
 function ParentDir(lock: LongInt location 'd1'): LongInt;
 SysCall AOS_DOSBase 210;
 
-function IsInteractive(file1: LongInt location 'd1'): Boolean;
+function IsInteractive(file1: LongInt location 'd1'): LongBool;
 SysCall AOS_DOSBase 216;
 
 function Execute(string1: PChar   location 'd1';
                  file1  : LongInt location 'd2';
-                 file2  : LongInt location 'd3'): Boolean;
+                 file2  : LongInt location 'd3'): LongBool;
 SysCall AOS_DOSBase 222;
 
 function AllocDosObject(type1: Cardinal location 'd1';
@@ -201,19 +201,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 AOS_DOSBase 270;
 
 function LockRecords(recArray: PRecordLock location 'd1';
-                     timeout : Cardinal    location 'd2'): Boolean;
+                     timeout : Cardinal    location 'd2'): LongBool;
 SysCall AOS_DOSBase 276;
 
 function UnLockRecord(fh    : LongInt  location 'd1';
                       offset: Cardinal location 'd2';
-                      length: Cardinal location 'd3'): Boolean;
+                      length: Cardinal location 'd3'): LongBool;
 SysCall AOS_DOSBase 282;
 
-function UnLockRecords(recArray: PRecordLock location 'd1'): Boolean;
+function UnLockRecords(recArray: PRecordLock location 'd1'): LongBool;
 SysCall AOS_DOSBase 288;
 
 function SelectInput(fh: LongInt location 'd1'): LongInt;
@@ -283,21 +283,21 @@ function ParentOfFH(fh: LongInt location 'd1'): LongInt;
 SysCall AOS_DOSBase 384;
 
 function ExamineFH(fh : BPTR           location 'd1';
-                   fib: PFileInfoBlock location 'd2'): Boolean;
+                   fib: PFileInfoBlock location 'd2'): LongBool;
 SysCall AOS_DOSBase 390;
 
 function SetFileDate(name: PChar      location 'd1';
-                     date: PDateStamp location 'd2'): Boolean;
+                     date: PDateStamp location 'd2'): LongBool;
 SysCall AOS_DOSBase 396;
 
 function NameFromLock(lock  : LongInt location 'd1';
                       buffer: PChar   location 'd2';
-                      len   : LongInt location 'd3'): Boolean;
+                      len   : LongInt location 'd3'): LongBool;
 SysCall AOS_DOSBase 402;
 
 function NameFromFH(fh    : BPTR    location 'd1';
                     buffer: PChar   location 'd2';
-                    len   : LongInt location 'd3'): Boolean;
+                    len   : LongInt location 'd3'): LongBool;
 SysCall AOS_DOSBase 408;
 
 function SplitName(name     : PChar    location 'd1';
@@ -319,24 +319,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 AOS_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 AOS_DOSBase 438;
 
 function MakeLink(name: PChar   location 'd1';
                   dest: LongInt location 'd2';
-                  soft: LongInt location 'd3'): Boolean;
+                  soft: LongInt location 'd3'): LongBool;
 SysCall AOS_DOSBase 444;
 
 function ChangeMode(type1  : LongInt location 'd1';
                     fh     : LongInt location 'd2';
-                    newmode: LongInt location 'd3'): Boolean;
+                    newmode: LongInt location 'd3'): LongBool;
 SysCall AOS_DOSBase 450;
 
 function SetFileSize(fh  : LongInt location 'd1';
@@ -350,17 +350,17 @@ SysCall AOS_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 AOS_DOSBase 468;
 
 function PrintFault(code  : LongInt location 'd1';
-                    header: PChar   location 'd2'): Boolean;
+                    header: PChar   location 'd2'): LongBool;
 SysCall AOS_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 AOS_DOSBase 480;
 
 function Cli: PCommandLineInterface;
@@ -393,7 +393,7 @@ SysCall AOS_DOSBase 528;
 function GetArgStr: PChar;
 SysCall AOS_DOSBase 534;
 
-function SetArgStr(str: PChar location 'd1'): Boolean;
+function SetArgStr(str: PChar location 'd1'): LongBool;
 SysCall AOS_DOSBase 540;
 
 function FindCliProc(num: Cardinal location 'd1'): PProcess;
@@ -402,25 +402,25 @@ SysCall AOS_DOSBase 546;
 function MaxCli: Cardinal;
 SysCall AOS_DOSBase 552;
 
-function SetCurrentDirName(name: PChar location 'd1'): Boolean;
+function SetCurrentDirName(name: PChar location 'd1'): LongBool;
 SysCall AOS_DOSBase 558;
 
 function GetCurrentDirName(buf: PChar   location 'd1';
-                           len: LongInt location 'd2'): Boolean;
+                           len: LongInt location 'd2'): LongBool;
 SysCall AOS_DOSBase 564;
 
-function SetProgramName(name: PChar location 'd1'): Boolean;
+function SetProgramName(name: PChar location 'd1'): LongBool;
 SysCall AOS_DOSBase 570;
 
 function GetProgramName(buf: PChar   location 'd1';
-                        len: LongInt location 'd2'): Boolean;
+                        len: LongInt location 'd2'): LongBool;
 SysCall AOS_DOSBase 576;
 
-function SetPrompt(name: PChar location 'd1'): Boolean;
+function SetPrompt(name: PChar location 'd1'): LongBool;
 SysCall AOS_DOSBase 582;
 
 function GetPrompt(buf: PChar   location 'd1';
-                   len: LongInt location 'd2'): Boolean;
+                   len: LongInt location 'd2'): LongBool;
 SysCall AOS_DOSBase 588;
 
 function SetProgramDir(lock: LongInt location 'd1'): LongInt;
@@ -438,23 +438,23 @@ function dosSystem(command: PChar    location 'd1';
 SysCall AOS_DOSBase 606;
 
 function AssignLock(name: PChar   location 'd1';
-                    lock: LongInt location 'd2'): Boolean;
+                    lock: LongInt location 'd2'): LongBool;
 SysCall AOS_DOSBase 612;
 
 function AssignLate(name: PChar location 'd1';
-                    path: PChar location 'd2'): Boolean;
+                    path: PChar location 'd2'): LongBool;
 SysCall AOS_DOSBase 618;
 
 function AssignPath(name: PChar location 'd1';
-                    path: PChar location 'd2'): Boolean;
+                    path: PChar location 'd2'): LongBool;
 SysCall AOS_DOSBase 624;
 
 function AssignAdd(name: PChar   location 'd1';
-                   lock: LongInt location 'd2'): Boolean;
+                   lock: LongInt location 'd2'): LongBool;
 SysCall AOS_DOSBase 630;
 
 function RemAssignList(name: PChar   location 'd1';
-                       lock: LongInt location 'd2'): Boolean;
+                       lock: LongInt location 'd2'): LongBool;
 SysCall AOS_DOSBase 636;
 
 function GetDeviceProc(name: PChar    location 'd1';
@@ -473,7 +473,7 @@ SysCall AOS_DOSBase 660;
 function AttemptLockDosList(flags: Cardinal location 'd1'): PDosList;
 SysCall AOS_DOSBase 666;
 
-function RemDosEntry(dlist: PDosList location 'd1'): Boolean;
+function RemDosEntry(dlist: PDosList location 'd1'): LongBool;
 SysCall AOS_DOSBase 672;
 
 function AddDosEntry(dlist: PDosList location 'd1'): LongInt;
@@ -495,34 +495,34 @@ SysCall AOS_DOSBase 696;
 procedure FreeDosEntry(dlist: PDosList location 'd1');
 SysCall AOS_DOSBase 702;
 
-function IsFileSystem(name: PChar location 'd1'): Boolean;
+function IsFileSystem(name: PChar location 'd1'): LongBool;
 SysCall AOS_DOSBase 708;
 
 function Format(filesystem: PChar    location 'd1';
                 volumename: PChar    location 'd2';
-                dostype   : Cardinal location 'd3'): Boolean;
+                dostype   : Cardinal location 'd3'): LongBool;
 SysCall AOS_DOSBase 714;
 
 function Relabel(drive  : PChar location 'd1';
-                 newname: PChar location 'd2'): Boolean;
+                 newname: PChar location 'd2'): LongBool;
 SysCall AOS_DOSBase 720;
 
 function Inhibit(name : PChar   location 'd1';
-                 onoff: LongInt location 'd2'): Boolean;
+                 onoff: LongInt location 'd2'): LongBool;
 SysCall AOS_DOSBase 726;
 
 function AddBuffers(name  : PChar   location 'd1';
-                    number: LongInt location 'd2'): Boolean;
+                    number: LongInt location 'd2'): LongBool;
 SysCall AOS_DOSBase 732;
 
 function CompareDates(date1: PDateStamp location 'd1';
                       date2: PDateStamp location 'd2'): LongInt;
 SysCall AOS_DOSBase 738;
 
-function DateToStr(datetime: _PDateTime location 'd1'): Boolean;
+function DateToStr(datetime: _PDateTime location 'd1'): LongBool;
 SysCall AOS_DOSBase 744;
 
-function StrToDate(datetime: _PDateTime location 'd1'): Boolean;
+function StrToDate(datetime: _PDateTime location 'd1'): LongBool;
 SysCall AOS_DOSBase 750;
 
 function InternalLoadSeg(fh           : LongInt location 'd0';
@@ -541,7 +541,7 @@ SysCall AOS_DOSBase 768;
 
 function AddSegment(name  : PChar   location 'd1';
                     seg   : LongInt location 'd2';
-                    system: LongInt location 'd3'): Boolean;
+                    system: LongInt location 'd3'): LongBool;
 SysCall AOS_DOSBase 774;
 
 function FindSegment(name  : PChar    location 'd1';
@@ -549,7 +549,7 @@ function FindSegment(name  : PChar    location 'd1';
                      system: LongInt  location 'd3'): PSegment;
 SysCall AOS_DOSBase 780;
 
-function RemSegment(seg: PSegment location 'd1'): Boolean;
+function RemSegment(seg: PSegment location 'd1'): LongBool;
 SysCall AOS_DOSBase 786;
 
 function CheckSignal(mask: LongInt location 'd1'): LongInt;
@@ -589,7 +589,7 @@ function ParsePattern(pat   : PChar   location 'd1';
 SysCall AOS_DOSBase 840;
 
 function MatchPattern(pat: PChar location 'd1';
-                      str: PChar location 'd2'): Boolean;
+                      str: PChar location 'd2'): LongBool;
 SysCall AOS_DOSBase 846;
 
 procedure FreeArgs(args: pRDArgs location 'd1');
@@ -603,10 +603,10 @@ SysCall AOS_DOSBase 876;
 
 function AddPart(dirname: PChar    location 'd1';
                 filename: PChar    location 'd2';
-                size    : Cardinal location 'd3'): Boolean;
+                size    : Cardinal location 'd3'): LongBool;
 SysCall AOS_DOSBase 882;
 
-function StartNotify(notify: PNotifyRequest location 'd1'): Boolean;
+function StartNotify(notify: PNotifyRequest location 'd1'): LongBool;
 SysCall AOS_DOSBase 888;
 
 procedure EndNotify(notify: PNotifyRequest location 'd1');
@@ -615,7 +615,7 @@ SysCall AOS_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 AOS_DOSBase 900;
 
 function GetVar(name  : PChar   location 'd1';
@@ -625,7 +625,7 @@ function GetVar(name  : PChar   location 'd1';
 SysCall AOS_DOSBase 906;
 
 function DeleteVar(name : PChar    location 'd1';
-                   flags: Cardinal location 'd2'): Boolean;
+                   flags: Cardinal location 'd2'): LongBool;
 SysCall AOS_DOSBase 912;
 
 function FindVar(name : PChar    location 'd1';
@@ -655,11 +655,11 @@ function ParsePatternNoCase(pat   : PChar   location 'd1';
 SysCall AOS_DOSBase 966;
 
 function MatchPatternNoCase(pat: PChar location 'd1';
-                            str: PChar location 'd2'): Boolean;
+                            str: PChar location 'd2'): LongBool;
 SysCall AOS_DOSBase 972;
 
 function SameDevice(lock1: LongInt location 'd1';
-                    lock2: LongInt location 'd2'): Boolean;
+                    lock2: LongInt location 'd2'): LongBool;
 SysCall AOS_DOSBase 984;
 
 procedure ExAllEnd(lock   : LongInt       location 'd1';
@@ -670,7 +670,7 @@ procedure ExAllEnd(lock   : LongInt       location 'd1';
 SysCall AOS_DOSBase 990;
 
 function SetOwner(name      : PChar   location 'd1';
-                  owner_info: LongInt location 'd2'): Boolean;
+                  owner_info: LongInt location 'd2'): LongBool;
 SysCall AOS_DOSBase 996;
 
 function AddSegmentTagList(tags: PTagItem location 'a0'): LongInt;

+ 2 - 2
rtl/amiga/m68k/utilf.inc

@@ -55,7 +55,7 @@ procedure RefreshTagItemClones(clone   : PTagItem location 'a0';
 SysCall AOS_UtilityBase 084;
 
 function TagInArray(tagValue    : Cardinal location 'd0';
-                    var tagArray: Cardinal location 'a0'): Boolean;
+                    var tagArray: Cardinal location 'a0'): LongBool;
 SysCall AOS_UtilityBase 090;
 
 function FilterTagItems(tagList        : PTagItem location 'a0';
@@ -132,7 +132,7 @@ function UnpackStructureTags(pack         : Pointer  location 'a0';
 SysCall AOS_UtilityBase 216;
 
 function AddNamedObject(nameSpace: PNamedObject location 'a0';
-                        nobject  : PNamedObject location 'a1'): Boolean;
+                        nobject  : PNamedObject location 'a1'): LongBool;
 SysCall AOS_UtilityBase 222;
 
 function AllocNamedObjectA(name   : PChar    location 'a0';

+ 10 - 10
rtl/amiga/powerpc/doslibf.inc

@@ -14,29 +14,29 @@
  **********************************************************************}
 
 function Open(name: PChar; accessMode: longint): longint; syscall IDOS 76;
-function dosClose(_file: longint): boolean; syscall IDOS 80;
+function dosClose(_file: longint): LongBool; syscall IDOS 80;
 function dosRead(_file: longint; buffer: Pointer; length: longint): longint; syscall IDOS 84;
 function dosWrite(_file: longint; buffer: Pointer; length: longint): longint; syscall IDOS 88;
 function dosInput: longint; syscall IDOS 92;
 function dosOutput: longint; syscall IDOS 96;
 function dosSeek(_file: longint;position: longint;offset: longint): longint; syscall IDOS 100;
-function dosDeleteFile(name: PChar): boolean; syscall IDOS 104;
-function dosRename(oldName: PChar;newName: PChar): boolean; syscall IDOS 108;
+function dosDeleteFile(name: PChar): LongBool; syscall IDOS 104;
+function dosRename(oldName: PChar;newName: PChar): LongBool; syscall IDOS 108;
 function Lock(name: PChar;_type: longint): longint; syscall IDOS 112;
 procedure UnLock(lock: longint); syscall IDOS 116;
 
-function Examine(lock: longint; fileInfoBlock: PFileInfoBlock): boolean; syscall IDOS 124;
+function Examine(lock: longint; fileInfoBlock: PFileInfoBlock): LongBool; syscall IDOS 124;
 
-function Info(lock: longint; parameterBlock: PInfoData): boolean; syscall IDOS 132;
+function Info(lock: longint; parameterBlock: PInfoData): LongBool; syscall IDOS 132;
 function dosCreateDir(name: PChar): longint; syscall IDOS 136;
 function CurrentDir(lock: longint): longint; syscall IDOS 140;
 function IoErr: longint; syscall IDOS 144;
 
-function SetProtection(name: PChar; protect: longword): boolean; syscall IDOS 180;
+function SetProtection(name: PChar; protect: longword): LongBool; syscall IDOS 180;
 function DateStamp(date: PDateStamp): PDateStamp; syscall IDOS 184;
 
-function SetFileDate(name: PChar; date: PDateStamp): boolean; syscall IDOS 356;
-function NameFromLock(lock: longint; buffer: PChar; len: longint): boolean; syscall IDOS 360;
+function SetFileDate(name: PChar; date: PDateStamp): LongBool; syscall IDOS 356;
+function NameFromLock(lock: longint; buffer: PChar; len: longint): LongBool; syscall IDOS 360;
 function NameFromFH(fh: longint; buffer: PChar; len: longint): longint; syscall IDOS 364;
 
 function SetFileSize(fh: longint; pos: longint; mode: longint): longint; syscall IDOS 396;
@@ -44,9 +44,9 @@ function SetFileSize(fh: longint; pos: longint; mode: longint): longint; syscall
 function GetArgStr: PChar; syscall IDOS 456;
 function SetArgStr(_string: PChar): PChar; syscall IDOS 460;
 
-function GetCurrentDirName(buf: PChar; len: longint): boolean; syscall IDOS 476;
+function GetCurrentDirName(buf: PChar; len: longint): LongBool; syscall IDOS 476;
 
-function GetProgramName(buf: PChar; len: longint): boolean; syscall IDOS 484;
+function GetProgramName(buf: PChar; len: longint): LongBool; syscall IDOS 484;
 
 function GetProgramDir: longint; syscall IDOS 500;
 function SystemTagList(command: PChar; tags: PTagItem): longint; syscall IDOS 504;