From fee6627a8a1894fd8188855b2cfd3f7f8b9f2a81 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sun, 26 Jun 2005 14:53:09 +0000
Subject: [PATCH] + Fixed typo, patch by Colin Western

git-svn-id: trunk@507 -
---
 rtl/inc/wstrings.inc | 1 -
 1 file changed, 1 deletion(-)

diff --git a/rtl/inc/wstrings.inc b/rtl/inc/wstrings.inc
index e44c39dae1..39c1833675 100644
--- a/rtl/inc/wstrings.inc
+++ b/rtl/inc/wstrings.inc
@@ -633,7 +633,6 @@ begin
           Dec(Pointer(S),WideFirstOff);
           if L*sizeof(WideChar)+WideRecLen>MemSize(Pointer(S)) then
               reallocmem(pointer(S), L*sizeof(WideChar)+WideRecLen);
-          end;
           Inc(Pointer(S), WideFirstOff);
         end
 {$endif MSWINDOWS}