paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-17 22:11:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

* parameters to FPC_TYPED_WRITE can't be regvars (merged)

Browse Source
This commit is contained in:
Jonas Maebe 2001-08-06 12:47:31 +00:00
parent 820836e42a
commit a18acc21b2
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ninl.pas
View File

@ -805,7 +805,8 @@ implementation
(is_chararray(tcallparanode(hpp).left.resulttype.def)) then
tcallparanode(hpp).gen_high_tree(true);
{ read(ln) is call by reference (JM) }
if not iswrite then
{ and so is the data param of FPC_TYPED_WRITE (JM) }
if not iswrite or file_is_typed then
make_not_regable(tcallparanode(hpp).left);
hpp:=tcallparanode(hpp).right;
end;
@ -1792,7 +1793,10 @@ begin
end.
{
$Log$
Revision 1.45 2001-08-06 09:44:10 jonas
Revision 1.46 2001-08-06 12:47:31 jonas
* parameters to FPC_TYPED_WRITE can't be regvars (merged)
Revision 1.45 2001/08/06 09:44:10 jonas
+ support for high(dynarray) using compilerproc (forgot to commit
previously)