| Last change
 on this file since aa14aafe was             5546f50b, checked in by Peter A. Buhr <pabuhr@…>, 20 months ago | 
        
          | 
more switch to tabs
 | 
        
          | 
              
Property                 mode
 set to                 100644 | 
        
          | File size:
            601 bytes | 
      
      
| Line |  | 
|---|
| 1 | // #include <time.h> | 
|---|
| 2 | //#include <stdlib.hfa> | 
|---|
| 3 |  | 
|---|
| 4 | struct tm { int x; }; | 
|---|
| 5 | forall (T*) T* alloc(); | 
|---|
| 6 |  | 
|---|
| 7 | int main () { | 
|---|
| 8 | // // // C, library | 
|---|
| 9 | // // void * malloc( size_t ); | 
|---|
| 10 | // // C, user | 
|---|
| 11 | // struct tm * el1 = (struct tm * ) malloc(      sizeof(struct tm) ); | 
|---|
| 12 | // struct tm * ar1 = (struct tm * ) malloc( 10 * sizeof(struct tm) ); | 
|---|
| 13 |  | 
|---|
| 14 | // // // CFA, library | 
|---|
| 15 | // // forall( T * ) T * alloc(); | 
|---|
| 16 | // // CFA, user | 
|---|
| 17 | // tm * el2 = alloc(); | 
|---|
| 18 | // tm (*ar2)[10] = alloc(); | 
|---|
| 19 |  | 
|---|
| 20 |  | 
|---|
| 21 |  | 
|---|
| 22 |  | 
|---|
| 23 | // ar1[5]; | 
|---|
| 24 | // (*ar2)[5]; | 
|---|
| 25 |  | 
|---|
| 26 |  | 
|---|
| 27 |  | 
|---|
| 28 | // tm (&ar3)[10] = *alloc(); | 
|---|
| 29 | tm (&ar3)[10]; | 
|---|
| 30 | &ar3 = alloc(); | 
|---|
| 31 | ar3[5]; | 
|---|
| 32 | } | 
|---|
       
      
  Note:
 See   
TracBrowser
 for help on using the repository browser.