rtl: fix typos

git-svn-id: trunk@14935 -

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;