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

* fixed crash with empty codepage

Browse Source 
git-svn-id: trunk@234 -
This commit is contained in:
peter 2005-06-07 12:52:01 +00:00
parent 4766e62dd2
commit edffc31139
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/charset.pas
View File

@ -176,11 +176,11 @@ unit charset;
hp : punicodemap;
const
mapcache : string = '';
mapcachep : punicodemap = nil;
begin
if (mapcache=s) and (mapcachep^.cpname=s) then
if assigned(mapcachep) and
(mapcachep^.cpname=s) then
begin
getmap:=mapcachep;
exit;
@ -191,7 +191,6 @@ unit charset;
if hp^.cpname=s then
begin
getmap:=hp;
mapcache:=s;
mapcachep:=hp;
exit;
end;