startup_gen_24.0.0_73ac30e1/testsuite/tests/boards/hifive1/src/test-flash.ads

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
with System;                  use System;
with System.Storage_Elements; use System.Storage_Elements;

package Test is

   procedure Check_Memories;

   function In_RAM (Addr : System.Address) return Boolean
   is (To_Integer (Addr) in 16#80000000# .. 16#80000000# + 16 * 1024);

   function In_FLASH (Addr : System.Address) return Boolean
   is (To_Integer (Addr) in 16#20400000# .. 16#20400000# + 512 * 1024 * 1024);

end Test;