From 70fd9e8c8179558d11d20860fbac4b90f9cb08af Mon Sep 17 00:00:00 2001
From: mazen <mazen@freepascal.org>
Date: Thu, 14 Oct 2004 14:42:57 +0000
Subject: [PATCH] + Needed types aliases to merge USE_SYSUTILS branch

---
 compiler/globtype.pas | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/compiler/globtype.pas b/compiler/globtype.pas
index d32b857990..8e3f98e512 100644
--- a/compiler/globtype.pas
+++ b/compiler/globtype.pas
@@ -29,6 +29,19 @@ interface
        maxidlen = 64;
 
     type
+{TCmdStr is used to pass command line parameters to an external program to be
+executed from the FPC application. In some circomstances, this can be more
+than 255 characters. That's why using Ansi Strings}
+{$IFDEF USE_SYSUTILS}
+       TCmdStr = AnsiString;
+       PathStr = String;
+       DirStr = String;
+       NameStr = String;
+       ExtStr = String;
+{$ELSE USE_SYSUTILS}
+       TCmdStr = String;
+{$ENDIF USE_SYSUTILS}
+
 {$ifndef fpc}
        qword = int64;
 {$endif fpc}
@@ -295,7 +308,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.60  2004-09-26 17:45:30  peter
+  Revision 1.61  2004-10-14 14:42:57  mazen
+  + Needed types aliases to merge USE_SYSUTILS branch
+
+  Revision 1.60  2004/09/26 17:45:30  peter
     * simple regvar support, not yet finished
 
   Revision 1.59  2004/07/14 23:19:22  olle