paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-01 14:29:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed longbool returns for api calls

Browse Source
This commit is contained in:
peter 1998-11-16 15:48:53 +00:00
parent 78546bab43
commit b0abdd9de6
2 changed files with 19 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
rtl/win32/dos.pp
View File

@ -242,7 +242,7 @@ end;
external 'kernel32' name 'GetVersion';
procedure GetLocalTime(var t : TSystemTime);
external 'kernel32' name 'GetLocalTime';
function SetLocalTime(const t : TSystemTime) : boolean;
function SetLocalTime(const t : TSystemTime) : longbool;
external 'kernel32' name 'SetLocalTime';
function dosversion : word;
@ -335,9 +335,9 @@ End;
lpProcessAttributes, lpThreadAttributes: PSecurityAttributes;
bInheritHandles: BOOL; dwCreationFlags: DWORD; lpEnvironment: Pointer;
lpCurrentDirectory: PChar; const lpStartupInfo: TStartupInfo;
var lpProcessInformation: TProcessInformation): boolean;
var lpProcessInformation: TProcessInformation): longbool;
external 'kernel32' name 'CreateProcessA';
function getExitCodeProcess(h:THandle;var code:longint):boolean;
function getExitCodeProcess(h:THandle;var code:longint):longbool;
external 'kernel32' name 'GetExitCodeProcess';
function WaitForSingleObject(hHandle: THandle; dwMilliseconds: DWORD): DWORD;
external 'kernel32' name 'WaitForSingleObject';
@ -416,7 +416,7 @@ end;
******************************************************************************}
function GetDiskFreeSpace(drive:pchar;var sector_cluster,bytes_sector,
freeclusters,totalclusters:longint):boolean;
freeclusters,totalclusters:longint):longbool;
external 'kernel32' name 'GetDiskFreeSpaceA';
function diskfree(drive : byte) : longint;
@ -477,9 +477,9 @@ end;
function FindFirstFile (lpFileName: PChar; var lpFindFileData: TWIN32FindData): THandle;
external 'kernel32' name 'FindFirstFileA';
function FindNextFile (hFindFile: THandle; var lpFindFileData: TWIN32FindData): Boolean;
function FindNextFile (hFindFile: THandle; var lpFindFileData: TWIN32FindData): LongBool;
external 'kernel32' name 'FindNextFileA';
function FindCloseFile (hFindFile: THandle): Boolean;
function FindCloseFile (hFindFile: THandle): LongBool;
external 'kernel32' name 'FindClose';
Procedure StringToPchar (Var S : String);
@ -492,8 +492,6 @@ end;
procedure FindMatch(var f:searchrec);
Var
TheAttr : Longint;
begin
{ Find file with correct attribute }
While (F.W32FindData.dwFileAttributes and F.ExcludeAttr)<>0 do
@ -562,11 +560,11 @@ end;
--- File ---
******************************************************************************}
function GetFileTime(h : longint;creation,lastaccess,lastwrite : PFileTime) : boolean;
function GetFileTime(h : longint;creation,lastaccess,lastwrite : PFileTime) : longbool;
external 'kernel32' name 'GetFileTime';
function SetFileTime(h : longint;creation,lastaccess,lastwrite : PFileTime) : boolean;
function SetFileTime(h : longint;creation,lastaccess,lastwrite : PFileTime) : longbool;
external 'kernel32' name 'SetFileTime';
function SetFileAttributes(lpFileName : pchar;dwFileAttributes : longint) : boolean;
function SetFileAttributes(lpFileName : pchar;dwFileAttributes : longint) : longbool;
external 'kernel32' name 'SetFileAttributesA';
function GetFileAttributes(lpFileName : pchar) : longint;
external 'kernel32' name 'GetFileAttributesA';
@ -788,7 +786,7 @@ end;
function GetEnvironmentStrings : pchar;
external 'kernel32' name 'GetEnvironmentStringsA';
function FreeEnvironmentStrings(p : pchar) : boolean;
function FreeEnvironmentStrings(p : pchar) : longbool;
external 'kernel32' name 'FreeEnvironmentStringsA';
function envcount : longint;
@ -881,7 +879,10 @@ End;
end.
{
$Log$
Revision 1.12 1998-10-27 10:55:55 michael
Revision 1.13 1998-11-16 15:48:53 peter
* fixed longbool returns for api calls
Revision 1.12 1998/10/27 10:55:55 michael
* environment vars are case insensitive under WinNT/DOS
Revision 1.11 1998/10/22 15:32:38 pierre

7
rtl/win32/syswin32.pp
View File

@ -289,7 +289,7 @@ end;
function CreateFile(name : pointer;access,sharing : longint;
security : pointer;how,attr,template : longint) : longint;
external 'kernel32' name 'CreateFileA';
function SetEndOfFile(h : longint) : boolean;
function SetEndOfFile(h : longint) : longbool;
external 'kernel32' name 'SetEndOfFile';
function GetFileType(Handle:DWORD):DWord;
external 'kernel32' name 'GetFileType';
@ -757,7 +757,10 @@ end.
{
$Log$
Revision 1.23 1998-11-16 14:14:58 pierre
Revision 1.24 1998-11-16 15:48:54 peter
* fixed longbool returns for api calls
Revision 1.23 1998/11/16 14:14:58 pierre
* changed getdir(byte,string) to getdir(byte,shortstring)
Revision 1.22 1998/10/27 15:07:16 florian