paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-25 00:40:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

* widestr->shortstr fixed

Browse Source 
* wstrings to system unit dependencies added
This commit is contained in:
florian 2005-04-03 08:46:02 +00:00
parent 171d3c54c1
commit 375d7711b8
2 changed files with 16 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/makefile.inc
View File

@ -6,7 +6,7 @@
SYSNAMES=systemh heaph mathh filerec textrec system real2str sstrings innr \
file typefile text rtti heap astrings objpas objpash except int64 \
generic dynarr varianth variant
generic dynarr varianth variant wstrings
SYSINCNAMES=$(addsuffix .inc,$(SYSNAMES))

14
rtl/inc/wstrings.inc
View File

@ -229,11 +229,9 @@ begin
fpc_WideStr_To_ShortStr:=''
else
begin
//Size:=Length(S2);
//If Size>high_of_res then
// Size:=high_of_res;
//widestringmanager.Wide2AnsiMoveProc(PWideChar(S2),PChar(@fpc_WideStr_To_ShortStr[1]),Size);
//byte(fpc_WideStr_To_ShortStr[0]):=byte(Size);
Size:=Length(S2);
If Size>high_of_res then
Size:=high_of_res;
widestringmanager.Wide2AnsiMoveProc(PWideChar(S2),temp,Size);
fpc_WideStr_To_ShortStr:=temp;
end;
@ -1479,7 +1477,11 @@ procedure initwidestringmanager;
{
$Log$
Revision 1.56 2005-03-22 10:10:54 florian
Revision 1.57 2005-04-03 08:46:02 florian
* widestr->shortstr fixed
* wstrings to system unit dependencies added
Revision 1.56 2005/03/22 10:10:54 florian
* shortstr_to_widestring fixed
Revision 1.55 2005/03/14 21:32:04 florian