paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 12:16:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: remove VER2_3 define

Browse Source 
git-svn-id: trunk@36371 -
This commit is contained in:
paul 2012-03-27 07:34:00 +00:00
parent 9226386149
commit 429434dd8e
1 changed files with 0 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
lcl/fpcadds.pas
View File

@ -23,10 +23,6 @@ unit FPCAdds;
{$mode objfpc}{$H+}{$inline on} {$mode objfpc}{$H+}{$inline on}
{$IFDEF VER2_3}
{$DEFINE FPC_HAS_QWORDCOMPAREVALUE}
{$ENDIF}
interface interface
uses uses
@ -39,13 +35,6 @@ type
TCompareMemSize = integer; TCompareMemSize = integer;
PHandle = ^THandle; PHandle = ^THandle;
{$IFNDEF FPC_HAS_QWORDCOMPAREVALUE}
function CompareValue ( const A, B : QWord) : TValueRelationship; inline;
// other CompareValue functions have to be declare too, otherwise fpc
// doesn't find them: http://www.freepascal.org/mantis/view.php?id=8620
function CompareValue ( const A, B : Integer) : TValueRelationship; inline;
function CompareValue ( const A, B : Int64) : TValueRelationship; inline;
{$ENDIF}
function StrToWord(const s: string): word; function StrToWord(const s: string): word;
function AlignToPtr(const p: Pointer): Pointer; function AlignToPtr(const p: Pointer): Pointer;
@ -83,26 +72,4 @@ begin
{$ENDIF} {$ENDIF}
end; end;
{$IFNDEF FPC_HAS_QWORDCOMPAREVALUE}
function CompareValue (const A, B : QWord) : TValueRelationship;
begin
result:=GreaterThanValue;
if a=b then
result:=EqualsValue
else
if a<b then
result:=LessThanValue;
end;
function CompareValue(const A, B: Integer): TValueRelationship; inline;
begin
Result := Math.CompareValue(A, B);
end;
function CompareValue(const A, B: Int64): TValueRelationship; inline;
begin
Result := Math.CompareValue(A, B);
end;
{$ENDIF}
end. end.