littletest28.out

格式化源码的最新板

unit LittleTest28;


{ This unit compiles but is not semantically meaningfull
 it is test cases for the code formatting utility
}

interface

implementation

function Bar: Pointer;
begin
  Result := nil;
end;

procedure Foo;
asm
         MOV     EAX,  1;
         CALL    Bar;
         JMP     EAX;
end;


end.