paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-29 06:59:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Applied Peters patch

Browse Source
This commit is contained in:
daniel 2004-01-16 18:08:39 +00:00
parent eaa7da9015
commit 143b3f4c05
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/symsym.pas
View File

@ -641,7 +641,7 @@ implementation
inc(i); inc(i);
until s[i]='}'; until s[i]='}';
varvalues[varcounter]:=Pstring(varptr); varvalues[varcounter]:=Pstring(varptr);
if (varptr-@varvaluedata)>=1024 then if varptr>(@varvaluedata+maxdata) then
internalerror(200401151); internalerror(200401151);
Pstring(varptr)^:=get_var_value(varname); Pstring(varptr)^:=get_var_value(varname);
inc(len,length(Pstring(varptr)^)); inc(len,length(Pstring(varptr)^));
@ -2833,7 +2833,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.142 2004-01-15 23:16:32 daniel Revision 1.143 2004-01-16 18:08:39 daniel
* Applied Peters patch
Revision 1.142 2004/01/15 23:16:32 daniel
+ Cleanup of stabstring generation code. Cleaner, faster, and compiler + Cleanup of stabstring generation code. Cleaner, faster, and compiler
executable reduced by 50 kb, executable reduced by 50 kb,