* Added modifications by Markus Kaemmerer:

  - Unit now compiles with Delphi
  - Removed debug output when not compiled with -dDEBUG

packages/regexpr/regexpr.pp

@@ -78,9 +78,6 @@ unit regexpr;
 
   implementation
 
-     uses
-        strings;
-
 {$ifdef DEBUG}
      procedure writecharset(c : tcharset);
 
@@ -314,7 +311,7 @@ unit regexpr;
                           doregister(hp);
                           hp^.typ:=ret_backtrace;
                           // hp^.elsepath:=parseregexpr(elsepath);
-                          hp^.next:=parseregexpr;
+                          hp^.next:=@parseregexpr;
                           parseregexpr:=hp;
                           exit;
                        end;
@@ -442,7 +439,7 @@ unit regexpr;
           GenerateRegExprEngine.Data:=parseregexpr(nil,endp);
           GenerateRegExprEngine.DestroyList:=first;
           if error or (currentpos^<>#0) then
-            DestroyRegExprEngine(GenerateRegExprEngine);
+            DestroyRegExprEngine(Result);
        end;
 
     procedure DestroyRegExprEngine(var regexpr : TRegExprEngine);
@@ -473,7 +470,9 @@ unit regexpr;
             dosearch:=false;
             while true do
               begin
+	         {$ifdef DEBUG}
                  writeln(byte(regexpr^.typ));
+		 {$ifdef DEBUG}
                  case regexpr^.typ of
                     ret_endline:
                       begin
@@ -591,7 +590,25 @@ begin
 end.
 {
   $Log$
-  Revision 1.2  2000-07-13 11:33:31  michael
-  + removed logs
- 
+  Revision 1.1.2.1  2000-07-30 14:42:40  sg
+  * Added modifications by Markus Kaemmerer:
+    - Unit now compiles with Delphi
+    - Removed debug output when not compiled with -dDEBUG
+
+  Revision 1.1  2000/07/13 06:34:22  michael
+  + Initial import
+
+  Revision 1.4  2000/04/08 09:31:59  peter
+    * makefiles added
+    * removed notes
+
+  Revision 1.3  2000/03/19 16:20:44  florian
+    * some improvements
+
+  Revision 1.2  2000/03/14 22:57:51  florian
+    + added flags
+    + support of case insensitive search
+
+  Revision 1.1  2000/03/14 22:09:03  florian
+    * Initial revision
 }