paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 13:49:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed buffer overrun in TExternalAssembler.AsmWrite(ansistring) in case the

Browse Source 
ansistring's length is > AsmOutSize

git-svn-id: branches/jvmbackend@19637 -
This commit is contained in:
Jonas Maebe 2011-11-14 22:57:34 +00:00
parent c42e4178c5
commit 38c090c1a2
1 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/assemble.pas
View File

@ -480,14 +480,27 @@ Implementation
Procedure TExternalAssembler.AsmWrite(const s:ansistring); Procedure TExternalAssembler.AsmWrite(const s:ansistring);
var
StartIndex, ToWrite: longint;
begin begin
if s='' then if s='' then
exit; exit;
if OutCnt+length(s)>=AsmOutSize then if OutCnt+length(s)>=AsmOutSize then
AsmFlush; AsmFlush;
Move(s[1],OutBuf[OutCnt],length(s)); StartIndex:=1;
inc(OutCnt,length(s)); ToWrite:=length(s);
inc(AsmSize,length(s)); while ToWrite>AsmOutSize do
begin
Move(s[StartIndex],OutBuf[OutCnt],AsmOutSize);
inc(OutCnt,AsmOutSize);
inc(AsmSize,AsmOutSize);
AsmFlush;
inc(StartIndex,AsmOutSize);
dec(ToWrite,AsmOutSize);
end;
Move(s[StartIndex],OutBuf[OutCnt],ToWrite);
inc(OutCnt,ToWrite);
inc(AsmSize,ToWrite);
end; end;