* fixed web bug #1242

This commit is contained in:
Jonas Maebe 2000-11-16 15:27:48 +00:00
parent 30071b6a3d
commit 03005b8b6b

View File

@ -1100,7 +1100,7 @@ implementation
href.symbol:=nil;
pushusedregisters(pushedregs,$ff);
gettempofsizereference(32,href);
emitpushreferenceaddr(left.location.reference);
emit_push_mem_size(left.location.reference,4);
emitpushreferenceaddr(href);
emitcall('FPC_SET_LOAD_SMALL');
maybe_loadesi;
@ -1483,7 +1483,10 @@ begin
end.
{
$Log$
Revision 1.6 2000-11-13 11:30:56 florian
Revision 1.7 2000-11-16 15:27:48 jonas
* fixed web bug 1242
Revision 1.6 2000/11/13 11:30:56 florian
* some bugs with interfaces and NIL fixed
Revision 1.5 2000/11/12 23:24:14 florian
@ -1504,4 +1507,4 @@ end.
Revision 1.1 2000/10/14 10:14:48 peter
* moehrendorf oct 2000 rewrite
}
}