Browse Source

+ 169,170

peter 27 years ago
parent
commit
361452bb0f
3 changed files with 16 additions and 0 deletions
  1. 8 0
      bugs/bug0169.pp
  2. 6 0
      bugs/bug0170.pp
  3. 2 0
      bugs/readme.txt

+ 8 - 0
bugs/bug0169.pp

@@ -0,0 +1,8 @@
+type
+  psearchrec=^longint;
+
+Var Sr : PSearchrec;
+
+begin
+  Sr := New(PSearchRec);
+end.

+ 6 - 0
bugs/bug0170.pp

@@ -0,0 +1,6 @@
+begin
+asm
+	call {$ifdef dummy}freemem{$else}fpc_freemem{$endif}
+end;
+	
+end.

+ 2 - 0
bugs/readme.txt

@@ -216,7 +216,9 @@ bug0124.pp   Asm, problem with -Rintel switch and indexing (whatever the order)
 bug0153.pp   Asm, indexing a local/para var should produce an error like tp7
              because it's doomed to crash
 bug0155.pp   Asm, Missing string return for asm functions
+bug0170.pp   Asm, {$ifdef} is seen as a separator
 
 bug0152.pp   End value of loop variable must be calculated before loop
              variable is initialized.
 bug0163.pp   missing <= and >= operators for sets.
+bug0169.pp   missing new(type) support for not object/class