From dcb7c549f9865bd25082871baed1e0fe60c07a6c Mon Sep 17 00:00:00 2001
From: dmitry <dmitry@lazarus-ide.org>
Date: Mon, 23 Aug 2010 07:35:36 +0000
Subject: [PATCH] carbon: code cleanup

git-svn-id: trunk@27170 -
---
 lcl/interfaces/carbon/carbongdiobjects.pp | 2 +-
 lcl/interfaces/carbon/carbonproc.pp       | 1 -
 2 files changed, 1 insertion(+), 2 deletions(-)

diff --git a/lcl/interfaces/carbon/carbongdiobjects.pp b/lcl/interfaces/carbon/carbongdiobjects.pp
index 86afcc366a..beaaf4a7a3 100644
--- a/lcl/interfaces/carbon/carbongdiobjects.pp
+++ b/lcl/interfaces/carbon/carbongdiobjects.pp
@@ -1222,7 +1222,7 @@ begin
     else H := ALogFont.lfHeight;
 
   Attr := kATSUSizeTag;
-  M := Abs(ALogFont.lfHeight) shl 16;
+  M := Abs(H) shl 16;
   A := @M;
   S := SizeOf(M);
   OSError(ATSUSetAttributes(Result, 1, @Attr, @S, @A), Self, SName,
diff --git a/lcl/interfaces/carbon/carbonproc.pp b/lcl/interfaces/carbon/carbonproc.pp
index 2500b676bd..c482ae071e 100644
--- a/lcl/interfaces/carbon/carbonproc.pp
+++ b/lcl/interfaces/carbon/carbonproc.pp
@@ -526,7 +526,6 @@ function CarbonFontIDToFontName(ID: ATSUFontID): String;
 var
   NameLength: LongWord;
   FontName: UTF8String;
-  res: Integer;
 const
   SName = 'CarbonFontIDToFontName';
 begin