paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 03:46:10 +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; function try_consume_unitsym(var srsym:tsym;var srsymtable:TSymtable;var tokentoconsume:ttoken;consume_id:boolean):boolean;
var var
hmodule: tmodule; hmodule: tmodule;
ns:string; ns:ansistring;
nssym:tsym; nssym:tsym;
begin begin
result:=false; result:=false;

6
compiler/pmodules.pas
View File

@ -737,7 +737,7 @@ implementation
procedure loadunits; procedure loadunits;
var var
s,sorg : TIDString; s,sorg : ansistring;
fn : string; fn : string;
pu : tused_unit; pu : tused_unit;
hp2 : tmodule; hp2 : tmodule;
@ -1078,7 +1078,7 @@ implementation
force_init_final : boolean; force_init_final : boolean;
init_procinfo, init_procinfo,
finalize_procinfo : tcgprocinfo; finalize_procinfo : tcgprocinfo;
unitname : string; unitname : ansistring;
unitname8 : string[8]; unitname8 : string[8];
ag: boolean; ag: boolean;
{$ifdef debug_devirt} {$ifdef debug_devirt}
@ -2062,7 +2062,7 @@ implementation
main_procinfo : tcgprocinfo; main_procinfo : tcgprocinfo;
force_init_final : boolean; force_init_final : boolean;
resources_used : boolean; resources_used : boolean;
program_name : string; program_name : ansistring;
begin begin
DLLsource:=islibrary; DLLsource:=islibrary;
Status.IsLibrary:=IsLibrary; Status.IsLibrary:=IsLibrary;