paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 19:09:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

compiler: replace "string" with ansistring where we concatenate substrings to prevent 255 chars limit overflow

Browse Source 
git-svn-id: branches/paul/namespaces@18886 -
This commit is contained in:
paul 2011-08-29 02:46:13 +00:00
parent de21de2024
commit 61f2335de9
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/pbase.pas
View File

@ -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;

6
compiler/pmodules.pas
View File

@ -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;