Преглед изворни кода

+ increased max string length tsysteminfo.shortname, so 'zxspectrum' fits

git-svn-id: branches/z80@44817 -
nickysn пре 5 година
родитељ
комит
492b073e86
1 измењених фајлова са 1 додато и 1 уклоњено
  1. 1 1
      compiler/systems.pas

+ 1 - 1
compiler/systems.pas

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