* outofmemory exception bug

tests/tbs/tb0357.pp

@@ -0,0 +1,12 @@
+{$ifdef fpc}{$MODE OBJFPC}{$endif}
+uses sysutils;
+var
+  p:pointer;
+begin
+  try
+    getmem(p, 1000000000);
+  except
+    on eoutofmemory do writeln('out of memory!');
+  end;
+  writeln('program lasts...')
+end.