equal
deleted
inserted
replaced
627 aClass instVarNames do:[:v | |
627 aClass instVarNames do:[:v | |
628 instVarList add:('OBJ %1;' bindWith:v) |
628 instVarList add:('OBJ %1;' bindWith:v) |
629 ]. |
629 ]. |
630 classInstVarList := StringCollection new. |
630 classInstVarList := StringCollection new. |
631 aClass class instVarNames do:[:v | |
631 aClass class instVarNames do:[:v | |
632 (v includes:$_) ifTrue:[self halt]. |
632 "/ (v includes:$_) ifTrue:[self halt]. |
633 classInstVarList add:('OBJ %1;' bindWith:v) |
633 classInstVarList add:('OBJ %1;' bindWith:v) |
634 ]. |
634 ]. |
635 classVarList := StringCollection new. |
635 classVarList := StringCollection new. |
636 aClass classVarNames do:[:v | |
636 aClass classVarNames do:[:v | |
637 classVarList add:('extern OBJ %1_%2;' bindWith:aClass name with:v) |
637 classVarList add:('extern OBJ %1_%2;' bindWith:aClass name with:v) |
923 usedCompiler = 'bcc' ifTrue:[^ 'objbc']. |
923 usedCompiler = 'bcc' ifTrue:[^ 'objbc']. |
924 usedCompiler = 'vc' ifTrue:[^ 'objvc']. |
924 usedCompiler = 'vc' ifTrue:[^ 'objvc']. |
925 usedCompiler = 'tcc' ifTrue:[^ 'objtcc']. |
925 usedCompiler = 'tcc' ifTrue:[^ 'objtcc']. |
926 usedCompiler = 'lcc' ifTrue:[^ 'objlcc']. |
926 usedCompiler = 'lcc' ifTrue:[^ 'objlcc']. |
927 usedCompiler = 'mingw' ifTrue:[^ 'objmingw']. |
927 usedCompiler = 'mingw' ifTrue:[^ 'objmingw']. |
928 self halt:'please fill in here'. |
928 self halt:'please add compiler here'. |
929 ^ 'objbc' |
929 ^ 'objbc' |
930 |
930 |
931 "Created: / 03-09-2012 / 19:55:34 / cg" |
931 "Created: / 03-09-2012 / 19:55:34 / cg" |
932 ! |
932 ! |
933 |
933 |