Bladeren bron

Use HandleError instead of RunError in fpc_help_destructor, fpc_check_object and fpc_check_object_ext

git-svn-id: trunk@36113 -
pierre 8 jaren geleden
bovenliggende
commit
d2d1794b40
1 gewijzigde bestanden met toevoegingen van 4 en 4 verwijderingen
  1. 4 4
      rtl/inc/generic.inc

+ 4 - 4
rtl/inc/generic.inc

@@ -793,7 +793,7 @@ begin
      exit;
    if (pobjectvmt(ppointer(_self+vmt_pos)^)^.size=0) or
       (pobjectvmt(ppointer(_self+vmt_pos)^)^.size+pobjectvmt(ppointer(_self+vmt_pos)^)^.msize<>0) then
-     RunError(210);
+     HandleError(210);
    { reset vmt to nil for protection }
    ppointer(_self+vmt_pos)^:=nil;
    freemem(_self);
@@ -832,7 +832,7 @@ begin
   if (_vmt=nil) or
      (pobjectvmt(_vmt)^.size=0) or
      (pobjectvmt(_vmt)^.size+pobjectvmt(_vmt)^.msize<>0) then
-    RunError(210);
+    HandleError(210);
 end;
 
 {$endif ndef FPC_SYSTEM_HAS_FPC_CHECK_OBJECT}
@@ -847,7 +847,7 @@ begin
    if (vmt=nil) or
       (pobjectvmt(vmt)^.size=0) or
       (pobjectvmt(vmt)^.size+pobjectvmt(vmt)^.msize<>0) then
-        RunError(210);
+        HandleError(210);
    while assigned(vmt) do
      if vmt=expvmt then
        exit
@@ -860,7 +860,7 @@ begin
        else
          vmt:=nil;
        {$endif}
-   RunError(219);
+   HandleError(219);
 end;
 {$endif not FPC_SYSTEM_HAS_FPC_CHECK_OBJECT_EXT}