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

* firstoff->widefirstoff typo correction

Browse Source 
git-svn-id: trunk@3629 -
This commit is contained in:
marco 2006-05-22 14:26:40 +00:00
parent cc7cea1a5d
commit 96ad9ad3cf
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/wstrings.inc
View File

@ -710,7 +710,7 @@ begin
{ Force nil termination in case it gets shorter }
PWord(Pointer(S)+l*sizeof(WideChar))^:=0;
{$ifndef FPC_WINLIKEWIDESTRING}
PWideRec(Pointer(S)-FirstOff)^.Len:=l*sizeof(WideChar);
PWideRec(Pointer(S)-WideFirstOff)^.Len:=l*sizeof(WideChar);
{$endif FPC_WINLIKEWIDESTRING}
end
else