littletest53.obs

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

unit littletest53;interface implementation {$IFDEF REDDWARF}
procedure Cat;
asm

{$IFDEF FISH}
        call    TroutALaCreme

{$ELSE}
        pop MealStack
{$ENDIF}
      call  __EnjoyYourMeal
@@ret:
end;

{$ENDIF}end.