* reported bugs

tests/webtbs/tw1295.pp

@@ -0,0 +1,12 @@
+USES DOS;
+var
+  d : longint;
+BEGIN
+   {$I-}
+   d:=DISKSIZE(1);
+   writeln(d);
+   WRITELN(IORESULT);
+   {$I+}
+   if d<>-1 then
+    halt(1);
+END.

tests/webtbs/tw1299.pp

@@ -0,0 +1,8 @@
+{$mode fpc}
+
+{$IFDEF fpc}
+{$ELSE}
+'{'
+{$ENDIF}
+begin
+end.