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

* ugly fix for STRCAT, nevertheless it needs more fixing !!!!!!!

Browse Source 
we need an new version of STRCAT which takes a length parameter
This commit is contained in:
florian 1998-09-04 10:05:04 +00:00
parent 6f729ef9af
commit 9d247d5a18
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/cg386add.pas
View File

@ -213,10 +213,7 @@ implementation
end
else }
begin
if p^.use_strconcat then
pushusedregisters(pushedregs,pstringdef(p^.left^.resulttype)^.len)
else
pushusedregisters(pushedregs,$ff);
pushusedregisters(pushedregs,$ff);
emitpushreferenceaddr(exprasmlist,p^.left^.location.reference);
emitpushreferenceaddr(exprasmlist,p^.right^.location.reference);
emitcall('STRCONCAT',true);
@ -1280,7 +1277,11 @@ implementation
end.
{
$Log$
Revision 1.9 1998-09-04 08:41:36 peter
Revision 1.10 1998-09-04 10:05:04 florian
* ugly fix for STRCAT, nevertheless it needs more fixing !!!!!!!
we need an new version of STRCAT which takes a length parameter
Revision 1.9 1998/09/04 08:41:36 peter
* updated some error messages
Revision 1.8 1998/08/28 10:54:18 peter