Parcourir la source

--- Merging r14935 into '.':
U rtl/inc/except.inc

# revisions: 14935
------------------------------------------------------------------------
r14935 | paul | 2010-02-25 05:09:30 +0100 (Thu, 25 Feb 2010) | 1 line
Changed paths:
M /trunk/rtl/inc/except.inc

rtl: fix typos
------------------------------------------------------------------------

git-svn-id: branches/fixes_2_4@17641 -

marco il y a 14 ans
Parent
commit
42749daaf6
1 fichiers modifiés avec 2 ajouts et 2 suppressions
  1. 2 2
      rtl/inc/except.inc

+ 2 - 2
rtl/inc/except.inc

@@ -184,7 +184,7 @@ begin
 end;
 end;
 
 
 
 
-Function fpc_Raiseexception (Obj : TObject; AnAddr,AFrame : Pointer) : TObject;[Public, Alias : 'FPC_RAISEEXCEPTION']; compilerproc;
+Function fpc_RaiseException (Obj : TObject; AnAddr,AFrame : Pointer) : TObject;[Public, Alias : 'FPC_RAISEEXCEPTION']; compilerproc;
 var
 var
   _ExceptObjectStack : PExceptObject;
   _ExceptObjectStack : PExceptObject;
   _ExceptAddrstack : PExceptAddr;
   _ExceptAddrstack : PExceptAddr;
@@ -339,7 +339,7 @@ end;
 
 
 Procedure fpc_DestroyException(o : TObject);[Public, Alias : 'FPC_DESTROYEXCEPTION']; compilerproc;
 Procedure fpc_DestroyException(o : TObject);[Public, Alias : 'FPC_DESTROYEXCEPTION']; compilerproc;
 begin
 begin
-  { with free we're on the really save side }
+  { with free we're on the really safe side }
   o.Free;
   o.Free;
 end;
 end;