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
|