8 files changed, 2 insertions, 23 deletions
diff --git a/src/base/UFont.pas b/src/base/UFont.pas
index 0249b665..99fae037 100644
--- a/src/base/UFont.pas
+++ b/src/base/UFont.pas
@@ -844,12 +844,6 @@ const
       0,            0, 1, 0,
       0,            0, 0, 1
   );
-  cShearMatrixInv: array[0..15] of GLfloat = (
-      1,             0, 0, 0,
-      -cShearFactor, 1, 0, 0,
-      0,             0, 1, 0,
-      0,             0, 0, 1
-  );
 
 var
   LibraryInst: FT_Library;
@@ -2227,7 +2221,6 @@ var
   OuterNumPoints, InnerNumPoints, GlyphNumPoints: FT_UInt;
   OuterNumContours, InnerNumContours, GlyphNumContours: FT_UInt;
   OuterBorder, InnerBorder: FT_StrokerBorder;
-  OutlineFlags: FT_Int;
   UseStencil: boolean;
 begin
   // It is possible to extrude the borders of a glyph with FT_Glyph_Stroke
@@ -2311,9 +2304,6 @@ begin
   GlyphNumPoints := InnerNumPoints + OuterNumPoints;
   GlyphNumContours := InnerNumContours + OuterNumContours;
 
-  // save flags before deletion (TODO: set them on the resulting outline)
-  OutlineFlags := Outline.flags;
-
   // resize glyph outline to hold inner and outer border
   FT_Outline_Done(Glyph.Library_, Outline);
   if (FT_Outline_New(Glyph.Library_, GlyphNumPoints, GlyphNumContours, Outline) <> 0) then
diff --git a/src/base/UImage.pas b/src/base/UImage.pas
index 1866316e..55ccb619 100644
--- a/src/base/UImage.pas
+++ b/src/base/UImage.pas
@@ -782,7 +782,6 @@ end;
 function LoadImage(const Filename: IPath): PSDL_Surface;
 var
   FilenameCaseAdj: IPath;
-  FileStream: TBinaryFileStream;
   SDLStream: PSDL_RWops;
 begin
   Result := nil;
diff --git a/src/base/ULanguage.pas b/src/base/ULanguage.pas
index 5f8a2692..efa919dd 100644
--- a/src/base/ULanguage.pas
+++ b/src/base/ULanguage.pas
@@ -213,7 +213,6 @@ end;
  *}
 function TLanguage.Translate(const Text: RawByteString): UTF8String;
 var
-  E:  integer; // entry
   ID: AnsiString;
   EntryIndex: integer;
 begin
diff --git a/src/base/UMusic.pas b/src/base/UMusic.pas
index b7179d8c..d37c4458 100644
--- a/src/base/UMusic.pas
+++ b/src/base/UMusic.pas
@@ -1091,9 +1091,7 @@ end;
 function TAudioPlaybackStream.Synchronize(BufferSize: integer; FormatInfo: TAudioFormatInfo): integer;
 var
   TimeDiff: double;
-  FrameDiff: double;
   FrameSkip: integer;
-  ReqFrames: integer;
   MasterClock: real;
   CurPosition: real;
 const
diff --git a/src/base/UPath.pas b/src/base/UPath.pas
index 4ce76cf0..ba5daf59 100644
--- a/src/base/UPath.pas
+++ b/src/base/UPath.pas
@@ -813,8 +813,10 @@ begin
 end;
 
 function TPathImpl.Equals(const Other: IPath; IgnoreCase: boolean): boolean;
+{$IFNDEF UNIX}
 var
   SelfPath, OtherPath: UTF8String;
+{$ENDIF}
 begin
 {$IFDEF UNIX}
   (*
diff --git a/src/base/USong.pas b/src/base/USong.pas
index a8581ebd..bff39a29 100644
--- a/src/base/USong.pas
+++ b/src/base/USong.pas
@@ -283,8 +283,6 @@ end;
 function TSong.FindSongFile(Dir: IPath; Mask: UTF8String): IPath;
 var
   Iter: IFileIterator;
-  FileInfo: TFileInfo;
-  FileName: IPath;
 begin
   Iter := FileSystem.FileFind(Dir.Append(Mask), faDirectory);
   if (Iter.HasNext) then
@@ -638,7 +636,6 @@ var
   Param3:    integer;
   ParamS:    string;
   I, J:      integer;
-  NoteIndex: integer;
 
   NoteType:  char;
   SentenceEnd, Rest, Time: integer;
@@ -1264,8 +1261,6 @@ begin
 end;
 
 procedure TSong.NewSentence(LineNumberP: integer; Param1, Param2: integer);
-var
-  I: integer;
 begin
 
   if (Lines[LineNumberP].Line[Lines[LineNumberP].High].HighNote  <> -1) then
diff --git a/src/base/USongs.pas b/src/base/USongs.pas
index cfc32a99..25ad4ae3 100644
--- a/src/base/USongs.pas
+++ b/src/base/USongs.pas
@@ -90,7 +90,6 @@ type
   TSongs = class(TThread)
   {$ENDIF}
   private
-    fNotify, fWatch:     longint;
     fParseSongDirectory: boolean;
     fProcessing:         boolean;
     {$ifdef MSWINDOWS}
@@ -207,8 +206,6 @@ begin
 end;
 
 procedure TSongs.Execute();
-var
-  fChangeNotify: THandle;
 begin
 {$IFDEF USE_PSEUDO_THREAD}
   int_LoadSongList();
diff --git a/src/base/UTime.pas b/src/base/UTime.pas
index 0610ef59..b9ece0bb 100644
--- a/src/base/UTime.pas
+++ b/src/base/UTime.pas
@@ -46,7 +46,6 @@ type
     private
       AbsoluteTime: int64;      // system-clock reference time for calculation of CurrentTime
       RelativeTime: real;
-      TriggerMode: boolean;
       State: TRelativeTimerState;
     public
       constructor Create();