mirror of https://github.com/ademakov/libjit
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
23 lines
606 B
23 lines
606 B
{ Test code generation for long backwards branches in the x86 back end }
|
|
{ Evin Robertson <evin@users.sourceforge.net> }
|
|
|
|
program loop;
|
|
|
|
Procedure main;
|
|
var g : ShortInt;
|
|
begin
|
|
for g := 0 to 10 do begin
|
|
write('.'); write('.'); write('.'); write('.');
|
|
write('.'); write('.'); write('.'); write('.');
|
|
write('.'); write('.'); write('.'); write('.');
|
|
write('.'); write('.'); write('.'); write('.');
|
|
write('.'); write('.'); write('.'); write('.');
|
|
write('.'); write('.'); write('.'); write('.');
|
|
write('.'); write('.'); write('.'); write('.');
|
|
end;
|
|
WriteLn('');
|
|
end; { main }
|
|
|
|
begin
|
|
main
|
|
end.
|
|
|