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

- reverted merge of r32824: that commit contained new functionality,

Browse Source 
was buggy and broke JVM building

git-svn-id: branches/fixes_3_0@33914 -
This commit is contained in:
Jonas Maebe 2016-06-05 12:18:06 +00:00
parent 04dc706dbe
commit 1570437996
2 changed files with 0 additions and 67 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/inc/ustringh.inc
View File

@ -133,12 +133,6 @@ function Utf8ToUnicode(Dest: PUnicodeChar; MaxDestChars: SizeUInt; Source: PChar
function UTF8Encode(const s : RawByteString) : RawByteString; inline;
function UTF8Encode(const s : UnicodeString) : RawByteString;
function UTF8Decode(const s : RawByteString): UnicodeString;
function UTF8ToString(const s : UTF8String): UnicodeString;inline;
function UTF8ToString(const s : RawByteString): UnicodeString;inline;
function UTF8ToString(const S: ShortString): unicodestring;
function UTF8ToString(const S: PAnsiChar): unicodestring;
function UTF8ToString(const S: array of AnsiChar): unicodestring;
function UTF8ToString(const S: array of Byte): unicodestring;
function AnsiToUtf8(const s : RawByteString): RawByteString;{$ifdef SYSTEMINLINE}inline;{$endif}
function Utf8ToAnsi(const s : RawByteString) : RawByteString;{$ifdef SYSTEMINLINE}inline;{$endif}
function UnicodeStringToUCS4String(const s : UnicodeString) : UCS4String;

61
rtl/inc/ustrings.inc
View File

@ -2357,64 +2357,3 @@ Begin
Result:=Str;
SetCodePage(Result,DefaultFileSystemCodePage,True);
End;
function UTF8ToString(const S: UTF8String): UnicodeString; inline;
begin
Result := UTF8Decode(S);
end;
function UTF8ToString(const S: RawByteString): UnicodeString; inline;
Var
UTF8 : UTF8String;
begin
UTF8:=S;
Result := UTF8Decode(UTF8);
end;
function UTF8ToString(const S: ShortString): UnicodeString;
Var
UTF8 : UTF8String;
begin
UTF8:=S;
Result := UTF8Decode(UTF8);
end;
function UTF8ToString(const S: PAnsiChar): UnicodeString;
var
UTF: UTF8String;
Count: Integer;
begin
Count := StrLen(S);
SetLength(UTF, Count);
if Count > 0 then
Move(S^, UTF[1], Count);
Result := UTF8ToString(UTF);
end;
function UTF8ToString(const S: array of AnsiChar): UnicodeString;
var
UTF: UTF8String;
Count: Integer;
begin
Count := Length(S);
SetLength(UTF, Count);
if Count > 0 then
Move(S[Low(S)], UTF[1], Count);
Result := UTF8ToString(UTF);
end;
function UTF8ToString(const S: array of Byte): UnicodeString;
var
UTF: UTF8String;
Count: Integer;
begin
Count := Length(S);
SetLength(UTF, Count);
if Count > 0 then
Move(S[Low(S)], UTF[1], Count);
Result := UTF8ToString(UTF);
end;