paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 15:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix some errors

Browse Source
This commit is contained in:
carl 2002-12-02 19:38:06 +00:00
parent 0516c74e5b
commit d9c9277d32
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/msgtxt.inc
View File

@ -408,8 +408,8 @@ const msgtxt : array[0..000141,1..240] of char=(
'06038_E_Cannot call message handler methods directly'#000+
'06039_E_Jump in or outside of an exception block'#000+
'06040_E_Control flow statements aren'#039't allowed in a finally block'#000+
'06041_E_Parameters size exceeds limit for certain cpu'#039,'s'#000+
'06042_E_Local variable size exceed limit for certain cpu'#039's'#000+
'06041_W_Parameters size exceeds limit for certain cpu'#039,'s'#000+
'06042_W_Local variable size exceed limit for certain cpu'#039's'#000+
'06043_E_Local variables size exceeds supported limit'#000+
'07000_D_Starting $1 styled assembler parsing'#000+
'07001_D_Finished $1 styled assembler parsing'#000+

7
compiler/nld.pas
View File

@ -687,7 +687,7 @@ implementation
else
begin
{ get the size before the type conversion - check for all nodes }
if assigned(right.resulttype.def) {and (right.nodetype = loadn)} then
if assigned(right.resulttype.def) and (right.nodetype in [loadn,vecn]) then
original_size := right.resulttype.def.size;
inserttypeconv(right,left.resulttype);
end;
@ -1244,7 +1244,10 @@ begin
end.
{
$Log$
Revision 1.69 2002-11-29 20:02:44 carl
Revision 1.70 2002-12-02 19:38:06 carl
* fix some errors
Revision 1.69 2002/11/29 20:02:44 carl
* warning / hint for possible loss of data in assignment
Revision 1.68 2002/11/27 20:04:39 peter