mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-18 13:29:19 +02:00
* call set_varstate for setlength
* ptr returns pointerconstnode instead of ordconstnode
This commit is contained in:
parent
a14d8618da
commit
b36f87d7aa
@ -313,7 +313,7 @@ implementation
|
|||||||
if isreal then
|
if isreal then
|
||||||
CGMessage(type_e_mismatch)
|
CGMessage(type_e_mismatch)
|
||||||
else
|
else
|
||||||
hp:=cordconstnode.create((vl2 shl 4)+vl,voidfarpointertype);
|
hp:=cpointerconstnode.create((vl2 shl 4)+vl,voidfarpointertype);
|
||||||
end;
|
end;
|
||||||
in_const_sqrt :
|
in_const_sqrt :
|
||||||
begin
|
begin
|
||||||
@ -634,6 +634,7 @@ implementation
|
|||||||
{ check type }
|
{ check type }
|
||||||
while assigned(ppn.right) do
|
while assigned(ppn.right) do
|
||||||
begin
|
begin
|
||||||
|
set_varstate(ppn.left,true);
|
||||||
inserttypeconv(ppn.left,s32bittype);
|
inserttypeconv(ppn.left,s32bittype);
|
||||||
inc(counter);
|
inc(counter);
|
||||||
ppn:=tcallparanode(ppn.right);
|
ppn:=tcallparanode(ppn.right);
|
||||||
@ -1720,7 +1721,11 @@ begin
|
|||||||
end.
|
end.
|
||||||
{
|
{
|
||||||
$Log$
|
$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
|
* symtable change to classes
|
||||||
* range check generation and errors fixed, make cycle DEBUG=1 works
|
* range check generation and errors fixed, make cycle DEBUG=1 works
|
||||||
* memory leaks fixed
|
* memory leaks fixed
|
||||||
|
Loading…
Reference in New Issue
Block a user