From 68d53805db84ac11e0c3f816067c816722de1038 Mon Sep 17 00:00:00 2001
From: mazen <mazen@freepascal.org>
Date: Wed, 15 Sep 2004 14:03:01 +0000
Subject: [PATCH] + initialize CharWidth with default function

---
 rtl/objpas/freebidi.pp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/rtl/objpas/freebidi.pp b/rtl/objpas/freebidi.pp
index 8a11875796..3ee035476e 100644
--- a/rtl/objpas/freebidi.pp
+++ b/rtl/objpas/freebidi.pp
@@ -140,7 +140,7 @@ var
 begin
   Result := 0;
   Count := Length(Src);
-  while (Count>0) do
+  while (Count > 0) do
   begin
     Result += CharWidth(Src[Count], FontInfoPtr);
     Count -= 1;
@@ -349,5 +349,9 @@ begin
     Result[vp] := Src[v2lSrc[vp]];
 end;
 
+initialization
+
+  CharWidth := @DefaultCharWidth;
+
 end.