peter 27 éve
szülő
commit
361452bb0f
3 módosított fájl, 16 hozzáadás és 0 törlés
  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
 bug0153.pp   Asm, indexing a local/para var should produce an error like tp7
              because it's doomed to crash
              because it's doomed to crash
 bug0155.pp   Asm, Missing string return for asm functions
 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
 bug0152.pp   End value of loop variable must be calculated before loop
              variable is initialized.
              variable is initialized.
 bug0163.pp   missing <= and >= operators for sets.
 bug0163.pp   missing <= and >= operators for sets.
+bug0169.pp   missing new(type) support for not object/class