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

* basic file io fixed for win64

Browse Source 
git-svn-id: trunk@3241 -
This commit is contained in:
florian 2006-04-17 08:50:59 +00:00
parent 61d86150aa
commit 807fc6e948
3 changed files with 15 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
rtl/win/sysfile.inc
View File

@ -209,7 +209,7 @@ Var
security : TSecurityAttributes;
begin
AllowSlash(p);
{ close first if opened }
{ close first if opened }
if ((flags and $10000)=0) then
begin
case filerec(f).mode of
@ -223,9 +223,9 @@ begin
end;
end;
end;
{ reset file handle }
{ reset file handle }
filerec(f).handle:=UnusedHandle;
{ convert filesharing }
{ convert filesharing }
shflags:=0;
if ((filemode and fmshareExclusive) = fmshareExclusive) then
{ no sharing }
@ -238,7 +238,7 @@ begin
else
if ((filemode and fmshareDenyNone) = fmshareDenyNone) then
shflags := file_Share_Read + file_Share_Write;
{ convert filemode to filerec modes }
{ convert filemode to filerec modes }
case (flags and 3) of
0 : begin
filerec(f).mode:=fminput;
@ -253,13 +253,13 @@ begin
oflags:=longint(GENERIC_WRITE or GENERIC_READ);
end;
end;
{ create it ? }
{ create it ? }
if (flags and $1000)<>0 then
cd:=CREATE_ALWAYS
{ or Append/Open ? }
cd:=CREATE_ALWAYS
{ or Append/Open ? }
else
cd:=OPEN_EXISTING;
{ empty name is special }
{ empty name is special }
if p[0]=#0 then
begin
case FileRec(f).mode of
@ -280,7 +280,8 @@ begin
security.bInheritHandle:=true;
security.lpSecurityDescriptor:=nil;
filerec(f).handle:=CreateFile(p,oflags,shflags,@security,cd,FILE_ATTRIBUTE_NORMAL,0);
{ append mode }
{ append mode }
if ((flags and $100)<>0) and
(filerec(f).handle<>0) and
(filerec(f).handle<>UnusedHandle) then
@ -288,7 +289,8 @@ begin
do_seekend(filerec(f).handle);
filerec(f).mode:=fmoutput; {fool fmappend}
end;
{ get errors }
{ get errors }
{ handle -1 is returned sometimes !! (PM) }
if (filerec(f).handle=0) or (filerec(f).handle=UnusedHandle) then
begin

4
rtl/win/sysos.inc
View File

@ -132,7 +132,7 @@ type
PLPWSTR = ^LPWSTR;
PSecurityAttributes = ^TSecurityAttributes;
TSecurityAttributes = packed record
TSecurityAttributes = record
nLength : DWORD;
lpSecurityDescriptor : Pointer;
bInheritHandle : BOOL;
@ -235,7 +235,7 @@ threadvar
stdcall;external KernelDLL name 'MoveFileA';
function CreateFile(lpFileName:pchar; dwDesiredAccess:DWORD; dwShareMode:DWORD;
lpSecurityAttributes:PSECURITYATTRIBUTES; dwCreationDisposition:DWORD;
dwFlagsAndAttributes:DWORD; hTemplateFile:DWORD):longint;
dwFlagsAndAttributes:DWORD; hTemplateFile:DWORD):THandle;
stdcall;external KernelDLL name 'CreateFileA';
function GetProcAddress(hModule:THandle; lpProcName:pchar):pointer; stdcall; external KernelDLL name 'GetProcAddress';

2
rtl/win64/system.pp
View File

@ -42,7 +42,7 @@ type
const
{ Default filehandles }
UnusedHandle : THandle = -1;
UnusedHandle : THandle = THandle(-1);
StdInputHandle : THandle = 0;
StdOutputHandle : THandle = 0;
StdErrorHandle : THandle = 0;