paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 19:19:24 +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
];
cputypestr : array[tcputype] of string[5] = ('',
cputypestr : array[tcputype] of string[6] = ('',
'MIPS32'
);
fputypestr : array[tfputype] of string[6] = ('',
fputypestr : array[tfputype] of string[9] = ('',
'SOFT',
'FPU_MIPS2','FPU_MIPS3'
);