Răsfoiți Sursa

Merged revisions 9360-9361,9363,9371 via svnmerge from
http://svn.freepascal.org/svn/fpc/trunk

........
r9360 | jonas | 2007-11-30 21:47:38 +0100 (Fri, 30 Nov 2007) | 3 lines

* removed goto's from tinlinenode.pass_typecheck and removed some other
old no longer needed code from it
........
r9361 | jonas | 2007-12-01 00:47:49 +0100 (Sat, 01 Dec 2007) | 7 lines

+ simplify support for inline nodes (needed for inlining, because
otherwise you get internalerrors, e.g. when an assigned() expression
becomes constant)
* fixed length for constant strings in case of multi/single byte string
conversions
* fixed memory leak in constant evaluation of in_abs_long
........
r9363 | jonas | 2007-12-01 11:38:22 +0100 (Sat, 01 Dec 2007) | 3 lines

* fixed crashes with length(pchar) and length(pwidechar) after
r9360-r9361
........
r9371 | jonas | 2007-12-01 18:16:33 +0100 (Sat, 01 Dec 2007) | 2 lines

* fixed low(set)/high(set) after previous changes + test
........

git-svn-id: branches/fixes_2_2@9844 -

peter 17 ani în urmă
părinte
comite
749345c805
3 a modificat fișierele cu 505 adăugiri și 320 ștergeri
  1. 1 0
      .gitattributes
  2. 497 320
      compiler/ninl.pas
  3. 7 0
      tests/tbs/tb205.pp

+ 1 - 0
.gitattributes

@@ -6631,6 +6631,7 @@ tests/tbs/tb0539.pp svneol=native#text/plain
 tests/tbs/tb0540.pp svneol=native#text/x-pascal
 tests/tbs/tb0541.pp svneol=native#text/plain
 tests/tbs/tb0542.pp svneol=native#text/plain
+tests/tbs/tb205.pp svneol=native#text/plain
 tests/tbs/ub0060.pp svneol=native#text/plain
 tests/tbs/ub0069.pp svneol=native#text/plain
 tests/tbs/ub0119.pp svneol=native#text/plain

Fișier diff suprimat deoarece este prea mare
+ 497 - 320
compiler/ninl.pas


+ 7 - 0
tests/tbs/tb205.pp

@@ -0,0 +1,7 @@
+var
+  s: set of 3..40;
+begin
+  if (low(s)<>3) or
+     (high(s)<>40) then
+    halt(1);
+end.

Unele fișiere nu au fost afișate deoarece prea multe fișiere au fost modificate în acest diff