diff options
| author | florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-12-14 21:55:42 +0000 |
|---|---|---|
| committer | florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-12-14 21:55:42 +0000 |
| commit | ebb01bc616e6e6e3d017b1db9c0b54fa711c5cf7 (patch) | |
| tree | 1eb936b79e5edd81b8927d7970e9291c5b3477cd /rtl/inc | |
| parent | fe5c81c839ec02782961b9f0eee473785923b2f5 (diff) | |
| download | fpc-ebb01bc616e6e6e3d017b1db9c0b54fa711c5cf7.tar.gz | |
- remove could which prevented that rte is triggered even if we are inside
an exception block but *without* using sysutils. The remove code
was once added to have primitive exception handling even if
no sysutils is used. But if this is desired, an appropriate handler
to ErrorProc should be assigned. Resolves #38201
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@47775 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'rtl/inc')
| -rw-r--r-- | rtl/inc/system.inc | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/rtl/inc/system.inc b/rtl/inc/system.inc index 9b1f7932e1..6dbf9d73fc 100644 --- a/rtl/inc/system.inc +++ b/rtl/inc/system.inc @@ -1327,10 +1327,6 @@ begin errorcode:=word(Errno); erroraddr:=addr; errorbase:=frame; -{$ifdef FPC_HAS_FEATURE_EXCEPTIONS} - if ExceptAddrStack <> nil then - raise TObject(nil) at addr,frame; -{$endif FPC_HAS_FEATURE_EXCEPTIONS} Halt(errorcode); end; |