* OS/2 changes

  + test script added

packages/extra/tcl/tcl80.pp

@@ -26,9 +26,11 @@ unit Tcl80;
 {$ASMMODE INTEL}
 
 {$IFNDEF WIN32}
-  {$LINKLIB c}
-  {$LINKLIB m}
-  {$define USE_C}
+  {$IFNDEF OS2}
+    {$LINKLIB c}
+    {$LINKLIB m}
+    {$define USE_C}
+  {$ENDIF}
 {$ENDIF}
 
 {$PACKRECORDS C}

packages/extra/tcl/test.tcl

@@ -0,0 +1,8 @@
+#
+proc foo {str1 str2 str3} {
+    writeln $str1
+    writeln $str2
+    writeln $str3
+    writeln [max $str1 $str3]
+    return -1
+}