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

Merged revisions 798 via svnmerge from

Browse Source 
/trunk

git-svn-id: branches/fixes_2_0@799 -
This commit is contained in:
florian 2005-08-05 20:20:52 +00:00
parent dfe9b3d6b9
commit 225a263b67
3 changed files with 54 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -5333,6 +5333,7 @@ tests/webtbf/tw4111.pp svneol=native#text/plain
tests/webtbf/tw4139.pp svneol=native#text/plain
tests/webtbf/tw4144.pp svneol=native#text/plain
tests/webtbf/tw4153.pp svneol=native#text/plain
tests/webtbf/tw4256.pp svneol=native#text/plain
tests/webtbf/uw0744.pp svneol=native#text/plain
tests/webtbf/uw0840a.pp svneol=native#text/plain
tests/webtbf/uw0840b.pp svneol=native#text/plain

2
compiler/pstatmnt.pas
View File

@ -704,7 +704,7 @@ implementation
{ catch specific exceptions }
begin
repeat
consume(_ID);
consume(_ON);
if token=_ID then
begin
objname:=pattern;

52
tests/webtbf/tw4256.pp Normal file
View File

@ -0,0 +1,52 @@
{ %FAIL }
{ Source provided for Free Pascal Bug Report 4256 }
{ Submitted by "Gerhard" on 2005-08-04 }
{ e-mail: gs@g--s.de }
{$r+,q+,s+}
{ $r-,q-,s-}
{$mode objfpc}
PROGRAM btryon ;
USES
SysUtils ;
FUNCTION testop1 ( param1,
param2 : int64 ) : Boolean ;
BEGIN
testop1 := param1 = param1 / param2 ; { just some nonsense }
END ;
PROCEDURE doit ;
VAR
s2 : STRING ;
BEGIN
s2 := '' ;
TRY
TRY
WriteLn ( testop1 ( 3, 0 ) ) ;
EXCEPT
ON eintoverflow DO
s2 := 'overflow' ;
aPPLEtREE erangeerror DO
s2 := 'range error' ;
ONonONonONonONonONonONonONonONonONonONonONonOnONon edivbyzero DO
s2 := 'zdiv error' ;
________________________________________________ON einvalidop DO
s2 := 'invalid op error' ;
ELSE
s2 := 'unknown exception' ;
END ;
FINALLY ;
END ;
WriteLn ( s2 ) ;
END ;
BEGIN
doit ;
END.