[Lngcompiler-commits] CVS: lngcompiler BigIni.pas, 1.4, 1.5 LngForm.pas, 1.27, 1.28 MD5.pas, 1.4, 1.5 MView.pas, 1.3, 1.4 Utils.pas, 1.5, 1.6 WrapStrm.pas, 1.3, 1.4 XCoder.pas, 1.4, 1.5 XReader.pas, 1.3, 1.4

[Maxim M. <max...@us...>]

Update of /cvsroot/lngcompiler/lngcompiler
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv16790

Modified Files:
	BigIni.pas LngForm.pas MD5.pas MView.pas Utils.pas 
	WrapStrm.pas XCoder.pas XReader.pas 
Log Message:
Some obsolete unused variables did produce minor compiler warnings.


Index: BigIni.pas
===================================================================
RCS file: /cvsroot/lngcompiler/lngcompiler/BigIni.pas,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** BigIni.pas	7 Feb 2008 12:21:29 -0000	1.4
--- BigIni.pas	11 Jul 2010 00:37:33 -0000	1.5
***************
*** 4,8 ****
  
  lngcompiler - Ritlabs LNG files editor & compiler
! Copyright (C) 2001 RITLABS S.R.L.
  
  This program is free software; you can redistribute it and/or
--- 4,8 ----
  
  lngcompiler - Ritlabs LNG files editor & compiler
! Copyright (C) 2001-2010 RITLABS S.R.L.
  
  This program is free software; you can redistribute it and/or

Index: LngForm.pas
===================================================================
RCS file: /cvsroot/lngcompiler/lngcompiler/LngForm.pas,v
retrieving revision 1.27
retrieving revision 1.28
diff -C2 -d -r1.27 -r1.28
*** LngForm.pas	24 Sep 2009 09:25:07 -0000	1.27
--- LngForm.pas	11 Jul 2010 00:37:33 -0000	1.28
***************
*** 4,8 ****
  
  lngcompiler - Ritlabs LNG files editor & compiler
! Copyright (C) 2001 RITLABS S.R.L.
  
  This program is free software; you can redistribute it and/or
--- 4,8 ----
  
  lngcompiler - Ritlabs LNG files editor & compiler
! Copyright (C) 2001-2010 RITLABS S.R.L.
  
  This program is free software; you can redistribute it and/or
***************
*** 369,373 ****
  procedure TNamedStrIndex.Add(AName, AValue, ALng: String);
  var
!   I, J, VL, LL: Integer;
  begin
    VL := Length(AValue);
--- 369,373 ----
  procedure TNamedStrIndex.Add(AName, AValue, ALng: String);
  var
!   I, VL, LL: Integer;
  begin
    VL := Length(AValue);
***************
*** 424,428 ****
  var
    I, J, K, L: Integer;
!   S, N, V: String;
  begin
    S := AdjustLineBreaks(AText);
--- 424,428 ----
  var
    I, J, K, L: Integer;
!   S, N: String;
  begin
    S := AdjustLineBreaks(AText);
***************
*** 1083,1087 ****
        LastT, T: TLngToken;
        LLine, LastLine: Integer;
-       LI: TLngString;
        CP: String;
  
--- 1083,1086 ----
***************
*** 2465,2472 ****
    OL: TStringList;
    CF: TLngForm;
-   LF: TLngFile;
    LI, LLI: TLngString;
    XX: Boolean;
!   NS, S, SS: String;
  begin
    OL := nil;
--- 2464,2470 ----
    OL: TStringList;
    CF: TLngForm;
    LI, LLI: TLngString;
    XX: Boolean;
!   NS, SS: String;
  begin
    OL := nil;
***************
*** 2640,2644 ****
    function NameNotTranslated(Idx: Integer): Boolean;
    var
-     I: Integer;
      S, SS: String;
    begin
--- 2638,2641 ----
***************
*** 3165,3168 ****
--- 3162,3166 ----
    CheckLngChange;
    M := nil;
+   LF := nil;
    try
      LL := TStringList.Create; LL.Sorted := True;

Index: MD5.pas
===================================================================
RCS file: /cvsroot/lngcompiler/lngcompiler/MD5.pas,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** MD5.pas	5 Apr 2002 15:06:22 -0000	1.4
--- MD5.pas	11 Jul 2010 00:37:33 -0000	1.5
***************
*** 4,8 ****
  
  lngcompiler - Ritlabs LNG files editor & compiler
! Copyright (C) 2001 RITLABS S.R.L.
  
  This program is free software; you can redistribute it and/or
--- 4,8 ----
  
  lngcompiler - Ritlabs LNG files editor & compiler
! Copyright (C) 2001-2010 RITLABS S.R.L.
  
  This program is free software; you can redistribute it and/or

