paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-19 22:29:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed read temp for result

Browse Source
This commit is contained in:
peter 2004-11-26 22:33:00 +00:00
parent cc33cec223
commit 08d0d3b73c
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/ninl.pas
View File

@ -77,7 +77,7 @@ implementation
uses
verbose,globals,systems,
globtype, cutils,
symbase,symconst,symdef,symsym,symtable,paramgr,defutil,
symconst,symdef,symsym,symtable,paramgr,defutil,
pass_1,
ncal,ncon,ncnv,nadd,nld,nbas,nflw,nmem,nmat,nutils,
cgbase,procinfo
@ -311,7 +311,6 @@ implementation
procprefix,
name : string[31];
textsym : ttypesym;
tempowner : tsymtable;
readfunctype : ttype;
is_typed,
do_read,
@ -524,7 +523,7 @@ implementation
begin
{ create temp for result }
temp := ctempcreatenode.create(para.left.resulttype,
para.left.resulttype.def.size,tt_persistent,true);
para.left.resulttype.def.size,tt_persistent,false);
addstatement(newstatement,temp);
{ assign result to temp }
addstatement(newstatement,
@ -1191,7 +1190,6 @@ implementation
hightree,
hp : tnode;
srsym : tsym;
isreal : boolean;
checkrange : boolean;
label
myexit;
@ -2465,7 +2463,10 @@ begin
end.
{
$Log$
Revision 1.154 2004-11-21 21:27:31 peter
Revision 1.155 2004-11-26 22:33:00 peter
* fixed read temp for result
Revision 1.154 2004/11/21 21:27:31 peter
* add checks for filedef type to prevent crashes
Revision 1.153 2004/11/21 17:54:59 peter