mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 21:28:21 +02:00
* update
This commit is contained in:
parent
47e2ecfe68
commit
b9a0b3108a
@ -1175,6 +1175,22 @@ $(DOTEST) : utils/dotest.pp utils/redir.pp
|
||||
|
||||
testcheck: units $(DOTEST)
|
||||
|
||||
#
|
||||
# Dotest options
|
||||
#
|
||||
|
||||
ifneq ($(FPC),ppc386)
|
||||
override DOTESTOPT+=-c$(FPC)
|
||||
endif
|
||||
|
||||
ifdef GRAPH
|
||||
override DOTESTOPT+=-g
|
||||
endif
|
||||
|
||||
ifdef INTERACTIVE
|
||||
override DOTESTOPT+=-i
|
||||
endif
|
||||
|
||||
#
|
||||
# Test run targets
|
||||
#
|
||||
@ -1188,11 +1204,14 @@ tests : clean all_compilations
|
||||
cont_tests : all_compilations
|
||||
|
||||
%.log : %.pp
|
||||
$(DOTEST) $<
|
||||
$(DOTEST) $(DOTESTOPT) $<
|
||||
|
||||
%.elg : %.pp
|
||||
$(DOTEST) -e $<
|
||||
$(DOTEST) $(DOTESTOPT) -e $<
|
||||
|
||||
#
|
||||
# Compile tests
|
||||
#
|
||||
alltbs : testcheck $(patsubst %.pp,%.log,$(wildcard tbs/*.pp))
|
||||
alltbf : testcheck $(patsubst %.pp,%.log,$(wildcard tbf/*.pp))
|
||||
|
||||
@ -1204,6 +1223,25 @@ alltestopt : testcheck $(patsubst %.pp,%.log,$(wildcard testopt/*.pp))
|
||||
|
||||
alltests: alltest alltbs alltbf allwebtbs allwebtbf
|
||||
|
||||
#
|
||||
# Compile and Run tests
|
||||
#
|
||||
|
||||
allexectbs : testcheck $(patsubst %.pp,%.elg,$(wildcard tbs/*.pp))
|
||||
allexectbf : testcheck $(patsubst %.pp,%.elg,$(wildcard tbf/*.pp))
|
||||
|
||||
allexecwebtbs : testcheck $(patsubst %.pp,%.elg,$(wildcard webtbs/*.pp))
|
||||
allexecwebtbf : testcheck $(patsubst %.pp,%.elg,$(wildcard webtbf/*.pp))
|
||||
|
||||
allexectest : testcheck $(patsubst %.pp,%.elg,$(wildcard test/*.pp))
|
||||
allexectestopt : testcheck $(patsubst %.pp,%.elg,$(wildcard testopt/*.pp))
|
||||
|
||||
allexectests: allexectest allexectbs allexectbf allexecwebtbs allexecwebtbf
|
||||
|
||||
#
|
||||
# Clean
|
||||
#
|
||||
|
||||
clean:
|
||||
-rm -f $(addsuffix /*$(PPUEXT),$(DIRS))
|
||||
-rm -f $(addsuffix /*$(OEXT),$(DIRS))
|
||||
@ -1220,7 +1258,7 @@ endif
|
||||
-rm -f $(LOG) $(LONGLOG) $(FAILLIST)
|
||||
-rm -f ppas.sh ppas.bat gmon.out
|
||||
|
||||
full : clean all_compilations allexec
|
||||
full : clean allexectests
|
||||
|
||||
info :
|
||||
@echo This Makefile allows to test the compiler
|
||||
|
@ -40,14 +40,30 @@ endif
|
||||
|
||||
units : units/$(FPCMADE)
|
||||
units/$(FPCMADE):
|
||||
$(MAKE) -C units
|
||||
$(MAKE) -C units
|
||||
|
||||
DOTEST=dotest$(EXEEXT)
|
||||
$(DOTEST) : utils/dotest.pp utils/redir.pp
|
||||
$(FPC) -Fu../units -FE. utils/dotest
|
||||
$(FPC) -Fu../units -FE. utils/dotest
|
||||
|
||||
testcheck: units $(DOTEST)
|
||||
|
||||
#
|
||||
# Dotest options
|
||||
#
|
||||
|
||||
ifneq ($(FPC),ppc386)
|
||||
override DOTESTOPT+=-c$(FPC)
|
||||
endif
|
||||
|
||||
ifdef GRAPH
|
||||
override DOTESTOPT+=-g
|
||||
endif
|
||||
|
||||
ifdef INTERACTIVE
|
||||
override DOTESTOPT+=-i
|
||||
endif
|
||||
|
||||
#
|
||||
# Test run targets
|
||||
#
|
||||
@ -61,11 +77,14 @@ tests : clean all_compilations
|
||||
cont_tests : all_compilations
|
||||
|
||||
%.log : %.pp
|
||||
$(DOTEST) $<
|
||||
$(DOTEST) $(DOTESTOPT) $<
|
||||
|
||||
%.elg : %.pp
|
||||
$(DOTEST) -e $<
|
||||
$(DOTEST) $(DOTESTOPT) -e $<
|
||||
|
||||
#
|
||||
# Compile tests
|
||||
#
|
||||
alltbs : testcheck $(patsubst %.pp,%.log,$(wildcard tbs/*.pp))
|
||||
alltbf : testcheck $(patsubst %.pp,%.log,$(wildcard tbf/*.pp))
|
||||
|
||||
@ -77,32 +96,51 @@ alltestopt : testcheck $(patsubst %.pp,%.log,$(wildcard testopt/*.pp))
|
||||
|
||||
alltests: alltest alltbs alltbf allwebtbs allwebtbf
|
||||
|
||||
clean:
|
||||
-rm -f $(addsuffix /*$(PPUEXT),$(DIRS))
|
||||
-rm -f $(addsuffix /*$(OEXT),$(DIRS))
|
||||
-rm -f $(addsuffix /*.rst,$(DIRS))
|
||||
-rm -f $(addsuffix /*$(SHAREDLIBEXT),$(DIRS))
|
||||
-rm -f $(addsuffix /*.log,$(DIRS))
|
||||
-rm -f $(addsuffix /*.elg,$(DIRS))
|
||||
ifdef INUNIX
|
||||
-rm -f $(wildcard $(patsubst %.pp,%$(EXEEXT),$(wildcard $(addsuffix /t*.pp,$(DIRS)))))
|
||||
else
|
||||
-rm -f $(addsuffix /*$(EXEEXT),$(DIRS))
|
||||
endif
|
||||
-rm -f *.tmp
|
||||
-rm -f $(LOG) $(LONGLOG) $(FAILLIST)
|
||||
-rm -f ppas.sh ppas.bat gmon.out
|
||||
#
|
||||
# Compile and Run tests
|
||||
#
|
||||
|
||||
full : clean all_compilations allexec
|
||||
allexectbs : testcheck $(patsubst %.pp,%.elg,$(wildcard tbs/*.pp))
|
||||
allexectbf : testcheck $(patsubst %.pp,%.elg,$(wildcard tbf/*.pp))
|
||||
|
||||
allexecwebtbs : testcheck $(patsubst %.pp,%.elg,$(wildcard webtbs/*.pp))
|
||||
allexecwebtbf : testcheck $(patsubst %.pp,%.elg,$(wildcard webtbf/*.pp))
|
||||
|
||||
allexectest : testcheck $(patsubst %.pp,%.elg,$(wildcard test/*.pp))
|
||||
allexectestopt : testcheck $(patsubst %.pp,%.elg,$(wildcard testopt/*.pp))
|
||||
|
||||
allexectests: allexectest allexectbs allexectbf allexecwebtbs allexecwebtbf
|
||||
|
||||
#
|
||||
# Clean
|
||||
#
|
||||
|
||||
clean:
|
||||
-rm -f $(addsuffix /*$(PPUEXT),$(DIRS))
|
||||
-rm -f $(addsuffix /*$(OEXT),$(DIRS))
|
||||
-rm -f $(addsuffix /*.rst,$(DIRS))
|
||||
-rm -f $(addsuffix /*$(SHAREDLIBEXT),$(DIRS))
|
||||
-rm -f $(addsuffix /*.log,$(DIRS))
|
||||
-rm -f $(addsuffix /*.elg,$(DIRS))
|
||||
ifdef INUNIX
|
||||
-rm -f $(wildcard $(patsubst %.pp,%$(EXEEXT),$(wildcard $(addsuffix /t*.pp,$(DIRS)))))
|
||||
else
|
||||
-rm -f $(addsuffix /*$(EXEEXT),$(DIRS))
|
||||
endif
|
||||
-rm -f *.tmp
|
||||
-rm -f $(LOG) $(LONGLOG) $(FAILLIST)
|
||||
-rm -f ppas.sh ppas.bat gmon.out
|
||||
|
||||
full : clean allexectests
|
||||
|
||||
info :
|
||||
@echo This Makefile allows to test the compiler
|
||||
@echo compilation of 'ts*.pp' should succeed
|
||||
@echo compilation of 'tf*.pp' should fail
|
||||
@echo compilation of 'test*.pp' should succeed
|
||||
@echo 'to*.pp' files should also compile
|
||||
@echo simply run \'make tests\' to test all compilation
|
||||
@echo run \'make allexec\' to test also if the executables
|
||||
@echo created behave like the should
|
||||
@echo run \'make tesiexec\' to test executables
|
||||
@echo that require interactive mode
|
||||
@echo This Makefile allows to test the compiler
|
||||
@echo compilation of 'ts*.pp' should succeed
|
||||
@echo compilation of 'tf*.pp' should fail
|
||||
@echo compilation of 'test*.pp' should succeed
|
||||
@echo 'to*.pp' files should also compile
|
||||
@echo simply run \'make tests\' to test all compilation
|
||||
@echo run \'make allexec\' to test also if the executables
|
||||
@echo created behave like the should
|
||||
@echo run \'make tesiexec\' to test executables
|
||||
@echo that require interactive mode
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0010.pp }
|
||||
{ tests string constants exceeding lines OK 0.9.2 }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0029.pp }
|
||||
{ tests typeof(object type) OK 0.99.1 (FK) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0036.pp }
|
||||
{ assigning a single character to array of char ?OK 0.9.9 }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0049.pp }
|
||||
{ shows an error while defining subrange types OK 0.99.7 (PFV) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0060.pp }
|
||||
{ shows missing type checking for case statements OK 0.99.1 (CEC) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0061.pp }
|
||||
{ shows wrong errors when compiling (NOT A bugs) OK 0.99.1 }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0071.pp }
|
||||
{ shows that an unterminated constant string in a writeln() statement crashes the compiler. }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0075.pp }
|
||||
{ shows invalid pchar output to console OK 0.99.1 }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0085.pp }
|
||||
{ shows runerror 216 OK 0.99.1 (CEC) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0086.pp }
|
||||
{ shows runerror 216 OK 0.99.1 (CEC) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0087.pp }
|
||||
{ shows internal error 12 - no more SegFaults OK 0.99.1 (FK) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0088.pp }
|
||||
{ internal error 12 or Runerror 216 OK 0.99.1 (FK) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0089.pp }
|
||||
{ internal error 12 or Runerror 216 OK 0.99.1 (FK) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0094.pp }
|
||||
{ internal error when recordtype not found with case OK 0.99.1 }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0097.pp }
|
||||
{ two errors in bp7 but not in FPC OK 0.99.6 (FK) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0100.pp }
|
||||
{ a unit may only occure once in uses OK 0.99.6 (PM) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0101.pp }
|
||||
{ no type checking for routines in interfance and OK 0.99.1 (CEC) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0108.pp }
|
||||
{ gives wrong error message OK 0.99.1 (PFV) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0109.pp }
|
||||
{ syntax error not detected when using a set as pointer OK 0.99.1 (FK) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0110.pp }
|
||||
{ SigSegv when using undeclared var in Case OK 0.99.6 (PFV) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0117.pp }
|
||||
{ internalerror 17 (and why is there an automatic float OK 0.99.6 (FK) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0127.pp }
|
||||
{ problem with cdecl in implementation part OK 0.99.7 (PFV) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0136.pp }
|
||||
{ No types necessary in the procedure header OK 0.99.6 (PFV) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0148.pp }
|
||||
{ crash when setting function result of a declared but not yet implemented function in another function }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0151.pp }
|
||||
{ crash when using undeclared variable in withstatement OK 0.99.7 (PFV) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0153.pp }
|
||||
{ Asm, indexing a local/para var should produce an error like tp7 OK 0.99.9 (PFV) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0155.pp }
|
||||
{ Asm, Missing string return for asm functions }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0157.pp }
|
||||
{ Invalid compilation and also crashes OK 0.99.7 (PFV) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0158.pp }
|
||||
{ Invalid boolean typecast OK 0.99.7 (PFV) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0161.pp }
|
||||
{ internal error when trying to create a set with another OK 0.99.9 (PFV) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0164.pp }
|
||||
{ crash when using undeclared array index in with statement OK 0.99.8 (PFV) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0166.pp }
|
||||
{ forward type used in declaration crashes instead of error OK 0.99.9 (PFV) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0167.pp }
|
||||
{ crash when declaring a procedure with same name as object OK 0.99.9 (PFV) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0168.pp }
|
||||
{ set:=set+element is allowed (should be: set:=set+[element]) OK 0.99.9 (PFV) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0172.pp }
|
||||
{ with with absolute seg:ofs should not be possible OK 0.99.9 (PM) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0173.pp }
|
||||
{ secondbugs is parsed as asm, but should be normal pascalcode OK 0.99.9 (PFV) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0175.pp }
|
||||
{ Asm, mov word,%eax should not be allowed without casting emits a warning (or error with range checking enabled) OK 0.99.11 (PM) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0186.pp }
|
||||
{ Erroneous array syntax is accepted. OK 0.99.9 (PFV) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0196.pp }
|
||||
{ "function a;" is accepted (should require result type) OK 0.99.1 (PM) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0197.pp }
|
||||
{ should produce an error: problem with c1:=c2<c3 where c? is OK 0.99.11 (PM) a comp type }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0205.pp }
|
||||
{ and parsing bugs, generates wrong code (tp7 gives parser error) OK 0.99.11 (PM) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0208.pp }
|
||||
{ implicit conversion from boolean to longint should not be allowed }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0219.pp }
|
||||
{ wrong error message OK 0.99.11 (PFV) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0230.pp }
|
||||
{ several strange happen on the ln function: ln(0): no FPE and writeln can't write non numeric values Gives out an exception on compiling because of zero div OK 0.99.11 (PM) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0231.pp }
|
||||
{ Problem with comments OK 0.99.11 (PFV) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0234.pp }
|
||||
{ New with void pointer OK 0.99.11 (PM) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0242.pp }
|
||||
{ Crash when passing a procedure to formal parameter OK 0.99.11 (PM) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0245.pp }
|
||||
{ assigning pointers to address of consts is allowed (refused by BP !) OK 0.99.13 (PFV) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0246.pp }
|
||||
{ const para can be changed without error OK 0.99.13 (PFV) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0248.pp }
|
||||
{ Asm, Wrong assembler code accepted by new assembler reader OK 0.99.11 (PFV) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0265.pp }
|
||||
{ nested proc with for-counter in other lex level OK 0.99.13 (PFV) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0269.pp }
|
||||
{ wrong linenumber for repeat until when type mismatch OK 0.99.12b (PM) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0272.pp }
|
||||
{ No error issued if wrong parameter in function inside a second function OK 0.99.13 (PFV) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0281.pp }
|
||||
{ dup id checking with property is wrong }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0284.pp }
|
||||
{ wrong file position with dup id in other unit OK 0.99.13 (PFV) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0298.pp }
|
||||
{ l1+l2:=l1+l2 gives no error OK 0.99.13 (PFV) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0300.pp }
|
||||
{ crash if method on non existing object is parsed (form bugs 651) OK 0.99.13 (PFV) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0301.pp }
|
||||
{ crash if destructor without object name is parsed OK 0.99.13 (PFV) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0310.pp }
|
||||
{ local and para dup are not detected OK 0.99.15 (FK) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0311.pp }
|
||||
{ No dup id checking in variant records OK 0.99.15 (FK) }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0314.pp }
|
||||
{ }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0315.pp }
|
||||
{ }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0320.pp }
|
||||
{ }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0323.pp }
|
||||
{ }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0324.pp }
|
||||
{ }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0325.pp }
|
||||
{ }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0326.pp }
|
||||
{ }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0328.pp }
|
||||
{ }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0342.pp }
|
||||
{ }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0343.pp }
|
||||
{ }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0345.pp }
|
||||
{ }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0347.pp }
|
||||
{ }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0349.pp }
|
||||
{ }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ %OPT=-Sew }
|
||||
|
||||
{ Old file: tbf0351.pp }
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0352.pp }
|
||||
{ }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0353.pp }
|
||||
{ }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0354.pp }
|
||||
{ }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0355.pp }
|
||||
{ }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0356.pp }
|
||||
{ }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0357.pp }
|
||||
{ }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0358.pp }
|
||||
{ }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0359.pp }
|
||||
{ }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0360.pp }
|
||||
{ }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0361.pp }
|
||||
{ }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
|
||||
type
|
||||
r=record
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
|
||||
var
|
||||
i,j : longint;
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{$mode objfpc}
|
||||
label l;
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{$mode objfpc}
|
||||
label l;
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{$mode objfpc}
|
||||
label l;
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{$mode objfpc}
|
||||
uses
|
||||
sysutils;
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{$mode objfpc}
|
||||
type
|
||||
tc1 = class
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
|
||||
|
||||
type
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{$mode objfpc}
|
||||
type
|
||||
to1 = class
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbf0008.pp }
|
||||
{ tests the crash when decrementing constants OK 0.9.2 }
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
{ %FAIL }
|
||||
{ Old file: tbs0356.pp }
|
||||
{ }
|
||||
|
||||
|
@ -1,7 +1,7 @@
|
||||
{ Old file: tbs0156a.pp }
|
||||
{ }
|
||||
|
||||
uses tb0133;
|
||||
uses ub0133;
|
||||
|
||||
begin
|
||||
end.
|
||||
|
@ -1,5 +1,5 @@
|
||||
uses
|
||||
tb0308;
|
||||
ub0308;
|
||||
|
||||
var
|
||||
r : tr;
|
||||
|
@ -1,4 +1,4 @@
|
||||
unit tb0307;
|
||||
unit ub0308;
|
||||
|
||||
interface
|
||||
|
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue
Block a user