diff --git a/compiler/ninl.pas b/compiler/ninl.pas index 9093790863..363b973e34 100644 --- a/compiler/ninl.pas +++ b/compiler/ninl.pas @@ -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