?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1.     ; the forward reference to reloc_label2 without knowing it's relocatable does cause
  2.     ; "reloc_label2-reloc_label" to be reported as one more thing to relocate in pass 1
  3.     ; thus the max_count is then 2 when pass 1 is finished = bug in early prototype
  4.     ORG $1234
  5.  
  6.     RELOCATE_START
  7.  
  8.     ASSERT 2 * relocate_count == relocate_size
  9.     ASSERT 1 == relocate_count
  10.     dw      relocate_count
  11.     dw      relocate_size
  12.  
  13. reloc_label:
  14.     ld      hl,reloc_label              ; relocation needed
  15.     ld      bc,reloc_label2-reloc_label ; no relocation
  16.  
  17. reloc_label2:
  18.  
  19.     RELOCATE_END
  20.  
  21.     RELOCATE_TABLE
  22.  
  23.     ASSERT 0 == __ERRORS__
  24.     ASSERT 0 == __WARNINGS__
  25.