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

* stub out assembly functions for non-x86 platforms

Browse Source 
git-svn-id: trunk@44955 -
This commit is contained in:
svenbarth 2020-04-21 06:06:59 +00:00
parent aa1c1174e6
commit 90040983b6
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/winunits-jedi/src/jwanative.pas
View File

@ -8350,10 +8350,12 @@ end;
function RtlUshortByteSwap(Source: USHORT): USHORT;
asm
{$if defined(cpux86_64) or defined(cpui386)}
{$ifdef cpux86_64}
mov CX, AX
{$endif cpux86_64}
rol AX, 08h
{$endif cpux86_64 or cpui386}
end;
(* Own function to swap bytes in 32bit values
@ -8367,10 +8369,12 @@ asm
// This is not written as mnemonics to be compatible with D4!
db 0Fh, 0C8h // "bswap EAX" can only be executed on 486+!!!
{$else}
{$if defined(cpux86_64) or defined(cpui386)}
{$ifdef cpux86_64}
mov ECX, EAX
{$endif cpux86_64}
bswap EAX // .. but bswap EAX is also 64-bit!!! 0F C8 isn't.
{$endif cpux86_64 or cpui386}
{$endif}
(*