compiler/extensions.st
changeset 503 ff58cd9f1f3c
parent 484 e829f3860745
parent 502 1e45d3c96ec5
child 516 3b81c9e53352
equal deleted inserted replaced
501:e29bd90f388e 503:ff58cd9f1f3c
     2 
     2 
     3 !Character methodsFor:'*petitcompiler'!
     3 !Character methodsFor:'*petitcompiler'!
     4 
     4 
     5 ppcPrintable
     5 ppcPrintable
     6     ^ self asInteger > 31 and: [ self asInteger < 127 ]
     6     ^ self asInteger > 31 and: [ self asInteger < 127 ]
       
     7 ! !
       
     8 
       
     9 !Object methodsFor:'*petitcompiler'!
       
    10 
       
    11 canHavePPCId
       
    12     ^ false
     7 ! !
    13 ! !
     8 
    14 
     9 !Object methodsFor:'*petitcompiler'!
    15 !Object methodsFor:'*petitcompiler'!
    10 
    16 
    11 isInlinedMethod
    17 isInlinedMethod
   636 ! !
   642 ! !
   637 
   643 
   638 !PPSmalltalkGrammar methodsFor:'*petitcompiler'!
   644 !PPSmalltalkGrammar methodsFor:'*petitcompiler'!
   639 
   645 
   640 comment
   646 comment
   641  	^ $" asParser, $" asParser negate star, $" asParser.	
   647  		^ $" asParser, $" asParser negate star, $" asParser.	
   642 ! !
   648 ! !
   643 
   649 
   644 !PPSmalltalkGrammar methodsFor:'*petitcompiler'!
   650 !PPSmalltalkGrammar methodsFor:'*petitcompiler'!
   645 
   651 
   646 whitespace
   652 whitespace