From bfb7d91b74c9ad64e87c71f4e5345d2e0d23ff8f Mon Sep 17 00:00:00 2001
From: paul <paul@idefix.freepascal.org>
Date: Thu, 25 Feb 2010 04:09:30 +0000
Subject: [PATCH] rtl: fix typos

git-svn-id: trunk@14935 -
---
 rtl/inc/except.inc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/rtl/inc/except.inc b/rtl/inc/except.inc
index 2abdd47ed1..4b6e856951 100644
--- a/rtl/inc/except.inc
+++ b/rtl/inc/except.inc
@@ -184,7 +184,7 @@ begin
 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
   _ExceptObjectStack : PExceptObject;
   _ExceptAddrstack : PExceptAddr;
@@ -339,7 +339,7 @@ end;
 
 Procedure fpc_DestroyException(o : TObject);[Public, Alias : 'FPC_DESTROYEXCEPTION']; compilerproc;
 begin
-  { with free we're on the really save side }
+  { with free we're on the really safe side }
   o.Free;
 end;