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

Fixes gettext crash under Windows CE and adds test case for it.

Browse Source 
git-svn-id: trunk@12290 -
This commit is contained in:
sekelsenmat 2008-12-02 16:01:25 +00:00
parent 19a73853bd
commit 15e597682e
3 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -7131,6 +7131,7 @@ tests/tbs/tb0554.pp svneol=native#text/plain
tests/tbs/tb0555.pp svneol=native#text/plain
tests/tbs/tb0556.pp svneol=native#text/plain
tests/tbs/tb0557.pp svneol=native#text/plain
tests/tbs/tb0558.pp svneol=native#text/plain
tests/tbs/tb205.pp svneol=native#text/plain
tests/tbs/ub0060.pp svneol=native#text/plain
tests/tbs/ub0069.pp svneol=native#text/plain

2
packages/fcl-base/src/gettext.pp
View File

@ -234,7 +234,7 @@ end;
{$ifdef windows}
procedure GetLanguageIDs(var Lang, FallbackLang: string);
var
Buffer: array[1..4] of char;
Buffer: array[1..4] of {$ifdef Wince}WideChar{$else}char{$endif};
Country: string;
UserLCID: LCID;
begin

10
tests/tbs/tb0558.pp Normal file
View File

@ -0,0 +1,10 @@
{ gettext was crashing under Windows CE. Not crashing should be considered a success }
uses gettext;
var
LangDefault, LangFallback: ansistring;
begin
GetLanguageIDs(LangDefault, LangFallback);
end.