paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 11:59:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed internalerror 200301081 problem

Browse Source
This commit is contained in:
daniel 2003-01-17 12:45:40 +00:00
parent b917897ef4
commit ca8b793849
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/cgobj.pas
View File

@ -776,6 +776,8 @@ unit cgobj;
procedure tcg.a_load_loc_reg(list : taasmoutput;const loc: tlocation; reg : tregister); procedure tcg.a_load_loc_reg(list : taasmoutput;const loc: tlocation; reg : tregister);
var r:Tregister;
begin begin
{$ifdef i386} {$ifdef i386}
{For safety convert location register to enum for now...} {For safety convert location register to enum for now...}
@ -785,7 +787,12 @@ unit cgobj;
LOC_REFERENCE,LOC_CREFERENCE: LOC_REFERENCE,LOC_CREFERENCE:
a_load_ref_reg(list,loc.size,loc.reference,reg); a_load_ref_reg(list,loc.size,loc.reference,reg);
LOC_REGISTER,LOC_CREGISTER: LOC_REGISTER,LOC_CREGISTER:
a_load_reg_reg(list,loc.size,loc.size,loc.register,reg); begin
{For safety convert location register to enum for now...}
r:=loc.register;
convert_register_to_enum(r);
a_load_reg_reg(list,loc.size,loc.size,r,reg);
end;
LOC_CONSTANT: LOC_CONSTANT:
a_load_const_reg(list,loc.size,loc.value,reg); a_load_const_reg(list,loc.size,loc.value,reg);
else else
@ -1698,7 +1705,10 @@ finalization
end. end.
{ {
$Log$ $Log$
Revision 1.73 2003-01-13 14:54:34 daniel Revision 1.74 2003-01-17 12:45:40 daniel
* Fixed internalerror 200301081 problem
Revision 1.73 2003/01/13 14:54:34 daniel
* Further work to convert codegenerator register convention; * Further work to convert codegenerator register convention;
internalerror bug fixed. internalerror bug fixed.