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

* better error recovering

Browse Source 
git-svn-id: trunk@490 -
This commit is contained in:
florian 2005-06-25 09:08:19 +00:00
parent 4292e7f939
commit c6ad403a04
1 changed files with 22 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
compiler/nutils.pas
View File

@ -304,10 +304,13 @@ implementation
begin
result:=cloadnode.create(srsym,srsymtable);
include(result.flags,nf_is_self);
resulttypepass(result);
end
else
CGMessage(parser_e_illegal_expression);
begin
result:=cerrornode.create;
CGMessage(parser_e_illegal_expression);
end;
resulttypepass(result);
end;
@ -319,12 +322,13 @@ implementation
result:=nil;
searchsym('result',srsym,srsymtable);
if assigned(srsym) then
begin
result:=cloadnode.create(srsym,srsymtable);
resulttypepass(result);
end
result:=cloadnode.create(srsym,srsymtable)
else
CGMessage(parser_e_illegal_expression);
begin
result:=cerrornode.create;
CGMessage(parser_e_illegal_expression);
end;
resulttypepass(result);
end;
@ -339,10 +343,13 @@ implementation
begin
result:=cloadnode.create(srsym,srsymtable);
include(result.flags,nf_load_self_pointer);
resulttypepass(result);
end
else
CGMessage(parser_e_illegal_expression);
begin
result:=cerrornode.create;
CGMessage(parser_e_illegal_expression);
end;
resulttypepass(result);
end;
@ -354,12 +361,13 @@ implementation
result:=nil;
searchsym('vmt',srsym,srsymtable);
if assigned(srsym) then
begin
result:=cloadnode.create(srsym,srsymtable);
resulttypepass(result);
end
result:=cloadnode.create(srsym,srsymtable)
else
CGMessage(parser_e_illegal_expression);
begin
result:=cerrornode.create;
CGMessage(parser_e_illegal_expression);
end;
resulttypepass(result);
end;