Explorar o código

* use dpmiexcp to avoid Dos crash

pierre %!s(int64=26) %!d(string=hai) anos
pai
achega
69ee4f9954
Modificáronse 1 ficheiros con 5 adicións e 1 borrados
  1. 5 1
      tests/tbs/tbs0239.pp

+ 5 - 1
tests/tbs/tbs0239.pp

@@ -1,5 +1,9 @@
 {$mode delphi}
-   uses sysutils;
+  uses 
+{$ifdef go32v2}
+    dpmiexcp,
+{$endif go32v2}
+    sysutils;
    type
      ttest=class
      end;