paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 04:49:19 +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)^); etFloat: ExprWord := TFloatConstant.CreateAsDouble(EmptyStr, PDouble(FExpResult)^);
etInteger: ExprWord := TIntegerConstant.Create(PInteger(FExpResult)^); etInteger: ExprWord := TIntegerConstant.Create(PInteger(FExpResult)^);
{$ifdef SUPPORT_INT64} {$ifdef SUPPORT_INT64}
etLargeInt:ExprWord := TLargeIntegerConstant.Create(PInt64(FExpResult)^); etLargeInt:ExprWord := TLargeIntConstant.Create(PInt64(FExpResult)^);
{$endif} {$endif}
etString: ExprWord := TStringConstant.Create(FExpResult); 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; end;
// fill in structure // fill in structure

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

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