Overview
| Comment: | Geraint's temp. variable patch applied |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | origin/master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
f70a0140356b2e4d67439bef0a7567d1 |
| User & Date: | gawthrop@users.sourceforge.net on 2001-02-03 14:00:01 |
| Other Links: | branch diff | manifest | tags |
Context
|
2001-02-05
| ||
| 01:50:29 | No unit type comparison at ports if either is "none". check-in: 3d05dc2bd4 user: geraint@users.sourceforge.net tags: origin/master, trunk | |
|
2001-02-03
| ||
| 14:00:01 | Geraint's temp. variable patch applied check-in: f70a014035 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 13:54:02 | Geraint's broken number patch applied check-in: 6a40005962 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/bin/trans/mtt_m2p from [7a06bff42c] to [0bcc94c670].
| ︙ | ︙ | |||
11 12 13 14 15 16 17 18 19 20 21 22 23 24 | # Copyright (c) P.J.Gawthrop 1998 ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ ## Revision 1.62 2000/12/03 17:15:18 peterg ## *** empty log message *** ## ## Revision 1.61 2000/11/10 14:46:53 peterg ## More fixes to avoid interpering variables as funs - basicly all ## functions now have at least () ## | > > > | 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | # Copyright (c) P.J.Gawthrop 1998 ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ ## Revision 1.63 2000/12/04 08:24:29 peterg ## Added swithc logic declarations ## ## Revision 1.62 2000/12/03 17:15:18 peterg ## *** empty log message *** ## ## Revision 1.61 2000/11/10 14:46:53 peterg ## More fixes to avoid interpering variables as funs - basicly all ## functions now have at least () ## |
| ︙ | ︙ | |||
496 497 498 499 500 501 502 |
printf("\n")
printf("VAR \n");
for (k=1;k<i;k++) printf(" %s,\n",global[k])
printf("%s : REAL;\n", global[i])
printvar("x",Nx);
printvar("u",Nu);
printvar("y",Ny);
| > | | > | 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 |
printf("\n")
printf("VAR \n");
for (k=1;k<i;k++) printf(" %s,\n",global[k])
printf("%s : REAL;\n", global[i])
printvar("x",Nx);
printvar("u",Nu);
printvar("y",Ny);
if ((rep=="ode")||(rep=="odeo")||(rep=="csex")||(rep=="cseo")||(rep=="smx")||(rep=="smxa")||(rep=="smxax")){
printvar("_tmp",N_tmp);
printvar("_s",N_tmp);
}
printf("VAR mtt_i, mtt_j : INTEGER;\n");
#if ( (rep=="smxa")||(rep=="smxax") ) {
# printvar("_t",Nt);
#}
printf("\nBEGIN{%s}\n", Sys_rep)
if (rep=="smxa"){
printf("FOR mtt_i:= 1 to %i DO\n\tFOR mtt_j:= 1 to %i DO\n\tmtta[mtt_i,mtt_j] := 0;\n", Nx,Nx);
|
| ︙ | ︙ |