paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 15:49:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Avoid string constants array elements longer than type

Browse Source 
git-svn-id: trunk@17873 -
This commit is contained in:
pierre 2011-06-29 15:07:08 +00:00
parent 32d919f543
commit 61df26bf0c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/mips/cpuinfo.pas
View File

@ -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'
); );