m68k: map sec_rodata as read-write in the vasm writer, to silence some vlink warnings, when it writes the relocations in a rodata section

git-svn-id: trunk@36501 -

compiler/m68k/ag68kvasm.pas

@@ -68,9 +68,11 @@ unit ag68kvasm;
         case atype of
           sec_code, sec_fpc, sec_init, sec_fini:
             result:='acrx';
-          sec_data:
+          { map sec_rodata as read-write, otherwise the linker (vlink) complains if it
+            has to write into the relocations in a rodata section. (KB) }
+          sec_data, sec_rodata:
             result:='adrw';
-          sec_rodata, sec_rodata_norel:
+          sec_rodata_norel:
             result:='adr';
           sec_bss, sec_threadvar:
             result:='aurw';