Changeset 31 in dev for BasicCompiler32/OperatorProc.cpp
- Timestamp:
- Jan 13, 2007, 4:26:50 AM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
BasicCompiler32/OperatorProc.cpp
r3 r31 64 64 ///////////////////////////////////////////// 65 65 66 PARAMETER_INFO *ppi ;66 PARAMETER_INFO *ppi = (PARAMETER_INFO *)HeapAlloc(hHeap,0,sizeof(PARAMETER_INFO)*3); 67 67 int iParmNum=0; 68 69 //_System_LocalThis70 ppi=(PARAMETER_INFO *)HeapAlloc(hHeap,0,sizeof(PARAMETER_INFO)*3);71 ppi[iParmNum].bArray=0;72 ppi[iParmNum].bByVal=0;73 ppi[iParmNum].name=0;74 ppi[iParmNum].type=DEF_PTR_VOID;75 ppi[iParmNum].u.index=-1;76 ppi[iParmNum].SubScripts[0]=-1;77 iParmNum++;78 68 79 69 if(bTwoTerm){ … … 282 272 } 283 273 284 RetTypeInfo.type=Opcode_CallProc(Parameter,ppsi[0],&RetTypeInfo.u.lpIndex,0,ObjectName,DEF_OBJECT); 274 Opcode_CallProc(Parameter,ppsi[0],0,ObjectName,DEF_OBJECT); 275 RetTypeInfo.type=ppsi[0]->ReturnType; 276 RetTypeInfo.u.lpIndex = ppsi[0]->u.ReturnIndex; 285 277 286 278 HeapDefaultFree(ppsi);
Note:
See TracChangeset
for help on using the changeset viewer.