Browse Source

*** empty log message ***

florian 26 years ago
parent
commit
49116ec660
2 changed files with 0 additions and 27 deletions
  1. 0 24
      bugs/bug0200.pp
  2. 0 3
      bugs/readme.txt

+ 0 - 24
bugs/bug0200.pp

@@ -1,24 +0,0 @@
-PROGRAM PRTest;
-
-TYPE
-  ptRec = ^tRec;
-  tRec = Record
-           D : DWORD;
-         END;
-
-VAR
-  pR1, pR2 : ptRec;
-BEGIN
-  GetMem(pR1, SizeOf(tRec));
-  GetMem(pR2, SizeOf(tRec));
-
-  pR1^.D := 10;
-  Move(pR1^,pR2^,SizeOf(tRec));
-  WriteLn(pR1^.D:16,pR2^.D:16);
-
-  pR1^.D := 1;
-  pR2^.D := pR1^.D*2;			{ THE BUG IS HERE }
-  WriteLn(pR1^.D:16,pR2^.D:16);
-  if (pR1^.D<>1) or (pR2^.D<>2) then
-    Halt(1);
-END.

+ 0 - 3
bugs/readme.txt

@@ -246,7 +246,6 @@ bug0155.pp   Asm, Missing string return for asm functions
               complex return values are not allowed for assembler
               complex return values are not allowed for assembler
               functions (PM) )
               functions (PM) )
 
 
-
 Unfixed bugs:
 Unfixed bugs:
 -------------
 -------------
 bug0123.pp   Asm, problem with intel assembler (shrd)
 bug0123.pp   Asm, problem with intel assembler (shrd)
@@ -265,5 +264,3 @@ bug0193.pp   overflow checking for 8 and 16 bit operations wrong
 bug0196.pp   "function a;" is accepted (should require result type)
 bug0196.pp   "function a;" is accepted (should require result type)
 bug0198.pp   calling specifications aren't allowed in class declarations,
 bug0198.pp   calling specifications aren't allowed in class declarations,
              this should be allowed
              this should be allowed
-bug0200.pp   problem with constant strings which exceed length of pascal
-             strings