paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-25 04:10:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

Amiga: Boolean -> LongBool changes in syscalls

Browse Source 
git-svn-id: trunk@28675 -
This commit is contained in:
Károly Balogh 2014-09-15 22:52:50 +00:00
parent 034a209300
commit 4f0d42131d
3 changed files with 63 additions and 63 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

102
rtl/amiga/m68k/doslibf.inc
View File

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

4
rtl/amiga/m68k/utilf.inc
View File

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

20
rtl/amiga/powerpc/doslibf.inc
View File

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