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

+ Redefined Fileopen so it corresponds to ascdef.inc definition

Browse Source
This commit is contained in:
michael 2003-11-24 23:08:37 +00:00
parent 18c394efa8
commit 0efaf5e5c6
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/win32/system.pp
View File

@ -315,9 +315,9 @@ end;
stdcall;external 'kernel32' name 'SetFilePointer';
function GetFileSize(h:longint;p:pointer) : longint;
stdcall;external 'kernel32' name 'GetFileSize';
function CreateFile(name : pointer;access,sharing : longint;
security : PSecurityAttributes;how,attr,template : longint) : longint;
stdcall;external 'kernel32' name 'CreateFileA';
function CreateFile(lpFileName:pchar; dwDesiredAccess:DWORD; dwShareMode:DWORD;
lpSecurityAttributes:PSECURITYATTRIBUTES; dwCreationDisposition:DWORD;
dwFlagsAndAttributes:DWORD; hTemplateFile:DWORD):longint; external 'kernel32' name 'CreateFileA';
function SetEndOfFile(h : longint) : longbool;
stdcall;external 'kernel32' name 'SetEndOfFile';
function GetFileType(Handle:DWORD):DWord;
@ -1539,7 +1539,10 @@ end.
{
$Log$
Revision 1.48 2003-11-03 09:42:28 marco
Revision 1.49 2003-11-24 23:08:37 michael
+ Redefined Fileopen so it corresponds to ascdef.inc definition
Revision 1.48 2003/11/03 09:42:28 marco
* Peter's Cardinal<->Longint fixes patch
Revision 1.47 2003/10/17 22:15:10 olle