paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 14:29:44 +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

9
compiler/cg386add.pas
View File

@ -213,9 +213,6 @@ implementation
end end
else } else }
begin 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^.left^.location.reference);
emitpushreferenceaddr(exprasmlist,p^.right^.location.reference); emitpushreferenceaddr(exprasmlist,p^.right^.location.reference);
@ -1280,7 +1277,11 @@ implementation
end. end.
{ {
$Log$ $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 * updated some error messages
Revision 1.8 1998/08/28 10:54:18 peter Revision 1.8 1998/08/28 10:54:18 peter