diff options
| author | peter <peter@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2006-03-27 07:22:02 +0000 |
|---|---|---|
| committer | peter <peter@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2006-03-27 07:22:02 +0000 |
| commit | 4674d98fd7f58da5365bffdd1fb7cdf6b5370449 (patch) | |
| tree | f2841352faf2e3040c4ebab7dde7717627d29006 /compiler/symsym.pas | |
| parent | 97a9163f799b2f2f325e8b290a5097997b576942 (diff) | |
| download | fpc-4674d98fd7f58da5365bffdd1fb7cdf6b5370449.tar.gz | |
* don't allow stringconst+integer
* change booleans in arraydef to set
* set option in arraydef to indicate a constant string so
a nicer type can be shown instead of array[0..x] of char
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@3051 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/symsym.pas')
| -rw-r--r-- | compiler/symsym.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/symsym.pas b/compiler/symsym.pas index 8b1fd0c480..3a6cb3ec8b 100644 --- a/compiler/symsym.pas +++ b/compiler/symsym.pas @@ -1260,7 +1260,7 @@ implementation begin if assigned(vartype.def) and ((vartype.def.deftype<>arraydef) or - tarraydef(vartype.def).isDynamicArray or + is_dynamic_array(vartype.def) or (tarraydef(vartype.def).highrange>=tarraydef(vartype.def).lowrange)) then result:=vartype.def.size else |