瀏覽代碼

* fixed string length for varspez strings

git-svn-id: branches/jvmbackend@18624 -
Jonas Maebe 14 年之前
父節點
當前提交
622ac7184c
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/utils/ppudump.pp

+ 1 - 1
compiler/utils/ppudump.pp

@@ -223,7 +223,7 @@ Function Varspez2Str(w:longint):string;
 const
   { in symconst unit
     tvarspez = (vs_value,vs_const,vs_var,vs_out,vs_constref); }
-  varspezstr : array[tvarspez] of string[6]=('Value','Const','Var','Out','ConstRef','Final');
+  varspezstr : array[tvarspez] of string[8]=('Value','Const','Var','Out','ConstRef','Final');
 begin
   if w<=ord(high(varspezstr)) then
     Varspez2Str:=varspezstr[tvarspez(w)]