From 61f2335de9c1e00c5223d402bc134cc78dca7674 Mon Sep 17 00:00:00 2001
From: paul <paul@idefix.freepascal.org>
Date: Mon, 29 Aug 2011 02:46:13 +0000
Subject: [PATCH] compiler: replace "string" with ansistring where we
 concatenate substrings to prevent 255 chars limit overflow

git-svn-id: branches/paul/namespaces@18886 -
---
 compiler/pbase.pas    | 2 +-
 compiler/pmodules.pas | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/compiler/pbase.pas b/compiler/pbase.pas
index 2abcf6de26..33eef1e4cb 100644
--- a/compiler/pbase.pas
+++ b/compiler/pbase.pas
@@ -243,7 +243,7 @@ implementation
     function try_consume_unitsym(var srsym:tsym;var srsymtable:TSymtable;var tokentoconsume:ttoken;consume_id:boolean):boolean;
       var
         hmodule: tmodule;
-        ns:string;
+        ns:ansistring;
         nssym:tsym;
       begin
         result:=false;
diff --git a/compiler/pmodules.pas b/compiler/pmodules.pas
index 1e461d8c1f..7773b2f89c 100644
--- a/compiler/pmodules.pas
+++ b/compiler/pmodules.pas
@@ -737,7 +737,7 @@ implementation
 
     procedure loadunits;
       var
-         s,sorg  : TIDString;
+         s,sorg  : ansistring;
          fn      : string;
          pu      : tused_unit;
          hp2     : tmodule;
@@ -1078,7 +1078,7 @@ implementation
          force_init_final : boolean;
          init_procinfo,
          finalize_procinfo : tcgprocinfo;
-         unitname : string;
+         unitname : ansistring;
          unitname8 : string[8];
          ag: boolean;
 {$ifdef debug_devirt}
@@ -2062,7 +2062,7 @@ implementation
          main_procinfo : tcgprocinfo;
          force_init_final : boolean;
          resources_used : boolean;
-         program_name : string;
+         program_name : ansistring;
       begin
          DLLsource:=islibrary;
          Status.IsLibrary:=IsLibrary;