Changeset 7188 in project


Ignore:
Timestamp:
12/23/07 00:40:21 (12 years ago)
Author:
felix winkelmann
Message:

re-added bugfix that got nuked by merge. Damn.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/c-backend.scm

    r7182 r7188  
    10941094           (gen #t "/* from " (cleanup rname) " */") )
    10951095         (generate-foreign-callback-header "" stub)
    1096          (gen #\{ #t "C_word x, *a=C_alloc(" sizestr ");")
    1097          (gen #t "C_callback_adjust_stack_limits(a);")
     1096         (gen #\{ #t "C_word x,s=" sizestr ",*a=C_alloc(s);")
     1097         (gen #t "C_callback_adjust_stack(a,s);")
    10981098         (for-each
    10991099          (lambda (v t)
Note: See TracChangeset for help on using the changeset viewer.