paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-10 20:46:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

MorphOS: use LongBool instead of Boolean in syscalls, because we have C-style booleans as return values everywhere. this probably should be done for *all* Amiga-like syscalls everywhere...

Browse Source 
git-svn-id: trunk@28674 -
This commit is contained in:
Károly Balogh 2014-09-15 22:49:18 +00:00
parent 11c6d3df9c
commit 034a209300
2 changed files with 55 additions and 57 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

105
rtl/morphos/doslibf.inc
View File

@ -5,7 +5,7 @@
Copyright (c) 2002 The MorphOS Development Team, All Rights Reserved. Copyright (c) 2002 The MorphOS Development Team, All Rights Reserved.
Free Pascal conversion Free Pascal conversion
Copyright (c) 2004 Karoly Balogh for Genesi S.a.r.l. <www.genesi.lu> Copyright (c) 2004-2014 by Karoly Balogh
See the file COPYING.FPC, included in this distribution, See the file COPYING.FPC, included in this distribution,
for details about the copyright. for details about the copyright.
@ -23,7 +23,7 @@ function Open(fname : PChar location 'd1';
accessMode: LongInt location 'd2'): LongInt; accessMode: LongInt location 'd2'): LongInt;
SysCall MOS_DOSBase 30; SysCall MOS_DOSBase 30;
function dosClose(fileh: LongInt location 'd1'): Boolean; function dosClose(fileh: LongInt location 'd1'): LongBool;
SysCall MOS_DOSBase 36; SysCall MOS_DOSBase 36;
function dosRead(fileh : LongInt location 'd1'; function dosRead(fileh : LongInt location 'd1';
@ -47,7 +47,7 @@ function dosSeek(fileh : LongInt location 'd1';
posmode : LongInt location 'd3'): LongInt; posmode : LongInt location 'd3'): LongInt;
SysCall MOS_DOSBase 66; SysCall MOS_DOSBase 66;
function dosDeleteFile(fname: PChar location 'd1'): Boolean; function dosDeleteFile(fname: PChar location 'd1'): LongBool;
SysCall MOS_DOSBase 72; SysCall MOS_DOSBase 72;
function dosRename(oldName: PChar location 'd1'; function dosRename(oldName: PChar location 'd1';
@ -104,7 +104,7 @@ function DeviceProc(name: PChar location 'd1'): PMsgPort;
SysCall MOS_DOSBase 174; SysCall MOS_DOSBase 174;
function SetComment(name : PChar location 'd1'; function SetComment(name : PChar location 'd1';
comment: PChar location 'd2'): Boolean; comment: PChar location 'd2'): LongBool;
SysCall MOS_DOSBase 180; SysCall MOS_DOSBase 180;
function SetProtection(name: PChar location 'd1'; function SetProtection(name: PChar location 'd1';
@ -118,18 +118,18 @@ procedure Delay(timeout: LongInt location 'd1');
SysCall MOS_DOSBase 198; SysCall MOS_DOSBase 198;
function WaitForChar(file1 : LongInt location 'd1'; function WaitForChar(file1 : LongInt location 'd1';
timeout: LongInt location 'd2'): Boolean; timeout: LongInt location 'd2'): LongBool;
SysCall MOS_DOSBase 204; SysCall MOS_DOSBase 204;
function ParentDir(lock: LongInt location 'd1'): LongInt; function ParentDir(lock: LongInt location 'd1'): LongInt;
SysCall MOS_DOSBase 210; SysCall MOS_DOSBase 210;
function IsInteractive(file1: LongInt location 'd1'): Boolean; function IsInteractive(file1: LongInt location 'd1'): LongBool;
SysCall MOS_DOSBase 216; SysCall MOS_DOSBase 216;
function Execute(string1: PChar location 'd1'; function Execute(string1: PChar location 'd1';
file1 : LongInt location 'd2'; file1 : LongInt location 'd2';
file2 : LongInt location 'd3'): Boolean; file2 : LongInt location 'd3'): LongBool;
SysCall MOS_DOSBase 222; SysCall MOS_DOSBase 222;
function AllocDosObject(type1: Cardinal location 'd1'; function AllocDosObject(type1: Cardinal location 'd1';
@ -204,19 +204,19 @@ function LockRecord(fh : LongInt location 'd1';
offset : Cardinal location 'd2'; offset : Cardinal location 'd2';
length : Cardinal location 'd3'; length : Cardinal location 'd3';
mode : Cardinal location 'd4'; mode : Cardinal location 'd4';
timeout: Cardinal location 'd5'): Boolean; timeout: Cardinal location 'd5'): LongBool;
SysCall MOS_DOSBase 270; SysCall MOS_DOSBase 270;
function LockRecords(recArray: PRecordLock location 'd1'; function LockRecords(recArray: PRecordLock location 'd1';
timeout : Cardinal location 'd2'): Boolean; timeout : Cardinal location 'd2'): LongBool;
SysCall MOS_DOSBase 276; SysCall MOS_DOSBase 276;
function UnLockRecord(fh : LongInt location 'd1'; function UnLockRecord(fh : LongInt location 'd1';
offset: Cardinal location 'd2'; offset: Cardinal location 'd2';
length: Cardinal location 'd3'): Boolean; length: Cardinal location 'd3'): LongBool;
SysCall MOS_DOSBase 282; SysCall MOS_DOSBase 282;
function UnLockRecords(recArray: PRecordLock location 'd1'): Boolean; function UnLockRecords(recArray: PRecordLock location 'd1'): LongBool;
SysCall MOS_DOSBase 288; SysCall MOS_DOSBase 288;
function SelectInput(fh: LongInt location 'd1'): LongInt; function SelectInput(fh: LongInt location 'd1'): LongInt;
@ -286,21 +286,21 @@ function ParentOfFH(fh: LongInt location 'd1'): LongInt;
SysCall MOS_DOSBase 384; SysCall MOS_DOSBase 384;
function ExamineFH(fh : LongInt location 'd1'; function ExamineFH(fh : LongInt location 'd1';
fib: PFileInfoBlock location 'd2'): Boolean; fib: PFileInfoBlock location 'd2'): LongBool;
SysCall MOS_DOSBase 390; SysCall MOS_DOSBase 390;
function SetFileDate(name: PChar location 'd1'; function SetFileDate(name: PChar location 'd1';
date: PDateStamp location 'd2'): Boolean; date: PDateStamp location 'd2'): LongBool;
SysCall MOS_DOSBase 396; SysCall MOS_DOSBase 396;
function NameFromLock(lock : LongInt location 'd1'; function NameFromLock(lock : LongInt location 'd1';
buffer: PChar location 'd2'; buffer: PChar location 'd2';
len : LongInt location 'd3'): Boolean; len : LongInt location 'd3'): LongBool;
SysCall MOS_DOSBase 402; SysCall MOS_DOSBase 402;
function NameFromFH(fh : LongInt location 'd1'; function NameFromFH(fh : LongInt location 'd1';
buffer: PChar location 'd2'; buffer: PChar location 'd2';
len : LongInt location 'd3'): Boolean; len : LongInt location 'd3'): LongBool;
SysCall MOS_DOSBase 408; SysCall MOS_DOSBase 408;
function SplitName(name : PChar location 'd1'; function SplitName(name : PChar location 'd1';
@ -322,24 +322,24 @@ function ExAll(lock : LongInt location 'd1';
buffer : PExAllData location 'd2'; buffer : PExAllData location 'd2';
size : LongInt location 'd3'; size : LongInt location 'd3';
data : LongInt location 'd4'; data : LongInt location 'd4';
control: PExAllControl location 'd5'): Boolean; control: PExAllControl location 'd5'): LongBool;
SysCall MOS_DOSBase 432; SysCall MOS_DOSBase 432;
function ReadLink(port : PMsgPort location 'd1'; function ReadLink(port : PMsgPort location 'd1';
lock : LongInt location 'd2'; lock : LongInt location 'd2';
path : PChar location 'd3'; path : PChar location 'd3';
buffer: PChar location 'd4'; buffer: PChar location 'd4';
size : Cardinal location 'd5'): Boolean; size : Cardinal location 'd5'): LongBool;
SysCall MOS_DOSBase 438; SysCall MOS_DOSBase 438;
function MakeLink(name: PChar location 'd1'; function MakeLink(name: PChar location 'd1';
dest: LongInt location 'd2'; dest: LongInt location 'd2';
soft: LongInt location 'd3'): Boolean; soft: LongInt location 'd3'): LongBool;
SysCall MOS_DOSBase 444; SysCall MOS_DOSBase 444;
function ChangeMode(type1 : LongInt location 'd1'; function ChangeMode(type1 : LongInt location 'd1';
fh : LongInt location 'd2'; fh : LongInt location 'd2';
newmode: LongInt location 'd3'): Boolean; newmode: LongInt location 'd3'): LongBool;
SysCall MOS_DOSBase 450; SysCall MOS_DOSBase 450;
function SetFileSize(fh : LongInt location 'd1'; function SetFileSize(fh : LongInt location 'd1';
@ -353,17 +353,17 @@ SysCall MOS_DOSBase 462;
function Fault(code : LongInt location 'd1'; function Fault(code : LongInt location 'd1';
header: PChar location 'd2'; header: PChar location 'd2';
buffer: PChar location 'd3'; buffer: PChar location 'd3';
len : LongInt location 'd4'): Boolean; len : LongInt location 'd4'): LongBool;
SysCall MOS_DOSBase 468; SysCall MOS_DOSBase 468;
function PrintFault(code : LongInt location 'd1'; function PrintFault(code : LongInt location 'd1';
header: PChar location 'd2'): Boolean; header: PChar location 'd2'): LongBool;
SysCall MOS_DOSBase 474; SysCall MOS_DOSBase 474;
function ErrorReport(code : LongInt location 'd1'; function ErrorReport(code : LongInt location 'd1';
type1 : LongInt location 'd2'; type1 : LongInt location 'd2';
arg1 : Cardinal location 'd3'; arg1 : Cardinal location 'd3';
device: PMsgPort location 'd4'): Boolean; device: PMsgPort location 'd4'): LongBool;
SysCall MOS_DOSBase 480; SysCall MOS_DOSBase 480;
function Cli: PCommandLineInterface; function Cli: PCommandLineInterface;
@ -396,7 +396,7 @@ SysCall MOS_DOSBase 528;
function GetArgStr: PChar; function GetArgStr: PChar;
SysCall MOS_DOSBase 534; SysCall MOS_DOSBase 534;
function SetArgStr(str: PChar location 'd1'): Boolean; function SetArgStr(str: PChar location 'd1'): LongBool;
SysCall MOS_DOSBase 540; SysCall MOS_DOSBase 540;
function FindCliProc(num: Cardinal location 'd1'): PProcess; function FindCliProc(num: Cardinal location 'd1'): PProcess;
@ -405,25 +405,25 @@ SysCall MOS_DOSBase 546;
function MaxCli: Cardinal; function MaxCli: Cardinal;
SysCall MOS_DOSBase 552; SysCall MOS_DOSBase 552;
function SetCurrentDirName(name: PChar location 'd1'): Boolean; function SetCurrentDirName(name: PChar location 'd1'): LongBool;
SysCall MOS_DOSBase 558; SysCall MOS_DOSBase 558;
function GetCurrentDirName(buf: PChar location 'd1'; function GetCurrentDirName(buf: PChar location 'd1';
len: LongInt location 'd2'): Boolean; len: LongInt location 'd2'): LongBool;
SysCall MOS_DOSBase 564; SysCall MOS_DOSBase 564;
function SetProgramName(name: PChar location 'd1'): Boolean; function SetProgramName(name: PChar location 'd1'): LongBool;
SysCall MOS_DOSBase 570; SysCall MOS_DOSBase 570;
function GetProgramName(buf: PChar location 'd1'; function GetProgramName(buf: PChar location 'd1';
len: LongInt location 'd2'): Boolean; len: LongInt location 'd2'): LongBool;
SysCall MOS_DOSBase 576; SysCall MOS_DOSBase 576;
function SetPrompt(name: PChar location 'd1'): Boolean; function SetPrompt(name: PChar location 'd1'): LongBool;
SysCall MOS_DOSBase 582; SysCall MOS_DOSBase 582;
function GetPrompt(buf: PChar location 'd1'; function GetPrompt(buf: PChar location 'd1';
len: LongInt location 'd2'): Boolean; len: LongInt location 'd2'): LongBool;
SysCall MOS_DOSBase 588; SysCall MOS_DOSBase 588;
function SetProgramDir(lock: LongInt location 'd1'): LongInt; function SetProgramDir(lock: LongInt location 'd1'): LongInt;
@ -441,23 +441,23 @@ function dosSystem(command: PChar location 'd1';
SysCall MOS_DOSBase 606; SysCall MOS_DOSBase 606;
function AssignLock(name: PChar location 'd1'; function AssignLock(name: PChar location 'd1';
lock: LongInt location 'd2'): Boolean; lock: LongInt location 'd2'): LongBool;
SysCall MOS_DOSBase 612; SysCall MOS_DOSBase 612;
function AssignLate(name: PChar location 'd1'; function AssignLate(name: PChar location 'd1';
path: PChar location 'd2'): Boolean; path: PChar location 'd2'): LongBool;
SysCall MOS_DOSBase 618; SysCall MOS_DOSBase 618;
function AssignPath(name: PChar location 'd1'; function AssignPath(name: PChar location 'd1';
path: PChar location 'd2'): Boolean; path: PChar location 'd2'): LongBool;
SysCall MOS_DOSBase 624; SysCall MOS_DOSBase 624;
function AssignAdd(name: PChar location 'd1'; function AssignAdd(name: PChar location 'd1';
lock: LongInt location 'd2'): Boolean; lock: LongInt location 'd2'): LongBool;
SysCall MOS_DOSBase 630; SysCall MOS_DOSBase 630;
function RemAssignList(name: PChar location 'd1'; function RemAssignList(name: PChar location 'd1';
lock: LongInt location 'd2'): Boolean; lock: LongInt location 'd2'): LongBool;
SysCall MOS_DOSBase 636; SysCall MOS_DOSBase 636;
function GetDeviceProc(name: PChar location 'd1'; function GetDeviceProc(name: PChar location 'd1';
@ -476,7 +476,7 @@ SysCall MOS_DOSBase 660;
function AttemptLockDosList(flags: Cardinal location 'd1'): PDosList; function AttemptLockDosList(flags: Cardinal location 'd1'): PDosList;
SysCall MOS_DOSBase 666; SysCall MOS_DOSBase 666;
function RemDosEntry(dlist: PDosList location 'd1'): Boolean; function RemDosEntry(dlist: PDosList location 'd1'): LongBool;
SysCall MOS_DOSBase 672; SysCall MOS_DOSBase 672;
function AddDosEntry(dlist: PDosList location 'd1'): LongInt; function AddDosEntry(dlist: PDosList location 'd1'): LongInt;
@ -498,34 +498,34 @@ SysCall MOS_DOSBase 696;
procedure FreeDosEntry(dlist: PDosList location 'd1'); procedure FreeDosEntry(dlist: PDosList location 'd1');
SysCall MOS_DOSBase 702; SysCall MOS_DOSBase 702;
function IsFileSystem(name: PChar location 'd1'): Boolean; function IsFileSystem(name: PChar location 'd1'): LongBool;
SysCall MOS_DOSBase 708; SysCall MOS_DOSBase 708;
function Format(filesystem: PChar location 'd1'; function Format(filesystem: PChar location 'd1';
volumename: PChar location 'd2'; volumename: PChar location 'd2';
dostype : Cardinal location 'd3'): Boolean; dostype : Cardinal location 'd3'): LongBool;
SysCall MOS_DOSBase 714; SysCall MOS_DOSBase 714;
function Relabel(drive : PChar location 'd1'; function Relabel(drive : PChar location 'd1';
newname: PChar location 'd2'): Boolean; newname: PChar location 'd2'): LongBool;
SysCall MOS_DOSBase 720; SysCall MOS_DOSBase 720;
function Inhibit(name : PChar location 'd1'; function Inhibit(name : PChar location 'd1';
onoff: LongInt location 'd2'): Boolean; onoff: LongInt location 'd2'): LongBool;
SysCall MOS_DOSBase 726; SysCall MOS_DOSBase 726;
function AddBuffers(name : PChar location 'd1'; function AddBuffers(name : PChar location 'd1';
number: LongInt location 'd2'): Boolean; number: LongInt location 'd2'): LongBool;
SysCall MOS_DOSBase 732; SysCall MOS_DOSBase 732;
function CompareDates(date1: PDateStamp location 'd1'; function CompareDates(date1: PDateStamp location 'd1';
date2: PDateStamp location 'd2'): LongInt; date2: PDateStamp location 'd2'): LongInt;
SysCall MOS_DOSBase 738; SysCall MOS_DOSBase 738;
function DateToStr(datetime: _PDateTime location 'd1'): Boolean; function DateToStr(datetime: _PDateTime location 'd1'): LongBool;
SysCall MOS_DOSBase 744; SysCall MOS_DOSBase 744;
function StrToDate(datetime: _PDateTime location 'd1'): Boolean; function StrToDate(datetime: _PDateTime location 'd1'): LongBool;
SysCall MOS_DOSBase 750; SysCall MOS_DOSBase 750;
function InternalLoadSeg(fh : LongInt location 'd0'; function InternalLoadSeg(fh : LongInt location 'd0';
@ -544,7 +544,7 @@ SysCall MOS_DOSBase 768;
function AddSegment(name : PChar location 'd1'; function AddSegment(name : PChar location 'd1';
seg : LongInt location 'd2'; seg : LongInt location 'd2';
system: LongInt location 'd3'): Boolean; system: LongInt location 'd3'): LongBool;
SysCall MOS_DOSBase 774; SysCall MOS_DOSBase 774;
function FindSegment(name : PChar location 'd1'; function FindSegment(name : PChar location 'd1';
@ -552,7 +552,7 @@ function FindSegment(name : PChar location 'd1';
system: LongInt location 'd3'): PSegment; system: LongInt location 'd3'): PSegment;
SysCall MOS_DOSBase 780; SysCall MOS_DOSBase 780;
function RemSegment(seg: PSegment location 'd1'): Boolean; function RemSegment(seg: PSegment location 'd1'): LongBool;
SysCall MOS_DOSBase 786; SysCall MOS_DOSBase 786;
function CheckSignal(mask: LongInt location 'd1'): LongInt; function CheckSignal(mask: LongInt location 'd1'): LongInt;
@ -592,7 +592,7 @@ function ParsePattern(pat : PChar location 'd1';
SysCall MOS_DOSBase 840; SysCall MOS_DOSBase 840;
function MatchPattern(pat: PChar location 'd1'; function MatchPattern(pat: PChar location 'd1';
str: PChar location 'd2'): Boolean; str: PChar location 'd2'): LongBool;
SysCall MOS_DOSBase 846; SysCall MOS_DOSBase 846;
procedure FreeArgs(args: pRDArgs location 'd1'); procedure FreeArgs(args: pRDArgs location 'd1');
@ -606,10 +606,10 @@ SysCall MOS_DOSBase 876;
function AddPart(dirname: PChar location 'd1'; function AddPart(dirname: PChar location 'd1';
filename: PChar location 'd2'; filename: PChar location 'd2';
size : Cardinal location 'd3'): Boolean; size : Cardinal location 'd3'): LongBool;
SysCall MOS_DOSBase 882; SysCall MOS_DOSBase 882;
function StartNotify(notify: PNotifyRequest location 'd1'): Boolean; function StartNotify(notify: PNotifyRequest location 'd1'): LongBool;
SysCall MOS_DOSBase 888; SysCall MOS_DOSBase 888;
procedure EndNotify(notify: PNotifyRequest location 'd1'); procedure EndNotify(notify: PNotifyRequest location 'd1');
@ -618,7 +618,7 @@ SysCall MOS_DOSBase 894;
function SetVar(name : PChar location 'd1'; function SetVar(name : PChar location 'd1';
buffer: PChar location 'd2'; buffer: PChar location 'd2';
size : LongInt location 'd3'; size : LongInt location 'd3';
flags : LongInt location 'd4'): Boolean; flags : LongInt location 'd4'): LongBool;
SysCall MOS_DOSBase 900; SysCall MOS_DOSBase 900;
function GetVar(name : PChar location 'd1'; function GetVar(name : PChar location 'd1';
@ -628,7 +628,7 @@ function GetVar(name : PChar location 'd1';
SysCall MOS_DOSBase 906; SysCall MOS_DOSBase 906;
function DeleteVar(name : PChar location 'd1'; function DeleteVar(name : PChar location 'd1';
flags: Cardinal location 'd2'): Boolean; flags: Cardinal location 'd2'): LongBool;
SysCall MOS_DOSBase 912; SysCall MOS_DOSBase 912;
function FindVar(name : PChar location 'd1'; function FindVar(name : PChar location 'd1';
@ -658,11 +658,11 @@ function ParsePatternNoCase(pat : PChar location 'd1';
SysCall MOS_DOSBase 966; SysCall MOS_DOSBase 966;
function MatchPatternNoCase(pat: PChar location 'd1'; function MatchPatternNoCase(pat: PChar location 'd1';
str: PChar location 'd2'): Boolean; str: PChar location 'd2'): LongBool;
SysCall MOS_DOSBase 972; SysCall MOS_DOSBase 972;
function SameDevice(lock1: LongInt location 'd1'; function SameDevice(lock1: LongInt location 'd1';
lock2: LongInt location 'd2'): Boolean; lock2: LongInt location 'd2'): LongBool;
SysCall MOS_DOSBase 984; SysCall MOS_DOSBase 984;
procedure ExAllEnd(lock : LongInt location 'd1'; procedure ExAllEnd(lock : LongInt location 'd1';
@ -673,7 +673,7 @@ procedure ExAllEnd(lock : LongInt location 'd1';
SysCall MOS_DOSBase 990; SysCall MOS_DOSBase 990;
function SetOwner(name : PChar location 'd1'; function SetOwner(name : PChar location 'd1';
owner_info: LongInt location 'd2'): Boolean; owner_info: LongInt location 'd2'): LongBool;
SysCall MOS_DOSBase 996; SysCall MOS_DOSBase 996;
function AddSegmentTagList(tags: PTagItem location 'a0'): LongInt; function AddSegmentTagList(tags: PTagItem location 'a0'): LongInt;
@ -683,4 +683,3 @@ function FindSegmentTagList(tags: PTagItem location 'a0'): PSegment;
SysCall MOS_DOSBase 1008; SysCall MOS_DOSBase 1008;

7
rtl/morphos/utilf.inc
View File

@ -5,7 +5,7 @@
Copyright (c) 2002 The MorphOS Development Team, All Rights Reserved. Copyright (c) 2002 The MorphOS Development Team, All Rights Reserved.
Free Pascal conversion Free Pascal conversion
Copyright (c) 2004 Karoly Balogh for Genesi S.a.r.l. <www.genesi.lu> Copyright (c) 2004-2014 Karoly Balogh
See the file COPYING.FPC, included in this distribution, See the file COPYING.FPC, included in this distribution,
for details about the copyright. for details about the copyright.
@ -58,7 +58,7 @@ procedure RefreshTagItemClones(clone : PTagItem location 'a0';
SysCall MOS_UtilityBase 084; SysCall MOS_UtilityBase 084;
function TagInArray(tagValue : Cardinal location 'd0'; function TagInArray(tagValue : Cardinal location 'd0';
var tagArray: Cardinal location 'a0'): Boolean; var tagArray: Cardinal location 'a0'): LongBool;
SysCall MOS_UtilityBase 090; SysCall MOS_UtilityBase 090;
function FilterTagItems(tagList : PTagItem location 'a0'; function FilterTagItems(tagList : PTagItem location 'a0';
@ -135,7 +135,7 @@ function UnpackStructureTags(pack : Pointer location 'a0';
SysCall MOS_UtilityBase 216; SysCall MOS_UtilityBase 216;
function AddNamedObject(nameSpace: PNamedObject location 'a0'; function AddNamedObject(nameSpace: PNamedObject location 'a0';
nobject : PNamedObject location 'a1'): Boolean; nobject : PNamedObject location 'a1'): LongBool;
SysCall MOS_UtilityBase 222; SysCall MOS_UtilityBase 222;
function AllocNamedObjectA(name : PChar location 'a0'; function AllocNamedObjectA(name : PChar location 'a0';
@ -166,4 +166,3 @@ SysCall MOS_UtilityBase 264;
function GetUniqueID: Cardinal; function GetUniqueID: Cardinal;
SysCall MOS_UtilityBase 270; SysCall MOS_UtilityBase 270;