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

* converted fileopen/filecreate interface to RawByteString for

Browse Source 
msdos/embedded, but do not perform any code page conversions
    (size limits prevent widestring manager on msdos, and the
     embedded routines are empty)

git-svn-id: branches/cpstrrtl@25076 -
This commit is contained in:
Jonas Maebe 2013-07-09 19:01:36 +00:00
parent 93bd1dd12a
commit 60365489e2
2 changed files with 15 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/embedded/sysutils.pp
View File

@ -28,13 +28,16 @@ implementation
uses
sysconst,heapmgr;
{ used OS file system APIs use ansistring }
{$define SYSUTILS_HAS_ANSISTR_FILEUTIL_IMPL}
{ Include platform independent implementation part }
{$i sysutils.inc}
{****************************************************************************
File Functions
****************************************************************************}
function FileOpen(const FileName: string; Mode: Integer): LongInt;
function FileOpen(const FileName: RawByteString; Mode: Integer): LongInt;
begin
result := -1;
end;
@ -52,19 +55,19 @@ begin
end;
function FileCreate(const FileName: string) : LongInt;
function FileCreate(const FileName: RawByteString) : LongInt;
begin
result := -1;
end;
function FileCreate(const FileName: string; Rights: integer): LongInt;
function FileCreate(const FileName: RawByteString; Rights: integer): LongInt;
begin
result := -1;
end;
function FileCreate(const FileName: string; ShareMode: integer; rights : integer): LongInt;
function FileCreate(const FileName: RawByteString; ShareMode: integer; rights : integer): LongInt;
begin
result := -1;
end;

13
rtl/msdos/sysutils.pp
View File

@ -40,6 +40,9 @@ implementation
{$DEFINE FPC_FEXPAND_UNC} (* UNC paths are supported *)
{$DEFINE FPC_FEXPAND_DRIVES} (* Full paths begin with drive specification *)
{ used OS file system APIs use ansistring }
{$define SYSUTILS_HAS_ANSISTR_FILEUTIL_IMPL}
{ Include platform independent implementation part }
{$i sysutils.inc}
@ -78,7 +81,7 @@ end ;}
{ Native OpenFile function.
if return value <> 0 call failed. }
function OpenFile(const FileName: string; var Handle: THandle; Mode, Action: word): longint;
function OpenFile(const FileName: RawByteString; var Handle: THandle; Mode, Action: word): longint;
var
Regs: registers;
begin
@ -110,7 +113,7 @@ begin
end;
Function FileOpen (Const FileName : string; Mode : Integer) : THandle;
Function FileOpen (Const FileName : RawByteString; Mode : Integer) : THandle;
var
e: integer;
Begin
@ -120,7 +123,7 @@ Begin
end;
Function FileCreate (Const FileName : String) : THandle;
Function FileCreate (Const FileName : RawByteString) : THandle;
var
e: integer;
begin
@ -130,13 +133,13 @@ begin
end;
Function FileCreate (Const FileName : String; ShareMode:longint; Rights : longint) : THandle;
Function FileCreate (Const FileName : RawByteString; ShareMode:longint; Rights : longint) : THandle;
begin
FileCreate:=FileCreate(FileName);
end;
Function FileCreate (Const FileName : String; Rights:longint) : THandle;
Function FileCreate (Const FileName : RawByteString; Rights:longint) : THandle;
begin
FileCreate:=FileCreate(FileName);
end;