CVS: sml/src/MLRISC/flowgraph gasPseudoOps.sml,1.12,1.13 pseudo-ops-basis-typ.sml,1.3,1.4

Update of /cvsroot/smlnj/sml/src/MLRISC/flowgraph
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10084

Modified Files:
	gasPseudoOps.sml pseudo-ops-basis-typ.sml 
Log Message:
  Minor changes to make the output more compatible with the version of gas
  that Apple uses on Mac OS X.  Also added support for 64-bit integers.


Index: gasPseudoOps.sml
===================================================================
RCS file: /cvsroot/smlnj/sml/src/MLRISC/flowgraph/gasPseudoOps.sml,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** gasPseudoOps.sml	30 Oct 2004 14:09:26 -0000	1.12
--- gasPseudoOps.sml	11 Apr 2006 13:15:55 -0000	1.13
***************
*** 95,100 ****
  	       of 8 => "\t.byte\t"
  		| 16 => "\t.short\t"
! 		| 32 => "\t.int\t"
! 		| 64 => error "INT64"
  		| n => error ("unexpected INT size: " ^ Int.toString n)
  	      (* end case *))
--- 95,100 ----
  	       of 8 => "\t.byte\t"
  		| 16 => "\t.short\t"
! 		| 32 => "\t.long\t"	(* NOTE: ".int" doesn't work in older versions of gas *)
! 		| 64 => "\t.quad\t"
  		| n => error ("unexpected INT size: " ^ Int.toString n)
  	      (* end case *))
***************
*** 125,129 ****
  
      | toString(PB.IMPORT labs) = decls("\t.extern\t%s", labs)
!     | toString(PB.EXPORT labs) = decls("\t.global\t%s", labs)
      | toString(PB.COMMENT txt) = Fmt.format "/* %s */" [Fmt.STR txt]
          
--- 125,129 ----
  
      | toString(PB.IMPORT labs) = decls("\t.extern\t%s", labs)
!     | toString(PB.EXPORT labs) = decls("\t.globl\t%s", labs)
      | toString(PB.COMMENT txt) = Fmt.format "/* %s */" [Fmt.STR txt]
          

Index: pseudo-ops-basis-typ.sml
===================================================================
RCS file: /cvsroot/smlnj/sml/src/MLRISC/flowgraph/pseudo-ops-basis-typ.sml,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** pseudo-ops-basis-typ.sml	16 Jan 2002 19:25:17 -0000	1.3
--- pseudo-ops-basis-typ.sml	11 Apr 2006 13:15:55 -0000	1.4
***************
*** 33,37 ****
     | DATA_READ_ONLY
     | DATA 
!    | BSS
     | TEXT
     | SECTION of Atom.atom 
--- 33,37 ----
     | DATA_READ_ONLY
     | DATA 
!    | BSS	(* data initialized to zero *)
     | TEXT
     | SECTION of Atom.atom 



-------------------------------------------------------
This SF.Net email is sponsored by xPML, a groundbreaking scripting language
that extends applications into web and mobile media. Attend the live webcast
and join the prime developer group breaking into this new coding territory!
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=110944&bid=241720&dat=121642