paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 14:20:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix m68k-amiga linking failure for native compiler, due conflict between odd length string and .balignw directive

Browse Source 
git-svn-id: trunk@38351 -
This commit is contained in:
pierre 2018-02-26 13:06:37 +00:00
parent 3b4c330d32
commit 34c0898d97
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ngenutil.pas
View File

@ -1478,6 +1478,13 @@ implementation
tcb:=ctai_typedconstbuilder.create([tcalo_no_dead_strip]);
s:='FPC '+full_version_string+
' ['+date_string+'] for '+target_cpu_string+' - '+target_info.shortname;
{$ifdef m68k}
{ Ensure that the size of s is multiple of 2 to avoid problems
like on m68k-amiga which has a .balignw just after,
causes an assembler error }
while (length(s) mod 2) <> 0 do
s:=s+' ';
{$endif m68k}
def:=carraydef.getreusable(cansichartype,length(s));
tcb.maybe_begin_aggregate(def);
tcb.emit_tai(Tai_string.Create(s),def);