paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-05-31 03:02:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

* unified internalerror

Browse Source 
* cosmetics

git-svn-id: trunk@36944 -
This commit is contained in:
florian 2017-08-20 15:21:46 +00:00
parent 50f3479f64
commit b948a0738c
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/hlcgobj.pas
View File

@ -1052,7 +1052,7 @@ implementation
LOC_REFERENCE,LOC_CREFERENCE:
begin
if assigned(location^.next) then
internalerror(2010052906);
internalerror(2017073001);
reference_reset_base(ref,voidstackpointertype,location^.reference.index,location^.reference.offset,newalignment(cgpara.alignment,cgpara.intsize-sizeleft),[]);
if (def_cgsize(size)<>OS_NO) and
(size.size=sizeleft) and

2
compiler/paramgr.pas
View File

@ -627,7 +627,7 @@ implementation
if ((tf_safecall_exceptions in target_info.flags) and
(pd.proccalloption=pocall_safecall)) or
(
(pd.proctypeoption=potype_constructor)and
(pd.proctypeoption=potype_constructor) and
(
is_record(def) or
(