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

* fix different expectloc

Browse Source
This commit is contained in:
peter 2003-09-25 14:57:51 +00:00
parent cc823ff893
commit 0805c4e535
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ncnv.pas
View File

@ -1641,7 +1641,7 @@ implementation
begin begin
first_class_to_intf:=nil; first_class_to_intf:=nil;
expectloc:=LOC_REFERENCE; expectloc:=LOC_REGISTER;
if registers32<1 then if registers32<1 then
registers32:=1; registers32:=1;
end; end;
@ -2102,7 +2102,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.118 2003-09-06 22:27:08 florian Revision 1.119 2003-09-25 14:57:51 peter
* fix different expectloc
Revision 1.118 2003/09/06 22:27:08 florian
* fixed web bug 2669 * fixed web bug 2669
* cosmetic fix in printnode * cosmetic fix in printnode
* tobjectdef.gettypename implemented * tobjectdef.gettypename implemented