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 / webtbs / tw15843.pp
Size: Mime:
{ %skiptarget=android }
{ %opt=-Cg- }
{ %cpu=i386 }

{$asmmode intel}
var
  a: array[0..3] of byte;
  l: longint;
begin
  a[0]:=1;
  a[1]:=2;
  a[2]:=3;
  a[2]:=4;
  asm
    lea ecx,[a]
    inc ecx
    movzx eax, byte ptr[ecx-1+1]  // bug in this line (-2)
    mov [l],eax
  end;
  if l<>2 then
    halt(1);
end.