paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Correct 64bit compilation error.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@906 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa 2009-07-14 14:23:07 +00:00
parent 0ea82dc33e
commit 54ff0827eb
3 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
wst/trunk/base_service_intf.pas
View File

@ -969,7 +969,7 @@ type
FList : TObjectList;
protected
function GetItem(AIndex : PtrInt) : TBaseRemotable;{$IFDEF USE_INLINE}inline;{$ENDIF}
function GetLength : PtrInt; override;
function GetLength() : Integer; override;
public
class procedure Save(
AObject : TBaseRemotable;
@ -3560,7 +3560,7 @@ begin
Result := TBaseRemotable(FList[AIndex]);
end;
function TObjectCollectionRemotable.GetLength : PtrInt;
function TObjectCollectionRemotable.GetLength() : Integer;
begin
Result := FList.Count;
end;

7
wst/trunk/tests/test_suite/test_suite_utils.pas
View File

@ -33,6 +33,7 @@ type
TWstBaseTest = class(TTestCase)
protected
procedure CheckEquals(expected, actual: TByteDynArray; msg: string = ''; const AStrict : Boolean = True); overload;
procedure CheckEquals(expected, actual: Currency; msg: string = ''); overload;
{$IFDEF FPC}
procedure CheckEquals(expected, actual: Int64; msg: string = ''; const AStrict : Boolean = True); overload;
procedure CheckEquals(expected, actual: QWord; msg: string = ''; const AStrict : Boolean = True); overload;
@ -173,4 +174,10 @@ begin
end;
end;
procedure TWstBaseTest.CheckEquals(expected, actual : Currency; msg : string);
begin
if (expected <> actual) then
FailNotEquals(CurrToStr(expected), CurrToStr(actual), msg{$IFDEF WST_DELPHI}, CallerAddr{$ENDIF WST_DELPHI});
end;
end.

4
wst/trunk/tests/test_suite/testformatter_unit.pas
View File

@ -4801,8 +4801,8 @@ begin
s := TMemoryStream.Create();
f.SaveToStream(s);
FreeAndNil(a);
if not IsStrEmpty(AFilename) then
s.SaveToFile(wstExpandLocalFileName(AFilename));
// if not IsStrEmpty(AFilename) then
// s.SaveToFile(wstExpandLocalFileName(AFilename));
a := TClass_B.Create();
f := CreateFormatter(TypeInfo(TClass_B));