paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 11:24:16 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed char array, which can start with all possible values

Browse Source
This commit is contained in:
peter 1999-03-02 22:52:19 +00:00
parent 448a0d5046
commit 034eab82f3
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/tcadd.pas
View File

@ -476,7 +476,7 @@ implementation
{ is one of the operands a string?, { is one of the operands a string?,
chararrays are also handled as strings (after conversion) } chararrays are also handled as strings (after conversion) }
if (rd^.deftype=stringdef) or (ld^.deftype=stringdef) or if (rd^.deftype=stringdef) or (ld^.deftype=stringdef) or
is_chararray(rd) or is_chararray(ld) then (is_chararray(rd) and is_chararray(ld)) then
begin begin
if is_widestring(rd) or is_widestring(ld) then if is_widestring(rd) or is_widestring(ld) then
begin begin
@ -1017,7 +1017,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.22 1999-02-22 02:15:43 peter Revision 1.23 1999-03-02 22:52:19 peter
* fixed char array, which can start with all possible values
Revision 1.22 1999/02/22 02:15:43 peter
* updates for ag386bin * updates for ag386bin
Revision 1.21 1999/01/20 21:05:09 peter Revision 1.21 1999/01/20 21:05:09 peter

6
compiler/types.pas
View File

@ -332,7 +332,6 @@ unit types;
function is_chararray(p : pdef) : boolean; function is_chararray(p : pdef) : boolean;
begin begin
is_chararray:=(p^.deftype=arraydef) and is_chararray:=(p^.deftype=arraydef) and
(parraydef(p)^.lowrange=0) and
is_equal(parraydef(p)^.definition,cchardef); is_equal(parraydef(p)^.definition,cchardef);
end; end;
@ -1284,7 +1283,10 @@ unit types;
end. end.
{ {
$Log$ $Log$
Revision 1.53 1999-02-25 21:02:57 peter Revision 1.54 1999-03-02 22:52:20 peter
* fixed char array, which can start with all possible values
Revision 1.53 1999/02/25 21:02:57 peter
* ag386bin updates * ag386bin updates
+ coff writer + coff writer