testsimpleifdef4.obs

来自「格式化源码的最新板」· OBS 代码 · 共 9 行

unit testsimpleifdef4;interface implementation procedure foo;cdecl;export;{$IFDEF LINUX}

var
  I: Integer;
begin
  I := 3;
end;
{$ENDIF}{$IFDEF MSWINDOWS}var k:integer
;begin k:=4;end;{$ENDIF}procedure bar;begin end;end.