Browse Source

- 195 which is not a bug

peter 26 years ago
parent
commit
fab0558e0c
2 changed files with 8 additions and 6 deletions
  1. 5 1
      bugs/bug0195.pp
  2. 3 5
      bugs/readme.txt

+ 5 - 1
bugs/bug0195.pp

@@ -14,8 +14,12 @@ begin
    getmem(p, w);
    getmem(p, w);
 
 
    {---runtime-error!------}
    {---runtime-error!------}
-   getimage(0,0,111,111, p);
+   { getimage(0,0,111,111, p); }
    {-----------------------}
    {-----------------------}
+   
+   { This is the correct usage (PFV) }
+   getimage(0,0,111,111, p^);
+   
 
 
    freemem(p, w);
    freemem(p, w);
    closegraph;
    closegraph;

+ 3 - 5
bugs/readme.txt

@@ -195,11 +195,7 @@ Fixed bugs:
   bug0166.pp   forward type used in declaration crashes instead of error OK 0.99.9 (PFV)
   bug0166.pp   forward type used in declaration crashes instead of error OK 0.99.9 (PFV)
   bug0167.pp   crash when declaring a procedure with same name as object OK 0.99.9 (PFV)
   bug0167.pp   crash when declaring a procedure with same name as object OK 0.99.9 (PFV)
   bug0168.pp   set:=set+element is allowed (should be: set:=set+[element]) OK 0.99.9 (PFV)
   bug0168.pp   set:=set+element is allowed (should be: set:=set+[element]) OK 0.99.9 (PFV)
-<<<<<<< readme.txt
   bug0169.pp   missing new(type) support for not object/class             OK 0.99.9 (PM)
   bug0169.pp   missing new(type) support for not object/class             OK 0.99.9 (PM)
-=======
-  bug0169.pp   missing new(type) support for not object/class        OK 0.99.9 (PM)
->>>>>>> 1.86
   bug0170.pp   Asm, {$ifdef} is seen as a separator                  OK 0.99.9 (PFV)
   bug0170.pp   Asm, {$ifdef} is seen as a separator                  OK 0.99.9 (PFV)
   bug0172.pp   with with absolute seg:ofs should not be possible OK 0.99.9 (PM)
   bug0172.pp   with with absolute seg:ofs should not be possible OK 0.99.9 (PM)
   bug0173.pp   secondbug is parsed as asm, but should be normal pascalcode OK 0.99.9 (PFV)
   bug0173.pp   secondbug is parsed as asm, but should be normal pascalcode OK 0.99.9 (PFV)
@@ -222,6 +218,9 @@ Fixed bugs:
                As bug0188 FPC syntax problem see source (PM)
                As bug0188 FPC syntax problem see source (PM)
   bug0192.pp   can't compare boolean result with true/false, because the
   bug0192.pp   can't compare boolean result with true/false, because the
                boolean result is already in the flags             OK 0.99.11 (PFV)
                boolean result is already in the flags             OK 0.99.11 (PFV)
+  bug0195.pp   Problem with Getimage, crash of DOS box, even with dpmiexcp!! (PFV)
+               Not a bug, you must use p^.
+	       
 
 
 Unproducable bugs:
 Unproducable bugs:
 ------------------
 ------------------
@@ -260,7 +259,6 @@ bug0190.pp   can't have typecast for var params ??
 bug0191.pp   missing vecn constant evaluation
 bug0191.pp   missing vecn constant evaluation
 bug0193.pp   overflow checking for 8 and 16 bit operations wrong
 bug0193.pp   overflow checking for 8 and 16 bit operations wrong
 bug0194.pp   @procedure var returns value in it instead of address !!
 bug0194.pp   @procedure var returns value in it instead of address !!
-bug0195.pp   Problem with Getimage, crash of DOS box, even with dpmiexcp!!
 bug0196.pp   "function a;" is accepted (should require result type)
 bug0196.pp   "function a;" is accepted (should require result type)
 bug0197.pp   should produce an error: problem with c1:=c2<c3 where c? is
 bug0197.pp   should produce an error: problem with c1:=c2<c3 where c? is
              a comp type
              a comp type