paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-20 23:59:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed filedef for typenodetype

Browse Source
This commit is contained in:
peter 1998-10-22 23:57:29 +00:00
parent 87d00c3da9
commit e659040083
1 changed files with 13 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/pexpr.pas
View File

@ -630,7 +630,6 @@ unit pexpr;
var
static_name : string;
isclassref : boolean;
pobj : pobjectdef;
begin
if sym=nil then
@ -1591,25 +1590,22 @@ unit pexpr;
postfixoperators;
end;
_FILE : begin
{ FILE can be also a type cast }
pd:=cfiledef;
consume(_FILE);
{ FILE can be also a type cast }
if token=LKLAMMER then
begin
consume(LKLAMMER);
p1:=comp_expr(true);
consume(RKLAMMER);
p1:=gentypeconvnode(p1,pd);
p1^.explizit:=true;
{ handle postfix operators here e.g. string(a)[10] }
again:=true;
postfixoperators;
end
else
begin
p1:=genzeronode(typen);
p1^.resulttype:=pd;
end;
p1^.explizit:=true;
{ handle postfix operators here e.g. string(a)[10] }
again:=true;
postfixoperators;
p1:=gentypenode(pd);
end;
CSTRING : begin
p1:=genstringconstnode(pattern);
@ -1913,7 +1909,10 @@ unit pexpr;
end.
{
$Log$
Revision 1.70 1998-10-21 15:12:54 pierre
Revision 1.71 1998-10-22 23:57:29 peter
* fixed filedef for typenodetype
Revision 1.70 1998/10/21 15:12:54 pierre
* bug fix for IOCHECK inside a procedure with iocheck modifier
* removed the GPF for unexistant overloading
(firstcall was called with procedinition=nil !)