Changeset 14165

Timestamp:

10/05/12 15:20:57 (8 years ago)

Author:

Mark Evenson

Message:

Ant target to 'abcl.compile.lisp.debug' via JDWP.

With this target, he Lisp compilation is invoked with the contents of
the JVM property "abcl.compile.lisp.debug.jvmarg". The default value
of this property suspends the JVM at the start of the compilation,
listening on port 6789.

Location:

trunk/abcl

Files:

• abcl.properties.in (modified) (4 diffs)
• build.xml (modified) (4 diffs)

trunk/abcl/abcl.properties.in

@@ -3 +3 @@
 # XXX should be called 'build.properties' but this collides with its usage by the Eclipe IDE
 
-# Template for settings the Ant based build process.
-
+# Template for Ant based build process settings.
 
 # Attempt to perform incremental compilation? 
 #abcl.build.incremental=true
 
-# skips the compilation of Lisp sources in Netbeans 
-# (for debugging compiler-pass1.lisp and subsequent passes)
-#abcl.compile.lisp.skip=true
+# Additional site specific startup code to be merged in 'system.lisp' at build time
+#abcl.startup.file=${basedir}/startup.lisp
 
 # java.options sets the Java options in the abcl wrapper scripts
@@ -17 +15 @@
 # See
 # http://www.oracle.com/technetwork/java/javase/tech/vmoptions-jsp-140102.html
-# for options for the Oracle HotSpot JVM
-
-# HotSpot Examples:
+# for options for the Oracle HotSpot JVM.
 
 # Java7 on 64bit optimizations
@@ -27 +23 @@
 #java.options=-d64 -Xmx1g
 
-# Use the G1 garbage collector stablized with jdk1.7.0_04
+# Use the G1 garbage collector stablized with jdk1.7.0_04, printing GC details
 #java.options=-d64 -Xmx4g -XX:+PrintGCDetails -XX:+UseG1GC 
 
@@ -44 +40 @@
 #java.options=-ea
 
-# Additional site specific startup code to be merged in 'system.lisp' at build time
-#abcl.startup.file=${basedir}/startup.lisp
+## ABCL Development
+
+# skips the compilation of Lisp sources in Netbeans 
+# (for debugging compiler-pass1.lisp and subsequent passes)
+#abcl.compile.lisp.skip=true
+
+# JVM option to execute when debugging the Lisp compilation via 'abcl.compile.lisp.debug'
+#abcl.compile.lisp.debug.jvmarg=-agentlib:jdwp=transport=dt_socket,server=y,address=6789,suspend=y
+
+

trunk/abcl/build.xml

@@ -82 +82 @@
 
     <patternset id="abcl.objects">
-      <!-- "system.lisp" is dynamically created by COMPILE-SYSTEM -->
+      <!-- "system.lisp" is dynamically created by COMPILE-fSYSTEM -->
       <include name="org/armedbear/lisp/system.lisp"/> 
       <include name="org/armedbear/lisp/**/*.class"/>
@@ -233 +233 @@
     <property name="system.lisp.file" 
               value="${build.classes.dir}/org/armedbear/lisp/system.lisp"/>
-    
+
     <target name="abcl.compile.lisp" 
             depends="abcl.copy.lisp,abcl.compile.java,abcl.system.update.maybe,abcl.fasls.uptodate"
             unless="abcl.fasls.uptodate.p">
-      <echo>
+      <abcl.compile.lisp/>
+    </target>
+
+    <macrodef name="abcl.compile.lisp">
+      <element name="additional.jvmarg" optional="true"/>
+      <sequential>
+        <echo>
 Compiling Lisp system 
 from ${abcl.home.dir}
@@ -253 +259 @@
         <jvmarg value="-Dabcl.home=${abcl.home.dir}${file.separator}"/>
         <jvmarg value="-Dabcl.autoload.verbose=Y"/>
+        <additional.jvmarg/>
         <arg value="--noinit"/>
         <arg value="--nosystem"/>
@@ -261 +268 @@
         <fileset file="${abcl.startup.file}"/>
       </concat>
+        </sequential>
+    </macrodef>
+
+    <property name="abcl.compile.lisp.debug.jvmarg"
+              value="-agentlib:jdwp=transport=dt_socket,server=y,address=6789,suspend=y"/>
+    <target name="abcl.compile.lisp.debug" 
+            depends="abcl.copy.lisp,abcl.compile.java,abcl.system.update.maybe,abcl.fasls.uptodate"
+            unless="abcl.fasls.uptodate.p">
+      <echo>Debugging with jvmarg ${abcl.compile.lisp.debug.jvmarg}</echo>
+      <abcl.compile.lisp> 
+          <additional.jvmarg>
+            <jvmarg value="${abcl.compile.lisp.debug.jvmarg}"/>
+          </additional.jvmarg>
+      </abcl.compile.lisp>
     </target>