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

* some cleanup

Browse Source 
git-svn-id: trunk@43765 -
This commit is contained in:
florian 2019-12-23 21:52:06 +00:00
parent 4de6b3e6b9
commit cb44d7d4e2
2 changed files with 2 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/ccharset.pas
View File

@ -25,7 +25,6 @@ unit ccharset;
tunicodestring = ^tunicodechar;
tcsconvert = class
// !!!!!!1constructor create;
end;
tunicodecharmappingflag = (umf_noinfo,umf_leadbyte,umf_undefined,
@ -205,7 +204,7 @@ unit ccharset;
hp:=hp^.next;
end;
getmap:=nil;
end;////////
end;
function getmap(cp : word) : punicodemap;

8
compiler/widestr.pas
View File

@ -28,7 +28,7 @@ unit widestr;
interface
uses
{$if FPC_FULLVERSION<20700}ccharset{$else}charset{$endif},globtype;
charset,globtype;
type
@ -69,7 +69,6 @@ unit widestr;
implementation
uses
{$if FPC_FULLVERSION>20700}
{ use only small codepage maps, others will be }
{ loaded on demand from -FM path }
@ -81,7 +80,6 @@ unit widestr;
cp8859_1,cp850,cp437,cp1252,cp646,
cp874, cp856,cp852,cp8859_2,
cp1250,cp1254,cp1255,cp1256,cp1257,cp1258,
{$endif}
globals,cutils;
@ -292,19 +290,15 @@ unit widestr;
function cpavailable(const s: string): boolean;
begin
result:=mappingavailable(lower(s));
{$if FPC_FULLVERSION>20700}
if not result then
result:=(unicodepath<>'')and(registerbinarymapping(unicodepath+'charset',lower(s)));
{$ifend}
end;
function cpavailable(cp: word): boolean;
begin
result:=mappingavailable(cp);
{$if FPC_FULLVERSION>20700}
if not result then
result:=(unicodepath<>'')and(registerbinarymapping(unicodepath+'charset','cp'+tostr(cp)));
{$ifend}
end;
procedure changecodepage(