*** empty log message ***

bugs/bug0139.pp

@@ -1,4 +1,4 @@
-unit unit2;
+unit bug0139;
  
  interface
  uses
@@ -18,4 +18,4 @@ unit unit2;
                          //  method from here " ( or something similar )
  end ;
 
-end.
+end.

bugs/bug0139a.pp

@@ -1,4 +1,4 @@
- unit bug0139a;
+unit bug0139a;
  
  interface
  
@@ -19,4 +19,4 @@
    Writeln ('Hello from SomeClass.DoSomething');
  end ;
 
-end.
+end.

bugs/bug0187.pp

@@ -40,7 +40,7 @@ end;
 
 var     base            : Tbaseclass;
         other           : Totherclass;
-        asmrec          : Tasmrec;
+        // asmrec          : Tasmrec;
         testfield       : longint;
 
 begin

bugs/bug0195.pp

@@ -0,0 +1,23 @@
+uses graph,dpmiexcp;
+var
+   GDriver, GMode: Integer;
+   w:word;
+   p:pointer;
+begin
+   GDriver := $FF;
+   GMode := $101;
+   InitGraph(GDriver, GMode, '');
+   if (GraphResult <> grOK) then
+     Halt(0);
+   rectangle(0,0,getmaxx,getmaxy);
+   w := imagesize(0,0,111,111);
+   getmem(p, w);
+
+   {---runtime-error!------}
+   getimage(0,0,111,111, p);
+   {-----------------------}
+
+   freemem(p, w);
+   closegraph;
+   readln;
+end.

bugs/readme.txt

@@ -260,3 +260,4 @@ bug0190.pp   can't have typecast for var params ??
 bug0191.pp   missing vecn constant evaluation
 bug0193.pp   overflow checking for 8 and 16 bit operations wrong
 bug0194.pp   @procedure var returns value in it instead of address !!
+bug0195.pp   Problem with Putimage, crash of DOS box, even with dpmiexcp!!