paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 06:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-db: dbase: rename new TLargeIntegerConstant to TLargeIntConstant to align naming with existing identifiers like etLargeInt and TLargeIntVariable

Browse Source 
git-svn-id: trunk@25791 -
This commit is contained in:
lacak 2013-10-15 13:00:58 +00:00
parent 47404444b9
commit 64df3503f3
2 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-db/src/dbase/dbf_prscore.pas
View File

@ -497,10 +497,10 @@ begin
etFloat: ExprWord := TFloatConstant.CreateAsDouble(EmptyStr, PDouble(FExpResult)^);
etInteger: ExprWord := TIntegerConstant.Create(PInteger(FExpResult)^);
{$ifdef SUPPORT_INT64}
etLargeInt:ExprWord := TLargeIntegerConstant.Create(PInt64(FExpResult)^);
etLargeInt:ExprWord := TLargeIntConstant.Create(PInt64(FExpResult)^);
{$endif}
etString: ExprWord := TStringConstant.Create(FExpResult);
else raise EparserException.CreateFmt('No support for resulttype %d. Please fix the TDBF code.',[ResultType]);
else raise EParserException.CreateFmt('No support for resulttype %d. Please fix the TDBF code.',[ResultType]);
end;
// fill in structure

10
packages/fcl-db/src/dbase/dbf_prsdef.pas
View File

@ -201,9 +201,7 @@ type
end;
{$ifdef SUPPORT_INT64}
{ TLargeIntegerConstant }
TLargeIntegerConstant = class(TConstant)
TLargeIntConstant = class(TConstant)
private
FValue: Int64;
public
@ -647,16 +645,16 @@ begin
end;
{$ifdef SUPPORT_INT64}
{ TLargeIntegerConstant }
{ TLargeIntConstant }
constructor TLargeIntegerConstant.Create(AValue: Int64);
constructor TLargeIntConstant.Create(AValue: Int64);
begin
inherited Create(IntToStr(AValue), etLargeInt, _LargeIntVariable);
FValue := AValue;
end;
function TLargeIntegerConstant.AsPointer: PChar;
function TLargeIntConstant.AsPointer: PChar;
begin
Result := PChar(@FValue);
end;