瀏覽代碼

Adapt tsysteminfo.shortname string field length to MacOSclassic

git-svn-id: trunk@45763 -
pierre 5 年之前
父節點
當前提交
509cf3f1ae
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/systems.pas

+ 1 - 1
compiler/systems.pas

@@ -187,7 +187,7 @@ interface
        tsysteminfo = record
        tsysteminfo = record
           system       : tsystem;
           system       : tsystem;
           name         : string[34];
           name         : string[34];
-          shortname    : string[10];
+          shortname    : string[12];
           flags        : set of tsystemflags;
           flags        : set of tsystemflags;
           cpu          : tsystemcpu;
           cpu          : tsystemcpu;
           unit_env     : string[16];
           unit_env     : string[16];