From dcb932d3677abf695c4fb1ebef117ea56905619f Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sun, 29 Jan 2006 10:28:37 +0000
Subject: [PATCH] + Patch from Michalis Kamburelis to fix hex2dec behaviour in
 case of error

git-svn-id: trunk@2373 -
---
 rtl/objpas/strutils.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/objpas/strutils.pp b/rtl/objpas/strutils.pp
index adcd644e9e..5a224a41cc 100644
--- a/rtl/objpas/strutils.pp
+++ b/rtl/objpas/strutils.pp
@@ -1156,7 +1156,7 @@ begin
     HexStr:='$'+ S
   else
     HexStr:=S;
-  Result:=StrTointDef(HexStr,0);
+  Result:=StrToInt(HexStr);
 end;
 
 function Dec2Numb(N: Longint; Len, Base: Byte): string;