Browse 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 14 years ago
parent
commit
42749daaf6
1 changed files with 2 additions and 2 deletions
  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;