Преглед на файлове

merge r17436 from cpstrnew branch by michael:
* Tests for typed constants

git-svn-id: trunk@19111 -

paul преди 14 години
родител
ревизия
0550c547f4
променени са 1 файла, в които са добавени 1 реда и са изтрити 0 реда
  1. 1 0
      tests/test/tcpstr1.pp

+ 1 - 0
tests/test/tcpstr1.pp

@@ -1,3 +1,4 @@
+{$CODEPAGE cp437}
 type
 type
   tcpstr437 = string<437>;
   tcpstr437 = string<437>;
   tcpstr850 = string<850>;
   tcpstr850 = string<850>;