paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 20:59:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* VER2_0 overleft removed

Browse Source 
git-svn-id: trunk@19915 -
This commit is contained in:
florian 2011-12-29 17:40:12 +00:00
parent c4a5499d2a
commit cd644c4ecb
1 changed files with 0 additions and 72 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

72
compiler/cutils.pas
View File

@ -140,17 +140,6 @@ interface
Function nextafter(x,y:double):double;
{$ifdef ver2_0}
{ RTL routines not available yet in 2.0.x }
function SwapEndian(const AValue: SmallInt): SmallInt;
function SwapEndian(const AValue: Word): Word;
function SwapEndian(const AValue: LongInt): LongInt;
function SwapEndian(const AValue: DWord): DWord;
function SwapEndian(const AValue: Int64): Int64;
function SwapEndian(const AValue: QWord): QWord;
{$endif ver2_0}
implementation
uses
@ -1368,67 +1357,6 @@ implementation
end;
{$ifdef ver2_0}
function SwapEndian(const AValue: SmallInt): SmallInt;
begin
{ the extra Word type cast is necessary because the "AValue shr 8" }
{ is turned into "longint(AValue) shr 8", so if AValue < 0 then }
{ the sign bits from the upper 16 bits are shifted in rather than }
{ zeroes. }
Result := SmallInt((Word(AValue) shr 8) or (Word(AValue) shl 8));
end;
function SwapEndian(const AValue: Word): Word;
begin
Result := (AValue shr 8) or (AValue shl 8);
end;
function SwapEndian(const AValue: LongInt): LongInt;
begin
Result := (AValue shl 24)
or ((AValue and $0000FF00) shl 8)
or ((AValue and $00FF0000) shr 8)
or (AValue shr 24);
end;
function SwapEndian(const AValue: DWord): DWord;
begin
Result := (AValue shl 24)
or ((AValue and $0000FF00) shl 8)
or ((AValue and $00FF0000) shr 8)
or (AValue shr 24);
end;
function SwapEndian(const AValue: Int64): Int64;
begin
Result := (AValue shl 56)
or ((AValue and $000000000000FF00) shl 40)
or ((AValue and $0000000000FF0000) shl 24)
or ((AValue and $00000000FF000000) shl 8)
or ((AValue and $000000FF00000000) shr 8)
or ((AValue and $0000FF0000000000) shr 24)
or ((AValue and $00FF000000000000) shr 40)
or (AValue shr 56);
end;
function SwapEndian(const AValue: QWord): QWord;
begin
Result := (AValue shl 56)
or ((AValue and $000000000000FF00) shl 40)
or ((AValue and $0000000000FF0000) shl 24)
or ((AValue and $00000000FF000000) shl 8)
or ((AValue and $000000FF00000000) shr 8)
or ((AValue and $0000FF0000000000) shr 24)
or ((AValue and $00FF000000000000) shr 40)
or (AValue shr 56);
end;
{$endif ver2_0}
initialization
internalerrorproc:=@defaulterror;
initupperlower;