avrcommon.inc 873 B

123456789101112131415161718192021222324252627282930
  1. procedure PASCALMAIN; external name 'PASCALMAIN';
  2. procedure _FPC_haltproc; assembler; nostackframe; public name '_haltproc';noreturn;
  3. asm
  4. cli
  5. .Lhalt:
  6. {$ifdef RELBRANCHES}
  7. rjmp .Lhalt
  8. {$else RELBRANCHES}
  9. jmp .Lhalt
  10. {$endif RELBRANCHES}
  11. end;
  12. procedure Default_IRQ_handler; assembler; nostackframe; public name '_Default_IRQ_handler';noreturn;
  13. asm
  14. .Lloop:
  15. {$ifdef RELBRANCHES}
  16. rjmp .Lloop
  17. {$else RELBRANCHES}
  18. jmp .Lloop
  19. {$endif RELBRANCHES}
  20. end;
  21. var
  22. _data: record end; external name '__data_start';
  23. _edata: record end; external name '__data_end';
  24. _etext: record end; external name '_etext';
  25. _bss_start: record end; external name '__bss_start';
  26. _bss_end: record end; external name '__bss_end';
  27. _stack_top: record end; external name '_stack_top';