paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 08:46:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* call set_varstate for setlength

Browse Source 
* ptr returns pointerconstnode instead of ordconstnode
This commit is contained in:
peter 2001-04-13 22:22:30 +00:00
parent a14d8618da
commit b36f87d7aa
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/ninl.pas
View File

@ -313,7 +313,7 @@ implementation
if isreal then
CGMessage(type_e_mismatch)
else
hp:=cordconstnode.create((vl2 shl 4)+vl,voidfarpointertype);
hp:=cpointerconstnode.create((vl2 shl 4)+vl,voidfarpointertype);
end;
in_const_sqrt :
begin
@ -634,6 +634,7 @@ implementation
{ check type }
while assigned(ppn.right) do
begin
set_varstate(ppn.left,true);
inserttypeconv(ppn.left,s32bittype);
inc(counter);
ppn:=tcallparanode(ppn.right);
@ -1720,7 +1721,11 @@ begin
end.
{
$Log$
Revision 1.36 2001-04-13 01:22:09 peter
Revision 1.37 2001-04-13 22:22:30 peter
* call set_varstate for setlength
* ptr returns pointerconstnode instead of ordconstnode
Revision 1.36 2001/04/13 01:22:09 peter
* symtable change to classes
* range check generation and errors fixed, make cycle DEBUG=1 works
* memory leaks fixed