소스 검색

+ 169,170

peter 27 년 전
부모
커밋
361452bb0f
3개의 변경된 파일16개의 추가작업 그리고 0개의 파일을 삭제
  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