+ support exit();

git-svn-id: trunk@1802 -

.gitattributes

@@ -6372,6 +6372,7 @@ tests/webtbs/tw4477.pp svneol=native#text/plain
 tests/webtbs/tw4487.pp -text svneol=unset#text/plain
 tests/webtbs/tw4489.pp -text svneol=unset#text/plain
 tests/webtbs/tw4496.pp svneol=native#text/plain
+tests/webtbs/tw4537.pp svneol=native#text/plain
 tests/webtbs/ub1873.pp svneol=native#text/plain
 tests/webtbs/ub1883.pp svneol=native#text/plain
 tests/webtbs/uw0555.pp svneol=native#text/plain

compiler/pexpr.pas

@@ -376,6 +376,8 @@ implementation
               if try_to_consume(_LKLAMMER) then
                 begin
                   if not (m_mac in aktmodeswitches) then
+                    begin
+                      if not(try_to_consume(_RKLAMMER)) then
                         begin
                           p1:=comp_expr(true);
                           consume(_RKLAMMER);
@@ -395,6 +397,9 @@ implementation
                               p1:=nil;
                             end;
                         end
+                      else
+                        p1:=nil;
+                    end
                   else
                     begin
                       if not (current_procinfo.procdef.procsym.name = pattern) then

tests/webtbs/tw4537.pp

@@ -0,0 +1,12 @@
+procedure foo;
+  begin
+    exit();
+  end;
+
+function bar: integer;
+  begin
+    exit(42);
+  end;
+  
+begin
+end.