Deref/memory assignments on defined constant labels fixed

lua/wire/client/hlzasm/hc_codetree.lua

@@ -90,7 +90,7 @@
 -- Returns free (non-busy) register. Does not check EBP and ESP
 function HCOMP:FreeRegister()
   -- Try to find a free register
   for i=1,#self.RegisterBusy do
     if not self.RegisterBusy[i] then return i end
   end
 
@@ -210,11 +210,13 @@
         operands[index] = { MemoryRegister = operands[index].MemoryPointer.Register, Temporary = operands[index].MemoryPointer.Temporary }
         return operands[index].Register
       elseif operands[index].MemoryPointer.Constant then
+        if istable(operands[index].MemoryPointer.Constant) then
         -- Don't decay a label constant expression into an unusable memory address if possible
         for _,item in pairs(operands[index].MemoryPointer.Constant) do
-          if item.Type == self.TOKEN.IDENT then
-            operands[index] = { MemoryPointer = operands[index].MemoryPointer.Constant }
-            return nil
+            if item.Type == self.TOKEN.IDENT then
+              operands[index] = { MemoryPointer = operands[index].MemoryPointer.Constant }
+              return nil
+            end
           end
         end
         operands[index] = { Memory = operands[index].MemoryPointer.Constant }
@@ -226,7 +228,7 @@
         movLeaf.Operands[2] = operands[index].MemoryPointer
         self.RegisterBusy[freeReg] = true
 
         local addrReg,isTemp = self:GenerateLeaf(movLeaf,true)
         operands[index] = { MemoryRegister = addrReg, Temporary = isTemp }
         self.RegisterBusy[addrReg] = isTemp
         return addrReg
@@ -246,7 +248,7 @@
     operand.Constant = label.Expression or {{ Type = self.TOKEN.IDENT, Data = label.Name, Position = self.ErrorReportLeaf.CurrentPosition }}
   else
     if not label.Name then self:Error("Internal error 033") end
     self:Error("Undefined label: "..label.Name,self.ErrorReportLeaf)
   end
 end
 
@@ -286,7 +288,7 @@
   if not leaf.Opcode then
     if not leaf.PreviousLeaf then --not leaf.Register then
       if istable(leaf.Constant) then
         self:Warning("Trying to generate invalid code ("..self:PrintTokens(leaf.Constant)..")",leaf)
       elseif not leaf.ForceTemporary then
         self:Warning("Trying to generate invalid code",leaf)
       end
@@ -304,7 +306,7 @@
 
   -- Check if this opcode writes to its first argument
   local opcodeWritesFirstOperand = (#leaf.Operands == 2) or
                                   ((#leaf.Operands == 1) and (self.OpcodeWritesOperand[leaf.Opcode]))
 
   -- Generate explict operands for this leaf
   local genOperands = {}
@@ -326,7 +328,7 @@
         leaf.Operands[i].Constant = label.Expression or {{ Type = self.TOKEN.IDENT, Data = label.Name, Position = self.ErrorReportLeaf.CurrentPosition }}
       else
         if not label.Name then self:Error("Internal error 033") end
         self:Error("Undefined label: "..label.Name,self.ErrorReportLeaf)
       end
     end
     if leaf.Operands[i].MemoryPointer and
@@ -343,7 +345,7 @@
         leaf.Operands[i].MemoryPointer = { MemoryRegister = label.Value }
       else
         if not label.Name then self:Error("Internal error 033") end
         self:Error("Undefined label: "..label.Name,self.ErrorReportLeaf)
       end
     end
 
@@ -371,10 +373,10 @@
       -- Do not gen explict value if our opcode is MOV though (we can turn it into sstack later)
       -- Also do not generate explict value if its an explict assign
       if genOperands[i].Stack then
         if ((i == 1) and (leaf.Opcode ~= "mov")) or -- Force value out of stack if we are about to perform an instruction on it
             (i == 2) then                           -- Or if we are about to read from it
           self:ReadOperandFromStack(genOperands,i)
         end
       end
 
       -- Need a real explict value if its a non-constant address to memory