Bladeren bron

* unified internalerror
* cosmetics

git-svn-id: trunk@36944 -

florian 8 jaren geleden
bovenliggende
commit
b948a0738c
2 gewijzigde bestanden met toevoegingen van 2 en 2 verwijderingen
  1. 1 1
      compiler/hlcgobj.pas
  2. 1 1
      compiler/paramgr.pas

+ 1 - 1
compiler/hlcgobj.pas

@@ -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

+ 1 - 1
compiler/paramgr.pas

@@ -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
                (