peter 25 лет назад
Родитель
Сommit
b275450bb6
1 измененных файлов с 2 добавлено и 2 удалено
  1. 2 2
      packages/regexpr/testreg1.pp

+ 2 - 2
packages/regexpr/test1.pp → packages/regexpr/testreg1.pp

@@ -1,9 +1,9 @@
+program testreg1;
 uses
-   dpmiexcp,regexpr;
+   regexpr;
 
 var
    r : tregexprengine;
-   b : array[0..100] of char;
    index,len : longint;
 
 procedure do_error(i : longint);