diff options
Diffstat (limited to 'macros/CCodeGeneration')
| -rw-r--r-- | macros/CCodeGeneration/C_GenDeclarations_Dup.bin | bin | 29588 -> 30104 bytes | |||
| -rw-r--r-- | macros/CCodeGeneration/C_GenDeclarations_Dup.sci | 11 | ||||
| -rw-r--r-- | macros/CCodeGeneration/C_IfExpression.bin | bin | 12440 -> 12500 bytes | |||
| -rw-r--r-- | macros/CCodeGeneration/C_IfExpression.sci | 2 | ||||
| -rw-r--r-- | macros/CCodeGeneration/C_WhileExpression.bin | bin | 15704 -> 15764 bytes | |||
| -rw-r--r-- | macros/CCodeGeneration/C_WhileExpression.sci | 2 |
6 files changed, 7 insertions, 8 deletions
diff --git a/macros/CCodeGeneration/C_GenDeclarations_Dup.bin b/macros/CCodeGeneration/C_GenDeclarations_Dup.bin Binary files differindex 7a4ed87..bdf3564 100644 --- a/macros/CCodeGeneration/C_GenDeclarations_Dup.bin +++ b/macros/CCodeGeneration/C_GenDeclarations_Dup.bin diff --git a/macros/CCodeGeneration/C_GenDeclarations_Dup.sci b/macros/CCodeGeneration/C_GenDeclarations_Dup.sci index ab32ff1..475e2e0 100644 --- a/macros/CCodeGeneration/C_GenDeclarations_Dup.sci +++ b/macros/CCodeGeneration/C_GenDeclarations_Dup.sci @@ -23,7 +23,7 @@ function Cdeclaration = C_GenDeclarations_Dup(InArg,NInArg,com_type,ArgStruct,CD // ------------------------------ // --- Check input arguments. --- // ------------------------------ - //SCI2CNInArgCheck(argn(2),6,6); +SCI2CNInArgCheck(argn(2),9,9); // #RNU_RES_B //NUT: ilnome di questa funzione va cambiato perche' le dichiarazioni le fanno anche i for e i while. @@ -95,13 +95,13 @@ if (ArgStruct.Dimension > 0) Cdeclaration(1) = Cdeclaration(1)+InArg(NInArg).Name+'};'; else for i=1:NInArg-1 - if InArg(i).Type <> 'z' + if InArg(i).Type <> 'z' & InArg(i).Type <> 'c' Cdeclaration(1) = Cdeclaration(1)+InArg(i).Name+',0,'; else Cdeclaration(1) = Cdeclaration(1)+InArg(i).Name+','; end end - if InArg(NInArg).Type <> 'z' + if InArg(NInArg).Type <> 'z' & InArg(NInArg).Type <> 'c' Cdeclaration(1) = Cdeclaration(1) + InArg(NInArg).Name + ',0};' else Cdeclaration(1) = Cdeclaration(1) + InArg(NInArg).Name + '};' @@ -118,11 +118,10 @@ if (ArgStruct.Dimension > 0) end Cdeclaration(1) = Cdeclaration(1) + InArg(NInArg).Name + '};'; else - disp("hello") for i = 1:col for j = 0:row-1 if (j*col)+i ~= row*col - if InArg(((j*col)+i)).Type <> 'z' + if InArg(((j*col)+i)).Type <> 'z' & InArg(((j*col)+i)).Type <> 'c' Cdeclaration(1) = Cdeclaration(1) + InArg(((j*col)+i)).Name + ',0,'; else Cdeclaration(1) = Cdeclaration(1) + InArg(((j*col)+i)).Name + ','; @@ -130,7 +129,7 @@ if (ArgStruct.Dimension > 0) end end end - if InArg(NInArg).Type <> 'z' + if InArg(NInArg).Type <> 'z' & InArg(NInArg).Type <> 'c' Cdeclaration(1) = Cdeclaration(1) + InArg(NInArg).Name + ',0};'; else Cdeclaration(1) = Cdeclaration(1) + InArg(NInArg).Name + '};'; diff --git a/macros/CCodeGeneration/C_IfExpression.bin b/macros/CCodeGeneration/C_IfExpression.bin Binary files differindex b1dc737..c93b629 100644 --- a/macros/CCodeGeneration/C_IfExpression.bin +++ b/macros/CCodeGeneration/C_IfExpression.bin diff --git a/macros/CCodeGeneration/C_IfExpression.sci b/macros/CCodeGeneration/C_IfExpression.sci index c723d95..359b788 100644 --- a/macros/CCodeGeneration/C_IfExpression.sci +++ b/macros/CCodeGeneration/C_IfExpression.sci @@ -19,7 +19,7 @@ function SharedInfo = C_IfExpression(IfCondArg,NIfCondArg,Op,NOp,ASTIfExpType,Fi // ------------------------------ // --- Check input arguments. --- // ------------------------------ -//SCI2CNInArgCheck(argn(4),7,7); +SCI2CNInArgCheck(argn(2),7,7); //global SCI2CSTACK //global StackPosition; diff --git a/macros/CCodeGeneration/C_WhileExpression.bin b/macros/CCodeGeneration/C_WhileExpression.bin Binary files differindex 5e42650..c10e117 100644 --- a/macros/CCodeGeneration/C_WhileExpression.bin +++ b/macros/CCodeGeneration/C_WhileExpression.bin diff --git a/macros/CCodeGeneration/C_WhileExpression.sci b/macros/CCodeGeneration/C_WhileExpression.sci index d7cf70e..368ccff 100644 --- a/macros/CCodeGeneration/C_WhileExpression.sci +++ b/macros/CCodeGeneration/C_WhileExpression.sci @@ -19,7 +19,7 @@ function SharedInfo = C_WhileExpression(IfCondArg,NIfCondArg,Op,NOp,FileInfo,Sha // ------------------------------ // --- Check input arguments. --- // ------------------------------ -//SCI2CNInArgCheck(argn(2),2,2); +SCI2CNInArgCheck(argn(2),6,6); // ----------------------- // --- Initialization. --- |