paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 03:09:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

rtl: fix typos

Browse Source 
git-svn-id: trunk@14935 -
This commit is contained in:
paul 2010-02-25 04:09:30 +00:00
parent c235307643
commit bfb7d91b74
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/except.inc
View File

@ -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;