Index: MView.pas
===================================================================
RCS file: /cvsroot/lngcompiler/lngcompiler/MView.pas,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** MView.pas	5 Apr 2002 15:06:22 -0000	1.3
--- MView.pas	11 Jul 2010 00:37:33 -0000	1.4
***************
*** 4,8 ****
  
  lngcompiler - Ritlabs LNG files editor & compiler
! Copyright (C) 2001 RITLABS S.R.L.
  
  This program is free software; you can redistribute it and/or
--- 4,8 ----
  
  lngcompiler - Ritlabs LNG files editor & compiler
! Copyright (C) 2001-2010 RITLABS S.R.L.
  
  This program is free software; you can redistribute it and/or

Index: Utils.pas
===================================================================
RCS file: /cvsroot/lngcompiler/lngcompiler/Utils.pas,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** Utils.pas	7 Feb 2008 12:21:30 -0000	1.5
--- Utils.pas	11 Jul 2010 00:37:33 -0000	1.6
***************
*** 4,8 ****
  
  lngcompiler - Ritlabs LNG files editor & compiler
! Copyright (C) 2001 RITLABS S.R.L.
  
  This program is free software; you can redistribute it and/or
--- 4,8 ----
  
  lngcompiler - Ritlabs LNG files editor & compiler
! Copyright (C) 2001-2010 RITLABS S.R.L.
  
  This program is free software; you can redistribute it and/or

Index: WrapStrm.pas
===================================================================
RCS file: /cvsroot/lngcompiler/lngcompiler/WrapStrm.pas,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** WrapStrm.pas	5 Apr 2002 15:06:22 -0000	1.3
--- WrapStrm.pas	11 Jul 2010 00:37:33 -0000	1.4
***************
*** 4,8 ****
  
  lngcompiler - Ritlabs LNG files editor & compiler
! Copyright (C) 2001 RITLABS S.R.L.
  
  This program is free software; you can redistribute it and/or
--- 4,8 ----
  
  lngcompiler - Ritlabs LNG files editor & compiler
! Copyright (C) 2001-2010 RITLABS S.R.L.
  
  This program is free software; you can redistribute it and/or

Index: XCoder.pas
===================================================================
RCS file: /cvsroot/lngcompiler/lngcompiler/XCoder.pas,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** XCoder.pas	7 Feb 2008 12:21:30 -0000	1.4
--- XCoder.pas	11 Jul 2010 00:37:33 -0000	1.5
***************
*** 4,8 ****
  
  lngcompiler - Ritlabs LNG files editor & compiler
! Copyright (C) 2001 RITLABS S.R.L.
  
  This program is free software; you can redistribute it and/or
--- 4,8 ----
  
  lngcompiler - Ritlabs LNG files editor & compiler
! Copyright (C) 2001-2010 RITLABS S.R.L.
  
  This program is free software; you can redistribute it and/or
***************
*** 251,255 ****
        InBS, CInBS, BS, CBS: Integer;
        I, J, II, MCd3, BSdMC: Integer;
-       P4: PI4RecArray;
        p3: PI3RecArray;
  
--- 251,254 ----
***************
*** 412,416 ****
  
    procedure DoDecodeUTF7;
!     var P, XP, I, XBS: Integer;
          B: Boolean;
          S, Q: String;
--- 411,415 ----
  
    procedure DoDecodeUTF7;
!     var P, XP, XBS: Integer;
          B: Boolean;
          S, Q: String;
***************
*** 619,623 ****
  
    procedure DoEncodeUTF7;
!     var I, J, K: Integer;
          B: Boolean;
  
--- 618,622 ----
  
    procedure DoEncodeUTF7;
!     var I, J: Integer;
          B: Boolean;
  
***************
*** 711,718 ****
  function StringToUTF(const S: String; UTF8: Boolean): String;
    var WStr: PWideChar;
-       StrSize: Integer;
        P: PChar;
        SSize: Integer;
-       F: Integer;
  begin
    WStr := nil;
--- 710,715 ----

Index: XReader.pas
===================================================================
RCS file: /cvsroot/lngcompiler/lngcompiler/XReader.pas,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** XReader.pas	5 Apr 2002 15:06:22 -0000	1.3
--- XReader.pas	11 Jul 2010 00:37:33 -0000	1.4
***************
*** 4,8 ****
  
  lngcompiler - Ritlabs LNG files editor & compiler
! Copyright (C) 2001 RITLABS S.R.L.
  
  This program is free software; you can redistribute it and/or
--- 4,8 ----
  
  lngcompiler - Ritlabs LNG files editor & compiler
! Copyright (C) 2001-2010 RITLABS S.R.L.
  
  This program is free software; you can redistribute it and/or