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

* boolean must not be used for DosCalls API parameters

Browse Source 
git-svn-id: trunk@19811 -
This commit is contained in:
Tomas Hajny 2011-12-11 00:46:55 +00:00
parent 12e216ed4e
commit 6b43ce2e13
1 changed files with 68 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

107
rtl/os2/doscalls.pas
View File

@ -1539,11 +1539,11 @@ function DosSetFSInfo (DiskNum, InfoLevel: cardinal; var Buffer: TFSinfo;
{Check if verify mode is enabled.} {Check if verify mode is enabled.}
function DosQueryVerify (var Enabled: longint): cardinal; cdecl; function DosQueryVerify (var Enabled: longint): cardinal; cdecl;
function DosQueryVerify (var Enabled: cardinal): cardinal; cdecl; function DosQueryVerify (var Enabled: cardinal): cardinal; cdecl;
function DosQueryVerify (var Enabled: boolean): cardinal; cdecl; function DosQueryVerify (var Enabled: boolean): cardinal;
{Turn the verify mode on or off.} {Turn the verify mode on or off.}
function DosSetVerify (Enable: cardinal): cardinal; cdecl; function DosSetVerify (Enable: cardinal): cardinal; cdecl;
function DosSetVerify (Enable: boolean): cardinal; cdecl; function DosSetVerify (Enable: boolean): cardinal;
{Change the number of filehandles our program can open. (Default=50). It {Change the number of filehandles our program can open. (Default=50). It
won't hurt if there are files open when you are calling this.} won't hurt if there are files open when you are calling this.}
@ -1892,7 +1892,7 @@ function DosCreateEventSem (Name: PChar;var Handle: THandle;
function DosCreateEventSem (const Name: string; var Handle: THandle; function DosCreateEventSem (const Name: string; var Handle: THandle;
Attr, State: cardinal): cardinal; Attr, State: cardinal): cardinal;
function DosCreateEventSem (Name: PChar;var Handle: THandle; function DosCreateEventSem (Name: PChar;var Handle: THandle;
Attr: cardinal; State: boolean): cardinal; cdecl; Attr: cardinal; State: boolean): cardinal;
function DosCreateEventSem (const Name: string; var Handle: THandle; function DosCreateEventSem (const Name: string; var Handle: THandle;
Attr: cardinal; State: boolean): cardinal; Attr: cardinal; State: boolean): cardinal;
@ -1948,7 +1948,7 @@ function DosQueryEventSem (Handle: THandle; var Posted: cardinal): cardinal;
Attr = One or more of the smXXXX constants. Attr = One or more of the smXXXX constants.
State = Initial state: (0/false=Not owned, 1/true=Owned.)} State = Initial state: (0/false=Not owned, 1/true=Owned.)}
function DosCreateMutExSem (Name: PChar; var Handle: THandle; function DosCreateMutExSem (Name: PChar; var Handle: THandle;
Attr: cardinal; State: boolean): cardinal; cdecl; Attr: cardinal; State: boolean): cardinal;
function DosCreateMutExSem (const Name: string; var Handle: THandle; function DosCreateMutExSem (const Name: string; var Handle: THandle;
Attr: cardinal; State: boolean): cardinal; Attr: cardinal; State: boolean): cardinal;
function DosCreateMutExSem (Name: PChar; var Handle: THandle; function DosCreateMutExSem (Name: PChar; var Handle: THandle;
@ -2513,7 +2513,7 @@ function DosSetSignalExceptionFocus(Enable:longint;var Times:longint):cardinal;
function DosSetSignalExceptionFocus (Enable: cardinal; function DosSetSignalExceptionFocus (Enable: cardinal;
var Times: cardinal): cardinal; cdecl; var Times: cardinal): cardinal; cdecl;
function DosSetSignalExceptionFocus (Enable: boolean; function DosSetSignalExceptionFocus (Enable: boolean;
var Times: cardinal): cardinal; cdecl; var Times: cardinal): cardinal;
{Tell OS/2 that if an exception occurs, it must queue it up, until a {Tell OS/2 that if an exception occurs, it must queue it up, until a
DosExitMustComplete follows. Urgent exceptions still occur. The only DosExitMustComplete follows. Urgent exceptions still occur. The only
@ -2612,7 +2612,7 @@ function DosPeekQueue(Handle:longint;var ReqBuffer:TRequestData;
function DosPeekQueue (Handle: THandle; var ReqBuffer: TRequestData; function DosPeekQueue (Handle: THandle; var ReqBuffer: TRequestData;
var DataLen: cardinal; var DataPtr: pointer; var DataLen: cardinal; var DataPtr: pointer;
var Element: cardinal; Wait: boolean; var Element: cardinal; Wait: boolean;
var Priority: byte; ASem: THandle): cardinal; cdecl; var Priority: byte; ASem: THandle): cardinal;
function DosPeekQueue (Handle: THandle; var ReqBuffer: TRequestData; function DosPeekQueue (Handle: THandle; var ReqBuffer: TRequestData;
var DataLen: cardinal; var DataPtr: pointer; var DataLen: cardinal; var DataPtr: pointer;
var Element: cardinal; Wait: cardinal; var Element: cardinal; Wait: cardinal;
@ -2650,7 +2650,7 @@ function DosReadQueue (Handle: THandle; var ReqBuffer: TRequestData;
function DosReadQueue (Handle: THandle; var ReqBuffer: TRequestData; function DosReadQueue (Handle: THandle; var ReqBuffer: TRequestData;
var DataLen: cardinal; var DataPtr: pointer; var DataLen: cardinal; var DataPtr: pointer;
Element: cardinal; Wait: boolean; var Priority: byte; Element: cardinal; Wait: boolean; var Priority: byte;
ASem: THandle): cardinal; cdecl; ASem: THandle): cardinal;
{Write a data record to a queue. {Write a data record to a queue.
Handle = Handle of queue to write to. Handle = Handle of queue to write to.
@ -4705,15 +4705,24 @@ external 'DOSCALLS' index 225;
function DosQueryVerify (var Enabled: cardinal): cardinal; cdecl; function DosQueryVerify (var Enabled: cardinal): cardinal; cdecl;
external 'DOSCALLS' index 225; external 'DOSCALLS' index 225;
function DosQueryVerify (var Enabled: boolean): cardinal; cdecl; function DosQueryVerify (var Enabled: boolean): cardinal;
external 'DOSCALLS' index 225; var
En: cardinal;
function DosSetVerify (Enable: boolean): cardinal; cdecl; RC: cardinal;
external 'DOSCALLS' index 210; begin
RC := DosQueryVerify (En);
Enabled := boolean (En);
DosQueryVerify := RC;
end;
function DosSetVerify (Enable: cardinal): cardinal; cdecl; function DosSetVerify (Enable: cardinal): cardinal; cdecl;
external 'DOSCALLS' index 210; external 'DOSCALLS' index 210;
function DosSetVerify (Enable: boolean): cardinal;
begin
DosSetVerify := DosSetVerify (cardinal (Enable));
end;
function DosSetMaxFH (Count: cardinal): cardinal; cdecl; function DosSetMaxFH (Count: cardinal): cardinal; cdecl;
external 'DOSCALLS' index 209; external 'DOSCALLS' index 209;
@ -4812,8 +4821,11 @@ function DosCreateEventSem (Name: PChar; var Handle: THandle;
external 'DOSCALLS' index 324; external 'DOSCALLS' index 324;
function DosCreateEventSem (Name: PChar; var Handle: THandle; function DosCreateEventSem (Name: PChar; var Handle: THandle;
Attr: cardinal; State: boolean): cardinal; cdecl; Attr: cardinal; State: boolean): cardinal;
external 'DOSCALLS' index 324; begin
DosCreateEventSem :=
DosCreateEventSem (Name, Handle, Attr, cardinal (State));
end;
function DosCreateEventSem (const Name: string; var Handle: THandle; function DosCreateEventSem (const Name: string; var Handle: THandle;
Attr: cardinal; State: boolean): cardinal; Attr: cardinal; State: boolean): cardinal;
@ -4821,20 +4833,22 @@ function DosCreateEventSem (const Name: string; var Handle: THandle;
var T:array[0..255] of char; var T:array[0..255] of char;
begin begin
if Name<>'' then if Name<>'' then
begin begin
StrPCopy(@T,Name); StrPCopy(@T,Name);
DosCreateEventSem:=DosCreateEventSem(@T,Handle,Attr,State); DosCreateEventSem :=
end DosCreateEventSem (@T, Handle, Attr, cardinal (State));
else end
DosCreateEventSem:=DosCreateEventSem(nil,Handle,Attr,State); else
DosCreateEventSem :=
DosCreateEventSem (nil, Handle, Attr, cardinal (State));
end; end;
function DosCreateEventSem (const Name: string; var Handle: THandle; function DosCreateEventSem (const Name: string; var Handle: THandle;
Attr, State: cardinal): cardinal; Attr, State: cardinal): cardinal;
begin begin
DosCreateEventSem:=DosCreateEventSem(Name,Handle,Attr,boolean(State)); DosCreateEventSem := DosCreateEventSem (Name, Handle, Attr, boolean (State));
end; end;
function DosOpenEventSem (Name: PChar; var Handle: THandle): cardinal; cdecl; function DosOpenEventSem (Name: PChar; var Handle: THandle): cardinal; cdecl;
@ -4873,12 +4887,15 @@ function DosQueryEventSem (Handle: THandle; var Posted: cardinal): cardinal;
external 'DOSCALLS' index 330; external 'DOSCALLS' index 330;
function DosCreateMutExSem (Name: PChar; var Handle: THandle; function DosCreateMutExSem (Name: PChar; var Handle: THandle;
Attr: cardinal; State:boolean): cardinal; cdecl; Attr, State: cardinal): cardinal; cdecl;
external 'DOSCALLS' index 331; external 'DOSCALLS' index 331;
function DosCreateMutExSem (Name: PChar; var Handle: THandle; function DosCreateMutExSem (Name: PChar; var Handle: THandle;
Attr, State: cardinal): cardinal; cdecl; Attr: cardinal; State: boolean): cardinal;
external 'DOSCALLS' index 331; begin
DosCreateMutExSem :=
DosCreateMutExSem (Name, Handle, Attr, cardinal (State));
end;
function DosCreateMutExSem (const Name: string; var Handle: THandle; function DosCreateMutExSem (const Name: string; var Handle: THandle;
Attr: cardinal; State: boolean): cardinal; Attr: cardinal; State: boolean): cardinal;
@ -4886,20 +4903,23 @@ function DosCreateMutExSem (const Name: string; var Handle: THandle;
var T:array[0..255] of char; var T:array[0..255] of char;
begin begin
if Name<>'' then if Name<>'' then
begin begin
StrPCopy(@T,Name); StrPCopy(@T,Name);
DosCreateMutExSem:=DosCreateMutExSem(@T,Handle,Attr,State); DosCreateMutExSem :=
end DosCreateMutExSem (@T, Handle, Attr, cardinal (State));
else end
DosCreateMutExSem:=DosCreateMutExSem(nil,Handle,Attr,State); else
DosCreateMutExSem :=
DosCreateMutExSem (nil, Handle, Attr, cardinal (State));
end; end;
function DosCreateMutExSem (const Name: string; var Handle: THandle; function DosCreateMutExSem (const Name: string; var Handle: THandle;
Attr, State: cardinal): cardinal; Attr, State: cardinal): cardinal;
begin begin
DosCreateMutExSem:=DosCreateMutExSem(Name,Handle,Attr,boolean(State)); DosCreateMutExSem :=
DosCreateMutExSem (Name, Handle, Attr, boolean (State));
end; end;
function DosOpenMutExSem (Name: PChar; var Handle: THandle): cardinal; cdecl; function DosOpenMutExSem (Name: PChar; var Handle: THandle): cardinal; cdecl;
@ -5218,8 +5238,11 @@ function DosSetSignalExceptionFocus (Enable: cardinal;
external 'DOSCALLS' index 378; external 'DOSCALLS' index 378;
function DosSetSignalExceptionFocus (Enable: boolean; function DosSetSignalExceptionFocus (Enable: boolean;
var Times: cardinal): cardinal; cdecl; var Times: cardinal): cardinal;
external 'DOSCALLS' index 378; begin
DosSetSignalExceptionFocus :=
DosSetSignalExceptionFocus (cardinal (Enable), Times);
end;
function DosEnterMustComplete(var Nesting:longint):cardinal; cdecl; function DosEnterMustComplete(var Nesting:longint):cardinal; cdecl;
external 'DOSCALLS' index 380; external 'DOSCALLS' index 380;
@ -5296,8 +5319,11 @@ external 'QUECALLS' index 13;
function DosPeekQueue (Handle: THandle; var ReqBuffer: TRequestData; function DosPeekQueue (Handle: THandle; var ReqBuffer: TRequestData;
var DataLen: cardinal; var DataPtr: pointer; var DataLen: cardinal; var DataPtr: pointer;
var Element: cardinal; Wait: boolean; var Element: cardinal; Wait: boolean;
var Priority: byte; ASem: THandle): cardinal; cdecl; var Priority: byte; ASem: THandle): cardinal;
external 'QUECALLS' index 13; begin
DosPeekQueue := DosPeekQueue (Handle, ReqBuffer, DataLen, DataPtr, Element,
cardinal (Wait), Priority, ASem);
end;
function DosPurgeQueue (Handle: THandle): cardinal; cdecl; function DosPurgeQueue (Handle: THandle): cardinal; cdecl;
external 'QUECALLS' index 10; external 'QUECALLS' index 10;
@ -5323,8 +5349,11 @@ external 'QUECALLS' index 9;
function DosReadQueue (Handle: THandle; var ReqBuffer: TRequestData; function DosReadQueue (Handle: THandle; var ReqBuffer: TRequestData;
var DataLen: cardinal; var DataPtr: pointer; var DataLen: cardinal; var DataPtr: pointer;
Element: cardinal; Wait: boolean; var Priority: byte; Element: cardinal; Wait: boolean; var Priority: byte;
ASem: THandle): cardinal; cdecl; ASem: THandle): cardinal;
external 'QUECALLS' index 9; begin
DosReadQueue := DosReadQueue (Handle, ReqBuffer, DataLen, DataPtr, Element,
cardinal (Wait), Priority, ASem);
end;
function DosWriteQueue (Handle: THandle; Request, DataLen: cardinal; function DosWriteQueue (Handle: THandle; Request, DataLen: cardinal;
var DataBuf; Priority: cardinal): cardinal; cdecl; var DataBuf; Priority: cardinal): cardinal; cdecl;