Browse Source

* Avoid string constants array elements longer than type

git-svn-id: trunk@17873 -
pierre 14 years ago
parent
commit
61df26bf0c
1 changed files with 2 additions and 2 deletions
  1. 2 2
      compiler/mips/cpuinfo.pas

+ 2 - 2
compiler/mips/cpuinfo.pas

@@ -58,11 +58,11 @@ Const
      pocall_cppdecl
      pocall_cppdecl
    ];
    ];
 
 
-   cputypestr : array[tcputype] of string[5] = ('',
+   cputypestr : array[tcputype] of string[6] = ('',
      'MIPS32'
      'MIPS32'
    );
    );
 
 
-   fputypestr : array[tfputype] of string[6] = ('',
+   fputypestr : array[tfputype] of string[9] = ('',
      'SOFT',
      'SOFT',
      'FPU_MIPS2','FPU_MIPS3'
      'FPU_MIPS2','FPU_MIPS3'
    );
    );