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

- RTL: removed 'unimplementedwidestring' procedure and use 'unimplementedunicodestring' instead. Reduces bloat. Furthermore, a separate message about missing widestring manager is misleading, because there is only one wide/unicodestring manager that can be set.

Browse Source 
git-svn-id: trunk@27233 -
This commit is contained in:
sergei 2014-03-23 02:16:03 +00:00
parent 8ad5e6fb26
commit 531c2d79e0
1 changed files with 4 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
rtl/inc/wstrings.inc
View File

@ -942,39 +942,24 @@ function UTF8Encode(const s : WideString) : RawByteString;
end;
end;
const
SNoWidestrings = 'This binary has no widestrings support compiled in.';
SRecompileWithWidestrings = 'Recompile the application with a widestrings-manager in the program uses clause.';
procedure unimplementedwidestring;
begin
{$ifdef FPC_HAS_FEATURE_CONSOLEIO}
If IsConsole then
begin
Writeln(StdErr,SNoWidestrings);
Writeln(StdErr,SRecompileWithWidestrings);
end;
{$endif FPC_HAS_FEATURE_CONSOLEIO}
HandleErrorAddrFrameInd(233,get_pc_addr,get_frame);
end;
procedure unimplementedunicodestring; forward;
{$warnings off}
function GenericWideCase(const s : WideString) : WideString;
begin
unimplementedwidestring;
unimplementedunicodestring;
end;
function CompareWideString(const s1, s2 : WideString) : PtrInt;
begin
unimplementedwidestring;
unimplementedunicodestring;
end;
function CompareTextWideString(const s1, s2 : WideString): PtrInt;
begin
unimplementedwidestring;
unimplementedunicodestring;
end;
{$warnings on}