Fix returning ptr types from functions

lua/wire/client/hlzasm/hc_syntax.lua

@@ -21,24 +21,24 @@
   COLOR    = { {"x","r"},{"y","g"},{"z","b"},{"w","a"} },
   MATRIX   = {},
 }
 for i=0,15 do VectorSyntax.MATRIX[i+1] = {tostring(i)} end
 
 
 
 
 --------------------------------------------------------------------------------
 -- Compile an opcode (called after if self:MatchToken(TOKEN.OPCODE))
 function HCOMP:Opcode() local TOKEN,TOKENSET = self.TOKEN,self.TOKENSET
   local opcodeName = self.TokenData
   local opcodeNo = self.OpcodeNumber[self.TokenData]
   local operandCount = self.OperandCount[opcodeNo]
 
   -- Check if opcode is obsolete or old
   if self.OpcodeObsolete[opcodeName] then
     self:Warning("Instruction \""..opcodeName.."\" is obsolete")
   end
   if self.OpcodeOld[opcodeName] then
     self:Warning("Mnemonic \""..opcodeName.."\" is an old mnemonic for this instruction. Please use the newer mnemonic \""..self.OpcodeOld[opcodeName].."\".")
   end
 
   -- Create leaf
@@ -47,7 +47,7 @@
   opcodeLeaf.ExplictAssign = true
 
   -- Parse operands
   for i=1,operandCount do
     local segmentOffset,constantValue,expressionLeaf
     local isMemoryReference,useSpecialMemorySyntax
 
@@ -529,13 +529,24 @@
         self:PreviousToken() -- LPAREN
         self:PreviousToken() -- Func Name
         self:PreviousToken() -- Type Name
+        local ptrlevel = 0
+        if self:MatchToken(TOKEN.TIMES) then
+          -- skip back until we're done with the ptr
+          self:PreviousToken()
+          while self:MatchToken(TOKEN.TIMES) do
+            ptrlevel = ptrlevel + 1;
+            self:PreviousToken()
+            self:PreviousToken()
+          end
+        end
         if not self:MatchToken(TOKEN.IDENT) then
           self:MatchToken(TOKEN.TYPE) -- If it's not an IDENT (struct/user defined) it should be a generic type
         end
         local returnType = self.TokenData
+        self.CurrentToken = self.CurrentToken + ptrlevel -- return to present.
         self:MatchToken(TOKEN.IDENT)
         local funcName = self.TokenData
-        self.CurFunction = {Name = funcName, ReturnType = returnType}
+        self.CurFunction = {Name = funcName, ReturnType = returnType, ReturnPtrLevel = ptrlevel}
         self:NextToken()
         label.Type = "Pointer"
         label.Defined = true