fix m68k long/string arrays

codeCore/src/prog8/code/core/DataTypes.kt

@@ -191,7 +191,10 @@ class DataType private constructor(
             require(!elementDt.isPointer) { "use other array constructor for arrays of pointers" }
             // TODO: on 32-bit targets (m68k), str arrays should be arrays of LONG (4-byte pointers),
             // but this requires systematically handling str as a 4-byte type across the entire compiler.
-            val actualElementDt = if(elementDt==BaseDataType.STR) BaseDataType.UWORD else elementDt
+            val actualElementDt = if(elementDt==BaseDataType.STR) {
+                val target = memsizer as? ICompilationTarget
+                if(target != null && target.POINTER_MEM_SIZE > 2u) BaseDataType.LONG else BaseDataType.UWORD
+            } else elementDt
             if(actualElementDt.isNumericOrBool)
                 return DataType(BaseDataType.ARRAY, actualElementDt, null)
             else