Browse Source

* fixed web bug #1242

Jonas Maebe 25 years ago
parent
commit
03005b8b6b
1 changed files with 6 additions and 3 deletions
  1. 6 3
      compiler/i386/n386cnv.pas

+ 6 - 3
compiler/i386/n386cnv.pas

@@ -1100,7 +1100,7 @@ implementation
         href.symbol:=nil;
         href.symbol:=nil;
         pushusedregisters(pushedregs,$ff);
         pushusedregisters(pushedregs,$ff);
         gettempofsizereference(32,href);
         gettempofsizereference(32,href);
-        emitpushreferenceaddr(left.location.reference);
+        emit_push_mem_size(left.location.reference,4);
         emitpushreferenceaddr(href);
         emitpushreferenceaddr(href);
         emitcall('FPC_SET_LOAD_SMALL');
         emitcall('FPC_SET_LOAD_SMALL');
         maybe_loadesi;
         maybe_loadesi;
@@ -1483,7 +1483,10 @@ begin
 end.
 end.
 {
 {
   $Log$
   $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
     * some bugs with interfaces and NIL fixed
 
 
   Revision 1.5  2000/11/12 23:24:14  florian
   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
   Revision 1.1  2000/10/14 10:14:48  peter
     * moehrendorf oct 2000 rewrite
     * moehrendorf oct 2000 rewrite
 
 
-}
+}