Browse Source

* psizeint($1234)^ for generic cg fixed

git-svn-id: trunk@570 -
florian 20 years ago
parent
commit
1f8d6aa678
1 changed files with 6 additions and 0 deletions
  1. 6 0
      compiler/ncgmem.pas

+ 6 - 0
compiler/ncgmem.pas

@@ -245,6 +245,12 @@ implementation
                  location.reference.base:=cg.getaddressregister(exprasmlist);
                  cg.a_load_loc_reg(exprasmlist,OS_ADDR,left.location,location.reference.base);
               end;
+            LOC_CONSTANT:
+              begin
+                location.reference.offset:=left.location.value;
+              end;
+            else
+              internalerror(200507031);
          end;
          if (cs_gdb_heaptrc in aktglobalswitches) and
             (cs_checkpointer in aktlocalswitches) and