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

* fixed RunErrorToExcept for EControlC and EPrivilege

Browse Source 
git-svn-id: trunk@5499 -
This commit is contained in:
Vincent Snijders 2006-11-26 21:09:31 +00:00
parent eb46534f92
commit c4b458b2f0
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/objpas/sysutils/sysutils.inc
View File

@ -293,8 +293,8 @@ begin
214 : E:=EBusError.Create(SBusError);
215 : E:=EIntOverflow.Create(SIntOverflow);
216 : E:=EAccessViolation.Create(SAccessViolation);
217 : E:=EPrivilege.Create(SPrivilege);
218 : E:=EControlC.Create(SControlC);
217 : E:=EControlC.Create(SControlC);
218 : E:=EPrivilege.Create(SPrivilege);
219 : E:=EInvalidCast.Create(SInvalidCast);
220 : E:=EVariantError.Create(SInvalidVarCast);
221 : E:=EVariantError.Create(SInvalidVarOp);