paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-22 18:39:30 +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 uses
verbose,globals,systems, verbose,globals,systems,
globtype, cutils, globtype, cutils,
symbase,symconst,symdef,symsym,symtable,paramgr,defutil, symconst,symdef,symsym,symtable,paramgr,defutil,
pass_1, pass_1,
ncal,ncon,ncnv,nadd,nld,nbas,nflw,nmem,nmat,nutils, ncal,ncon,ncnv,nadd,nld,nbas,nflw,nmem,nmat,nutils,
cgbase,procinfo cgbase,procinfo
@ -311,7 +311,6 @@ implementation
procprefix, procprefix,
name : string[31]; name : string[31];
textsym : ttypesym; textsym : ttypesym;
tempowner : tsymtable;
readfunctype : ttype; readfunctype : ttype;
is_typed, is_typed,
do_read, do_read,
@ -524,7 +523,7 @@ implementation
begin begin
{ create temp for result } { create temp for result }
temp := ctempcreatenode.create(para.left.resulttype, 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); addstatement(newstatement,temp);
{ assign result to temp } { assign result to temp }
addstatement(newstatement, addstatement(newstatement,
@ -1191,7 +1190,6 @@ implementation
hightree, hightree,
hp : tnode; hp : tnode;
srsym : tsym; srsym : tsym;
isreal : boolean;
checkrange : boolean; checkrange : boolean;
label label
myexit; myexit;
@ -2465,7 +2463,10 @@ begin
end. end.
{ {
$Log$ $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 * add checks for filedef type to prevent crashes
Revision 1.153 2004/11/21 17:54:59 peter Revision 1.153 2004/11/21 17:54:59 peter