diff options
| author | jofret | 2009-07-23 12:29:41 +0000 |
|---|---|---|
| committer | jofret | 2009-07-23 12:29:41 +0000 |
| commit | 03de767de9bef2dedf4618f5b8df77840bdab03a (patch) | |
| tree | 7485db9fc3100e0fe0d16aee9de1f395b31ef2c6 /macros/ToolInitialization | |
| parent | 4d8c7539dbe5d054970fe33e93b648952e1e8fed (diff) | |
| download | scilab2c-03de767de9bef2dedf4618f5b8df77840bdab03a.tar.gz scilab2c-03de767de9bef2dedf4618f5b8df77840bdab03a.tar.bz2 scilab2c-03de767de9bef2dedf4618f5b8df77840bdab03a.zip | |
OpColon now generate correct C code
Diffstat (limited to 'macros/ToolInitialization')
| -rw-r--r-- | macros/ToolInitialization/INIT_FillSCI2LibCDirs.sci | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/macros/ToolInitialization/INIT_FillSCI2LibCDirs.sci b/macros/ToolInitialization/INIT_FillSCI2LibCDirs.sci index ea82bee1..96662c3b 100644 --- a/macros/ToolInitialization/INIT_FillSCI2LibCDirs.sci +++ b/macros/ToolInitialization/INIT_FillSCI2LibCDirs.sci @@ -1545,12 +1545,12 @@ PrintStringInfo('NIN= 2',ClassFileName,'file','y'); PrintStringInfo('NOUT= 1',ClassFileName,'file','y'); PrintStringInfo('OUT(1).TP= FA_TP_MIN_REAL(IN(1).TP,IN(2).TP)',ClassFileName,'file','y'); PrintStringInfo('OUT(1).SZ(1)= ''1''',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= FA_INT(FA_ADD(FA_SUB(IN(2).VAL,IN(1).VAL),''1''))',ClassFileName,'file','y'); +PrintStringInfo('OUT(1).SZ(2)= FA_INT(FA_ADD(FA_SUB(FA_REAL(IN(2).VAL,IN(2).TP),FA_REAL(IN(1).VAL,IN(1).TP)),''1''))',ClassFileName,'file','y'); PrintStringInfo('NIN= 3',ClassFileName,'file','y'); PrintStringInfo('NOUT= 1',ClassFileName,'file','y'); PrintStringInfo('OUT(1).TP= FA_TP_MIN_REAL(IN(1).TP,FA_TP_MIN_REAL(IN(2).TP,IN(3).TP))',ClassFileName,'file','y'); PrintStringInfo('OUT(1).SZ(1)= ''1''',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= FA_INT(FA_ADD(FA_DIV(FA_SUB(IN(3).VAL,IN(1).VAL),IN(2).VAL),''1''))',ClassFileName,'file','y'); +PrintStringInfo('OUT(1).SZ(2)= FA_INT(FA_ADD(FA_DIV(FA_SUB(FA_REAL(IN(3).VAL,IN(3).TP),FA_REAL(IN(1).VAL, IN(3).TP)),FA_REAL(IN(2).VAL)),''1''))',ClassFileName,'file','y'); // --- Function List Class. --- ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); |