Pārlūkot izejas kodu

- unnecessary type declaration removed

git-svn-id: trunk@11503 -
florian 17 gadi atpakaļ
vecāks
revīzija
10263e8e0f
1 mainītis faili ar 4 papildinājumiem un 6 dzēšanām
  1. 4 6
      compiler/cutils.pas

+ 4 - 6
compiler/cutils.pas

@@ -29,13 +29,11 @@ unit cutils;
 
 interface
 
+  type
+    Tcharset=set of char;
 
-    type
-       pshortstring = ^string;
-       Tcharset=set of char;
-
-    var
-      internalerrorproc : procedure(i:longint);
+  var
+    internalerrorproc : procedure(i:longint);
 
 
     {# Returns the minimal value between @var(a) and @var(b) }