Browse Source

Add -marm option to gcc call fot arm target to be sure that aarch64 version of gcc complains to stderr if it does not support 32-bit

git-svn-id: trunk@45982 -
pierre 5 years ago
parent
commit
208e7fb337
1 changed files with 1 additions and 1 deletions
  1. 1 1
      packages/fpmkunit/src/fpmkunit.pp

+ 1 - 1
packages/fpmkunit/src/fpmkunit.pp

@@ -2830,7 +2830,7 @@ begin
       x86_64:   result := GetGccDirArch('cpux86_64','-m64');
       x86_64:   result := GetGccDirArch('cpux86_64','-m64');
       powerpc:  result := GetGccDirArch('cpupowerpc','-m32');
       powerpc:  result := GetGccDirArch('cpupowerpc','-m32');
       powerpc64:result := GetGccDirArch('cpupowerpc64','-m64');
       powerpc64:result := GetGccDirArch('cpupowerpc64','-m64');
-      arm:      result := GetGccDirArch('cpuarm','-march=armv2');
+      arm:      result := GetGccDirArch('cpuarm','-marm -march=armv2');
       aarch64:  result := GetGccDirArch('cpuaarch64','-march=aarch64 -mcmodel=large');
       aarch64:  result := GetGccDirArch('cpuaarch64','-march=aarch64 -mcmodel=large');
       m68k:     result := GetGccDirArch('cpum68k','');
       m68k:     result := GetGccDirArch('cpum68k','');
       mips:     result := GetGccDirArch('cpumips','-mips32 -EB -mabi=32');
       mips:     result := GetGccDirArch('cpumips','-mips32 -EB -mabi=32');