CVS freexp

[CVS User mw]

Update of /server/cvs/freexp
In directory m25s18:/tmp/cvs-serv6299

Modified Files:
      Tag: RC4_3_40_Fixes
	touch.pas 
Log Message:
MW: - Kleiner Bugfix: Ueberflüssige ENDIF entfernt.


--- /server/cvs/freexp/touch.pas	2006/10/28 10:23:44	1.22.4.1
+++ /server/cvs/freexp/touch.pas	2006/10/28 11:11:10	1.22.4.2
@@ -9,20 +9,20 @@
 { finden Sie in der Datei TOUCH.TXT oder auf                      }
 { http://www.martinwodrich.de/Software/Touch/nutzung.htm          }
 { --------------------------------------------------------------- }
-{ $Id: touch.pas,v 1.22.4.1 2006/10/28 10:23:44 mw Exp $ }
+{ $Id: touch.pas,v 1.22.4.2 2006/10/28 11:11:10 mw Exp $ }
 {$IFDEF MSDOS}{$M 32768,131072,655360}{$ENDIF}
 program touch;
 {$I TOUCH.INC }
 
 { Betriebsystemabhaeniges }
 {$IFNDEF WINDOWS }
-{$IFDEF VPOS2}
-uses use32,dos,crt,fileio{$ENDIF};
-{$ELSE }
-uses dos,crt{$IFDEF BPLFN},touchlfn{$ENDIF},fileio{$ENDIF};
-{$ENDIF }
+    {$IFDEF VPOS2}
+       uses use32,dos,crt,fileio;
+    {$ELSE }
+       uses dos,crt{$IFDEF BPLFN},touchlfn{$ENDIF},fileio;
+    {$ENDIF }
 {$ELSE }
-uses windos,wincrt,strings,fileio{$ENDIF};
+uses windos,wincrt,strings,fileio;
 {$ENDIF }
 
 const anyfile=$21;
@@ -828,6 +828,9 @@
 end.
 {
   $Log: touch.pas,v $
+  Revision 1.22.4.2  2006/10/28 11:11:10  mw
+  MW: - Kleiner Bugfix: Ueberflüssige ENDIF entfernt.
+
   Revision 1.22.4.1  2006/10/28 10:23:44  mw
   MW: - Uebernahme von Touch 1.2.5
       - Rauspatchen der MD5-Funktion, da hier nicht notwendig