summary refs log tree commit diff stats
path: root/nim/nimrod.pas
diff options
context:
space:
mode:
Diffstat (limited to 'nim/nimrod.pas')
-rw-r--r--nim/nimrod.pas16
1 files changed, 12 insertions, 4 deletions
diff --git a/nim/nimrod.pas b/nim/nimrod.pas
index 99d9a9d0f..728325ccc 100644
--- a/nim/nimrod.pas
+++ b/nim/nimrod.pas
@@ -61,7 +61,7 @@ type
 
 procedure HandleCmdLine;
 var
-  command, filename: string;
+  command, filename, prog: string;
   start: TTime;
 begin
   {@emit start := getTime(); }
@@ -92,13 +92,21 @@ begin
                                 toString(getTime() - start)]);
     }
     end;
-    if optRun in gGlobalOptions then
-      execExternalProgram(quoteIfContainsWhite(changeFileExt(filename, '')) +{&}
-                         ' ' +{&} arguments)
+    if optRun in gGlobalOptions then begin
+      {$ifdef unix}
+      prog := './' + quoteIfContainsWhite(changeFileExt(filename, ''));
+      {$else}
+      prog := quoteIfContainsWhite(changeFileExt(filename, ''));
+      {$endif}
+      execExternalProgram(prog +{&} ' ' +{&} arguments)
+    end
   end
 end;
 
 begin
+//{@emit
+//  GC_disableMarkAndSweep();
+//}
   cmdLineInfo := newLineInfo('command line', -1, -1);
   condsyms.InitDefines();
   HandleCmdLine();