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

* fixed wrong getmem

Browse Source
This commit is contained in:
peter 2002-01-19 11:54:52 +00:00
parent 7a72f78fe0
commit ebe1ebc5a9
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
fcl/inc/gettext.pp
View File

@ -128,7 +128,7 @@ begin
{ SetLength(s, TranslTable^[i].length); { SetLength(s, TranslTable^[i].length);
AStream.Read(s[1], TranslTable^[i].length); AStream.Read(s[1], TranslTable^[i].length);
TranslStrings^[i] := StrNew(PChar(s));} TranslStrings^[i] := StrNew(PChar(s));}
GetMem(TranslStrings^[i], TranslTable^[i].length); GetMem(TranslStrings^[i], TranslTable^[i].length+1);
AStream.Read(TranslStrings^[i]^, TranslTable^[i].length); AStream.Read(TranslStrings^[i]^, TranslTable^[i].length);
TranslStrings^[i][TranslTable^[i].length] := #0; TranslStrings^[i][TranslTable^[i].length] := #0;
end; end;
@ -253,7 +253,7 @@ begin
if Length(s) > 0 then if Length(s) > 0 then
begin begin
SetResourceStringValue(i, j, s); SetResourceStringValue(i, j, s);
GettextUsed := True; GettextUsed := True;
end; end;
end; end;
end; end;
@ -273,7 +273,7 @@ begin
begin begin
lang := GetEnv('LANG'); lang := GetEnv('LANG');
if Length(lang) = 0 then if Length(lang) = 0 then
exit; // no language defined via environment variables exit; // no language defined via environment variables
end; end;
end; end;
@ -310,7 +310,10 @@ end.
{ {
$Log$ $Log$
Revision 1.4 2001-09-21 12:52:54 sg Revision 1.5 2002-01-19 11:54:52 peter
* fixed wrong getmem
Revision 1.4 2001/09/21 12:52:54 sg
* Evaluates all 3 i18n environment variables: LC_ALL, LC_MESSAGES, LANG * Evaluates all 3 i18n environment variables: LC_ALL, LC_MESSAGES, LANG
* Now takes sublanguage specifiers into account: When the language is set * Now takes sublanguage specifiers into account: When the language is set
to xx_YY, then the catalogue for xx will be loaded first, and then the to xx_YY, then the catalogue for xx will be loaded first, and then the
@ -321,5 +324,5 @@ end.
Revision 1.2 2000/07/13 11:32:59 michael Revision 1.2 2000/07/13 11:32:59 michael
+ removed logs + removed logs
} }