- rm unused var

git-svn-id: trunk@30407 -

compiler/omfbase.pas

@@ -540,7 +540,6 @@ implementation
 
   procedure TOmfRecord_SEGDEF.EncodeTo(RawRecord: TOmfRawRecord);
     var
-      B: Byte;
       Big: Boolean;
       NextOfs: Integer;
     begin