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

* call "message" rather than "cgmessage" when throwing fatal errors, because

Browse Source 
cgmessage won't do anything in case cgerror is already set (and in several
    places we assume that the compiler will immediately abort after throwing a
    fatal error)

git-svn-id: trunk@28229 -
This commit is contained in:
Jonas Maebe 2014-07-18 09:09:21 +00:00
parent 9e29fd424d
commit 4ff597afae
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/symtable.pas
View File

@ -3069,7 +3069,7 @@ implementation
sym:=tsym(systemunit.Find(s));
if not assigned(sym) or
(sym.typ<>typesym) then
cgmessage1(cg_f_unknown_system_type,s);
message1(cg_f_unknown_system_type,s);
result:=ttypesym(sym);
end;
@ -3084,7 +3084,7 @@ implementation
else
begin
if sym.typ<>typesym then
cgmessage1(cg_f_unknown_system_type,s);
message1(cg_f_unknown_system_type,s);
result:=ttypesym(sym);
end;
end;
@ -3100,7 +3100,7 @@ implementation
srsym:=tsym(systemunit.Find(upper(s)));
if not assigned(srsym) or
(srsym.typ<>procsym) then
cgmessage1(cg_f_unknown_compilerproc,s);
message1(cg_f_unknown_compilerproc,s);
result:=tprocdef(tprocsym(srsym).procdeflist[0]);
end;
@ -3120,7 +3120,7 @@ implementation
else
begin
if throwerror then
cgmessage2(cg_f_unknown_type_in_unit,typename,unitname);
message2(cg_f_unknown_type_in_unit,typename,unitname);
result:=nil;
end;
end;

2
compiler/wpoinfo.pas
View File

@ -142,7 +142,7 @@ implementation
begin
{ load start of definition section, which holds the amount of defs }
if ppufile.readentry<>ibcreatedobjtypes then
cgmessage(unit_f_ppu_read_error);
message(unit_f_ppu_read_error);
{ don't load the wpo info from the units if we are not generating
a wpo feedback file (that would just take time and memory)