Why Gemfury? Push, build, and install  RubyGems npm packages Python packages Maven artifacts PHP packages Go Modules Debian packages RPM packages NuGet packages

Repository URL to install this package:

Details    
fpc-src / usr / share / fpcsrc / 3.2.0 / tests / test / tasm13b.pp
Size: Mime:
{ %CPU=i8086,i386,x86_64 }
{ %fail }

{ Tests the 'Cannot override ES segment' error message }

{$asmmode intel}

begin
  asm
{$if defined(cpui8086)}
    cmps byte ptr [si], byte ptr ds:[di]
{$elseif defined(cpui386)}
    cmps byte ptr [esi], byte ptr ds:[edi]
{$elseif defined(cpux86_64)}
    cmps byte ptr [esi], byte ptr fs:[rdi]
{$endif}
  end;
end.