paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-21 06:59:51 +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 var
static_name : string; static_name : string;
isclassref : boolean; isclassref : boolean;
pobj : pobjectdef;
begin begin
if sym=nil then if sym=nil then
@ -1591,25 +1590,22 @@ unit pexpr;
postfixoperators; postfixoperators;
end; end;
_FILE : begin _FILE : begin
{ FILE can be also a type cast }
pd:=cfiledef; pd:=cfiledef;
consume(_FILE); consume(_FILE);
{ FILE can be also a type cast }
if token=LKLAMMER then if token=LKLAMMER then
begin begin
consume(LKLAMMER); consume(LKLAMMER);
p1:=comp_expr(true); p1:=comp_expr(true);
consume(RKLAMMER); consume(RKLAMMER);
p1:=gentypeconvnode(p1,pd); p1:=gentypeconvnode(p1,pd);
p1^.explizit:=true;
{ handle postfix operators here e.g. string(a)[10] }
again:=true;
postfixoperators;
end end
else else
begin p1:=gentypenode(pd);
p1:=genzeronode(typen);
p1^.resulttype:=pd;
end;
p1^.explizit:=true;
{ handle postfix operators here e.g. string(a)[10] }
again:=true;
postfixoperators;
end; end;
CSTRING : begin CSTRING : begin
p1:=genstringconstnode(pattern); p1:=genstringconstnode(pattern);
@ -1913,7 +1909,10 @@ unit pexpr;
end. end.
{ {
$Log$ $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 * bug fix for IOCHECK inside a procedure with iocheck modifier
* removed the GPF for unexistant overloading * removed the GPF for unexistant overloading
(firstcall was called with procedinition=nil !) (firstcall was called with procedinition=nil !)